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
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4158s (PHP: -80% SQL: 180%)
Consultas SQL: 45 - Debug off - GZIP Activado