hola por favor dígame cómo puedo imprimir los datos columnView
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
Solicitud De Ayuda
Page 1 of 1
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1161s (PHP: -21% SQL: 121%)
SQL queries: 23 - Debug Off - GZIP Enabled