Muchas gracias
Por favor, disculpe la lengua porque soy portugués.
' gambas class file
PUBLIC busca AS Result
' tabela[20] AS String
'PRIVATE hResul AS Result
PUBLIC hResul AS Result
PUBLIC SUB Form_Open()
DIM Clave AS String
txtProcNome.Enabled = FALSE
Tabela.Clear()
IF ConectarBase() THEN RETURN
' tabela.Columns = 3
tabela.Columns.Count = 20
tabela.Columns[0].Text = "Nº"
tabela.Columns[0].Width = 45
tabela.Columns[0].Alignment = 3
tabela.Columns[1].Text = "Nome"
tabela.Columns[1].Width = 300
tabela.Columns[2].Text = "Data Nascimento"
tabela.Columns[2].Width = 110
tabela.Columns[2].Alignment = 3
tabela.Columns[3].Text = "Idade"
tabela.Columns[3].Width = 50
tabela.Columns[3].Alignment = 3
tabela.Columns[4].Width = 400
tabela.Columns[4].Text = "Morada"
tabela.Columns[5].Width = 100
tabela.Columns[5].Alignment = 3
tabela.Columns[5].Text = "Código Postal"
tabela.Columns[6].Width = 150
tabela.Columns[6].Alignment = 3
tabela.Columns[6].Text = "Localidade"
tabela.Columns[7].Width = 150
tabela.Columns[7].Alignment = 3
tabela.Columns[7].Text = "Freguesia"
tabela.Columns[8].Width = 150
tabela.Columns[8].Alignment = 3
tabela.Columns[8].Text = "Concelho"
tabela.Columns[9].Width = 150
tabela.Columns[9].Alignment = 3
tabela.Columns[9].Text = "País"
tabela.Columns[10].Width = 150
tabela.Columns[10].Alignment = 3
tabela.Columns[10].Text = "Telefone"
tabela.Columns[11].Width = 150
tabela.Columns[11].Alignment = 3
tabela.Columns[11].Text = "Telemovel"
tabela.Columns[12].Width = 200
tabela.Columns[12].Text = "Profissão"
tabela.Columns[13].Width = 150
tabela.Columns[13].Alignment = 3
tabela.Columns[13].Text = "Data Inscrição"
tabela.Columns[14].Width = 150
tabela.Columns[14].Alignment = 3
tabela.Columns[14].Text = "Categoria Sócio"
tabela.Columns[15].Width = 150
tabela.Columns[15].Alignment = 3
tabela.Columns[15].Text = "Actividade"
tabela.Columns[16].Width = 70
tabela.Columns[16].Alignment = 3
tabela.Columns[16].Text = "Valor Cota"
tabela.Columns[17].Width = 80
tabela.Columns[17].Alignment = 3
tabela.Columns[17].Text = "Cota Paga"
tabela.Columns[18].Width = 150
tabela.Columns[18].Text = "Observações"
tabela.Columns[19].Width = 1
tabela.Columns[19].Text = "foto"
hResul = hconn.EXEC("SELECT * from socios")
' hResul = hconn.Exec " SELECT * FROM socios where nome LIKE '%" ab "%'"
' LigarBaseDados.info = LigarBaseDados.banco.Exec("select * from socios where nome like '%" & ab & "%'")
DO WHILE hResul.Available
Clave = hResul["numero"]
tabela.Add(Clave, Clave)
tabela[Clave][1] = hResul["nome"]
tabela[clave][2] = hResul["datanascimento"]
tabela[clave][3] = hResul["idade"]
tabela[clave][4] = hResul["morada"]
tabela[clave][5] = hResul["codigopostal"]
tabela[clave][6] = hResul["localidade"]
tabela[clave][7] = hResul["freguesia"]
tabela[clave][8] = hResul["concelho"]
tabela[clave][9] = hResul["pais"]
tabela[clave][10] = hResul["telefone"]
tabela[clave][11] = hResul["telemovel"]
tabela[clave][12] = hResul["profissao"]
tabela[clave][13] = hResul["datainscricao"]
tabela[clave][14] = hResul["categoriasocio"]
tabela[clave][15] = hResul["atividade"]
tabela[clave][16] = hResul["valorcota"]
tabela[clave][17] = hResul["cotapaga"]
tabela[clave][18] = hResul["observacoes"]
tabela[clave][19] = hResul["foto"]
hResul.MoveNext()
LOOP
CerrarConexion()
END
PRIVATE hConn AS Connection
PRIVATE FUNCTION ConectarBase() AS Boolean
IF hConn <> NULL THEN RETURN FALSE
hConn = NEW Connection
hConn.Host = "/home/abel"
hConn.Name = "banco.db"
hConn.Type = "sqlite3"
TRY hConn.Open()
IF ERROR THEN
hConn = NULL
Message.Error("Erro ao ligar base de dados")
RETURN TRUE
END IF
RETURN FALSE
END
PRIVATE SUB CerrarConexion()
IF hConn = NULL THEN RETURN
hConn.Close()
hConn = NULL
END
PUBLIC SUB txtProcNome_KeyPress()
DIM Clave AS String
ConectarBase()
IF rdbSocio.Value = TRUE THEN hResul = hConn.Exec("SELECT * from socios where nome like '%" & txtProcNome.Text & "%'")
IF rdbAtividade.Value = TRUE THEN hResul = hConn.Exec("SELECT * from socios where atividade like '%" & txtProcNome.Text & "%'")
IF rdbCategoria.Value = TRUE THEN hResul = hConn.Exec("SELECT * from socios where categoriasocio like '%" & txtProcNome.Text & "%'")
tabela.Columns.Count = hResul.Fields.Count
Tabela.Clear()
tabela.Columns.Count = 20
tabela.Columns[0].Text = "Nº"
tabela.Columns[0].Width = 45
tabela.Columns[1].Text = "Nome"
tabela.Columns[1].Width = 300
tabela.Columns[2].Text = "Data Nascimento"
tabela.Columns[2].Width = 125
tabela.Columns[2].Alignment = 35
tabela.Columns[3].Text = "Idade"
tabela.Columns[3].Width = 50
tabela.Columns[3].Alignment = 25
tabela.Columns[4].Width = 400
tabela.Columns[4].Text = "Morada"
tabela.Columns[5].Width = 100
tabela.Columns[5].Alignment = 35
tabela.Columns[5].Text = "Código Postal"
tabela.Columns[6].Width = 150
tabela.Columns[6].Alignment = 35
tabela.Columns[6].Text = "Localidade"
tabela.Columns[7].Width = 150
tabela.Columns[7].Alignment = 35
tabela.Columns[7].Text = "Freguesia"
tabela.Columns[8].Width = 150
tabela.Columns[8].Alignment = 35
tabela.Columns[8].Text = "Concelho"
tabela.Columns[9].Width = 150
tabela.Columns[9].Alignment = 35
tabela.Columns[9].Text = "País"
tabela.Columns[10].Width = 150
tabela.Columns[10].Alignment = 35
tabela.Columns[10].Text = "Telefone"
tabela.Columns[11].Width = 150
tabela.Columns[11].Alignment = 35
tabela.Columns[11].Text = "Telemovel"
tabela.Columns[12].Width = 200
tabela.Columns[12].Text = "Profissão"
tabela.Columns[13].Width = 150
tabela.Columns[13].Alignment = 35
tabela.Columns[13].Text = "Data Inscrição"
tabela.Columns[14].Width = 150
tabela.Columns[14].Alignment = 35
tabela.Columns[14].Text = "Categoria Sócio"
tabela.Columns[15].Width = 150
tabela.Columns[15].Alignment = 35
tabela.Columns[15].Text = "Actividade"
tabela.Columns[16].Width = 70
tabela.Columns[16].Alignment = 35
tabela.Columns[16].Text = "Valor Cota"
tabela.Columns[17].Width = 80
tabela.Columns[17].Alignment = 35
tabela.Columns[17].Text = "Cota Paga"
tabela.Columns[18].Width = 150
tabela.Columns[18].Text = "Observações"
tabela.Columns[19].Width = 1
tabela.Columns[19].Text = "foto"
DO WHILE hResul.Available
Clave = hResul["numero"]
tabela.Add(Clave, Clave)
tabela[Clave][1] = hResul["nome"]
tabela[clave][2] = hResul["datanascimento"]
tabela[clave][3] = hResul["idade"]
tabela[clave][4] = hResul["morada"]
tabela[clave][5] = hResul["codigopostal"]
tabela[clave][6] = hResul["localidade"]
tabela[clave][7] = hResul["freguesia"]
tabela[clave][8] = hResul["concelho"]
tabela[clave][9] = hResul["pais"]
tabela[clave][10] = hResul["telefone"]
tabela[clave][11] = hResul["telemovel"]
tabela[clave][12] = hResul["profissao"]
tabela[clave][13] = hResul["datainscricao"]
tabela[clave][14] = hResul["categoriasocio"]
tabela[clave][15] = hResul["atividade"]
tabela[clave][16] = hResul["valorcota"]
tabela[clave][17] = hResul["cotapaga"]
tabela[clave][18] = hResul["observacoes"]
tabela[clave][19] = hResul["foto"]
hResul.MoveNext()
LOOP
CerrarConexion()
END
PUBLIC SUB btnSair_Click()
Flista.Close
Finicio.Show
END
PUBLIC SUB tabela_Click()
END
PUBLIC SUB rdbSocio_Click()
txtProcNome.Enabled = TRUE
END
PUBLIC SUB rdbAtividade_Click()
txtProcNome.Enabled = TRUE
END
PUBLIC SUB rdbCategoria_Click()
txtProcNome.Enabled = TRUE
END
