Tachira
Aqui en la forma open para cargar los datos en la base de datos en la tableview:
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM fila AS Integer
DIM textos AS NEW String[]
DIM numer AS Integer
tabla.Header = TRUE
ME.Center
IF coneccion.conectarbase() THEN RETURN
tabla.Clear()
tabla.Columns.Count = 16
tabla.Columns[0].Text = "ID"
tabla.Columns[1].Text = "codigo"
tabla.Columns[2].Text = "cedula"
tabla.Columns[3].Text = "nombres"
tabla.Columns[4].Text = "apellidos"
tabla.Columns[5].Text = "direccion"
tabla.Columns[6].Text = "codigo_cel"
tabla.Columns[7].Text = "telefonos"
tabla.Columns[8].Text = "sexo"
tabla.Columns[9].Text = "programa"
tabla.Columns[10].Text = "fecha_ingreso"
tabla.Columns[11].Text = "fecha_asistencia"
tabla.Columns[12].Text = "dia_semanas"
tabla.Columns[13].Text = "hora_entrada"
tabla.Columns[14].Text = "hora_salida"
tabla.Columns[15].Text = "horario"
fila = fila + 1
tabla.Refresh
END
DIM i AS Integer
DIM fila AS Integer
DIM textos AS NEW String[]
DIM numer AS Integer
tabla.Header = TRUE
ME.Center
IF coneccion.conectarbase() THEN RETURN
tabla.Clear()
tabla.Columns.Count = 16
tabla.Columns[0].Text = "ID"
tabla.Columns[1].Text = "codigo"
tabla.Columns[2].Text = "cedula"
tabla.Columns[3].Text = "nombres"
tabla.Columns[4].Text = "apellidos"
tabla.Columns[5].Text = "direccion"
tabla.Columns[6].Text = "codigo_cel"
tabla.Columns[7].Text = "telefonos"
tabla.Columns[8].Text = "sexo"
tabla.Columns[9].Text = "programa"
tabla.Columns[10].Text = "fecha_ingreso"
tabla.Columns[11].Text = "fecha_asistencia"
tabla.Columns[12].Text = "dia_semanas"
tabla.Columns[13].Text = "hora_entrada"
tabla.Columns[14].Text = "hora_salida"
tabla.Columns[15].Text = "horario"
fila = fila + 1
tabla.Refresh
END
Luego para mostrar los datos consultados en ese momento con el boton ver registro etc:
PUBLIC SUB Button6_Click()
DIM fila AS Integer
coneccion.asisresul = coneccion.asiscon.Exec("Select *from asistencia_asesores")
fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["ID"]
tabla[fila, 1].Text = coneccion.asisresul["codigo"]
tabla[fila, 2].Text = coneccion.asisresul["cedula"]
tabla[fila, 3].Text = coneccion.asisresul["nombres"]
tabla[fila, 4].Text = coneccion.asisresul["apellidos"]
tabla[fila, 5].Text = coneccion.asisresul["direccion"]
tabla[fila, 6].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 7].Text = coneccion.asisresul["telefonos"]
tabla[fila, 8].Text = coneccion.asisresul["sexo"]
tabla[fila, 9].Text = coneccion.asisresul["programa"]
tabla[fila, 10].Text = coneccion.asisresul["fecha_ingreso"]
tabla[fila, 11].Text = coneccion.asisresul["fecha_asistencia"]
tabla[fila, 12].Text = coneccion.asisresul["dias_semana"]
tabla[fila, 13].Text = coneccion.asisresul["hora_entrada"]
tabla[fila, 14].Text = coneccion.asisresul["hora_salida"]
tabla[fila, 15].Text = coneccion.asisresul["horario"]
coneccion.asisresul.MoveNext()
fila = fila + 1
LOOP
tabla.Refresh
END
DIM fila AS Integer
coneccion.asisresul = coneccion.asiscon.Exec("Select *from asistencia_asesores")
fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["ID"]
tabla[fila, 1].Text = coneccion.asisresul["codigo"]
tabla[fila, 2].Text = coneccion.asisresul["cedula"]
tabla[fila, 3].Text = coneccion.asisresul["nombres"]
tabla[fila, 4].Text = coneccion.asisresul["apellidos"]
tabla[fila, 5].Text = coneccion.asisresul["direccion"]
tabla[fila, 6].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 7].Text = coneccion.asisresul["telefonos"]
tabla[fila, 8].Text = coneccion.asisresul["sexo"]
tabla[fila, 9].Text = coneccion.asisresul["programa"]
tabla[fila, 10].Text = coneccion.asisresul["fecha_ingreso"]
tabla[fila, 11].Text = coneccion.asisresul["fecha_asistencia"]
tabla[fila, 12].Text = coneccion.asisresul["dias_semana"]
tabla[fila, 13].Text = coneccion.asisresul["hora_entrada"]
tabla[fila, 14].Text = coneccion.asisresul["hora_salida"]
tabla[fila, 15].Text = coneccion.asisresul["horario"]
coneccion.asisresul.MoveNext()
fila = fila + 1
LOOP
tabla.Refresh
END
Es sobre como guardar en HTML lo que muestres en un formulario con Tableview es bueno para guardar reportes para imrprimir y hasta del personal registrado.
PUBLIC SUB Button2_Click()
DIM ruta AS String
DIM archivo AS File
DIM i, j AS Integer
ruta = User.Home &/ "Reporte de Asistencia Asesores.html"
Message.Warning("RECUERDE GUARDAR CADA REPORTE APARTE, DEBIDO A QUE SOBRECRIBE EL ANTERIOR!")
IF Message.Question(" ¿DESEA GUARDAR UN REPORTE DE ASISTENCIA?", "SI", "NO") = 1 THEN
OPEN ruta FOR WRITE CREATE AS #archivo
PRINT #archivo, "<html>"
PRINT #archivo, "<head><title>Reporte en HTML de Asistencias</title></head>"
PRINT #archivo, "<body topmargin='0' leftmargin='0'"
PRINT #archivo, ">"
PRINT #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='2'>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td colspan='20' align='center'>"
PRINT #archivo, " <h3>Listado de Asistencias</h3>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td align='center'>ID</td>"
PRINT #archivo, " <td align='center'>Codigo</td>"
PRINT #archivo, " <td align='center'>Cedula</td>"
PRINT #archivo, " <td align='center'>Nombres</td>"
PRINT #archivo, " <td align='center'>Apellidos</td>"
PRINT #archivo, " <td align='center'>Direccion</td>"
PRINT #archivo, " <td align='center'>Codigo del telefono</td>"
PRINT #archivo, " <td align='center'>Telefono</td>"
PRINT #archivo, " <td align='center'>Sexo</td>"
PRINT #archivo, " <td align='center'>Programa</td>"
PRINT #archivo, " <td align='center'>Fecha de Ingreso</td>"
PRINT #archivo, " <td align='center'>Fecha de Asistencia</td>"
PRINT #archivo, " <td align='center'>Dias de Semana</td>"
PRINT #archivo, " <td align='center'>Hora de Entrada</td>"
PRINT #archivo, " <td align='center'>Hora de Salida</td>"
PRINT #archivo, " <td align='center'>Horario</td>"
PRINT #archivo, " </tr>"
FOR i = 0 TO tabla.rows.Count - 1
PRINT #archivo, " <tr>"
FOR j = 0 TO tabla.Columns.Count - 1
PRINT #archivo, " <td>" & tabla[i, j].Text & "</td>"
NEXT
PRINT #archivo, " </tr>"
NEXT
PRINT #archivo, "</table>"
PRINT #archivo, "</body>"
PRINT #archivo, "</html>"
CLOSE #archivo
Message.Info("SE HA CREADO UN REPORTE EN MODO HTML CON ÉXITO (GUARDADO EN EL DIRECTORIO PRINCIPAL)")
ENDIF
END
DIM ruta AS String
DIM archivo AS File
DIM i, j AS Integer
ruta = User.Home &/ "Reporte de Asistencia Asesores.html"
Message.Warning("RECUERDE GUARDAR CADA REPORTE APARTE, DEBIDO A QUE SOBRECRIBE EL ANTERIOR!")
IF Message.Question(" ¿DESEA GUARDAR UN REPORTE DE ASISTENCIA?", "SI", "NO") = 1 THEN
OPEN ruta FOR WRITE CREATE AS #archivo
PRINT #archivo, "<html>"
PRINT #archivo, "<head><title>Reporte en HTML de Asistencias</title></head>"
PRINT #archivo, "<body topmargin='0' leftmargin='0'"
PRINT #archivo, ">"
PRINT #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='2'>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td colspan='20' align='center'>"
PRINT #archivo, " <h3>Listado de Asistencias</h3>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td align='center'>ID</td>"
PRINT #archivo, " <td align='center'>Codigo</td>"
PRINT #archivo, " <td align='center'>Cedula</td>"
PRINT #archivo, " <td align='center'>Nombres</td>"
PRINT #archivo, " <td align='center'>Apellidos</td>"
PRINT #archivo, " <td align='center'>Direccion</td>"
PRINT #archivo, " <td align='center'>Codigo del telefono</td>"
PRINT #archivo, " <td align='center'>Telefono</td>"
PRINT #archivo, " <td align='center'>Sexo</td>"
PRINT #archivo, " <td align='center'>Programa</td>"
PRINT #archivo, " <td align='center'>Fecha de Ingreso</td>"
PRINT #archivo, " <td align='center'>Fecha de Asistencia</td>"
PRINT #archivo, " <td align='center'>Dias de Semana</td>"
PRINT #archivo, " <td align='center'>Hora de Entrada</td>"
PRINT #archivo, " <td align='center'>Hora de Salida</td>"
PRINT #archivo, " <td align='center'>Horario</td>"
PRINT #archivo, " </tr>"
FOR i = 0 TO tabla.rows.Count - 1
PRINT #archivo, " <tr>"
FOR j = 0 TO tabla.Columns.Count - 1
PRINT #archivo, " <td>" & tabla[i, j].Text & "</td>"
NEXT
PRINT #archivo, " </tr>"
NEXT
PRINT #archivo, "</table>"
PRINT #archivo, "</body>"
PRINT #archivo, "</html>"
CLOSE #archivo
Message.Info("SE HA CREADO UN REPORTE EN MODO HTML CON ÉXITO (GUARDADO EN EL DIRECTORIO PRINCIPAL)")
ENDIF
END
Saludos
dos hermanas, sevilla
