|
Página 1 de 1
|
Pequeño Problema Con Reporte De Columnview
Autor |
Mensaje |
misael
Usuario
Registrado: Agosto 2011
Mensajes: 23
Edad: 33 Ubicación: Internet
|
Pequeño Problema Con Reporte De Columnview
primero gracias por esos tutos y comentarios que e visto ya que me an ayudado mucho
pero... ya tengo 1 dia tratando de imprimir 1 Columnview en formato HTML para impimir.
lo que quiero hacer es lo siguiente.
quiero agregar 1 boton y al darle clic me gaurde el reporte que sale en el columnview.. osea todos lo que sale alli
ya e probado de todo y no me da ya el coco me duele jejeje..
e visto ejemplos e tratato de resolverlos y no e llegado a nada.. esero que me ayuden, este programita simple s el que yo tengo q presentar el lunes y no elogrado mucho.
lo stoy trabajando con mysql
' gambas class file
PUBLIC SUB Form_Open()
ComboBoxCampo.Add("nombre")
ComboBoxCampo.Add("apellido")
ComboBoxCampo.Add("cedula")
ME.Center
END
PUBLIC SUB btnbuscar_Click()
DIM resultado AS Result
DIM Clave AS String
DIM query AS String
DIM filtro AS String
IF ((NOT ComboBoxCampo.Text) OR Val(ComboBoxCampo.Text) = 0) THEN
Message.Warning("Debe especificar el nombre del Usuario")
ELSE
tabla.Clear
tabla.Columns.Count = 7
tabla.Columns[0].text = "id"
tabla.Columns[0].Width = 100
tabla.Columns[0].Alignment = Align.Center
tabla.Columns[1].text = "Nombre"
tabla.Columns[1].Alignment = Align.Center
tabla.Columns[1].Width = 220
tabla.Columns[2].text = "Apellido"
tabla.Columns[2].Alignment = Align.Center
tabla.Columns[2].Width = 220
tabla.Columns[3].text = "cedula"
tabla.Columns[3].Alignment = Align.Center
tabla.Columns[3].Width = 220
tabla.Columns[4].text = "direccion"
tabla.Columns[4].Width = 320
tabla.Columns[4].Alignment = Align.Center
tabla.Columns[5].text = "telefono"
tabla.Columns[5].Width = 220
tabla.Columns[5].Alignment = Align.Center
tabla.Columns[6].text = "celular"
tabla.Columns[6].Width = 250
tabla.Columns[6].Alignment = Align.Center
filtro = txtbuscarpaciente.Text
query = ("Select * from datos_curso.datos where " & ComboBoxcampo.Text & " like '%" & txtbuscarpaciente.Text & "%'")
conex.consulta(query)
resultado = db.Exec(query)
IF resultado.Available = FALSE THEN
Message.Info("No hay datos que coincidan con su búsqueda")
ELSE
DO WHILE resultado.Available
Clave = resultado["id"]
tabla.Add(Clave, Clave)
tabla[Clave][1] = resultado["nombre"]
tabla[Clave][2] = resultado["apellido"]
tabla[Clave][3] = resultado["cedula"]
tabla[Clave][4] = resultado["direccion"]
tabla[Clave][5] = resultado["telefono"]
tabla[Clave][6] = resultado["celular"]
resultado.MoveNext()
LOOP
ENDIF
ENDIF
END
PUBLIC SUB Button1_Click()
IF Message.Question("¿Desea salir de sistema?", "Si", "No") = 2 THEN
STOP EVENT
ELSE
ME.Close
END IF
END
|
#1 Viernes, 12 Agosto 2011, 23:57 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Pequeño Problema Con Reporte De Columnview
Yo hice en control, el supergridviews, que tiene un método que convierte el contenido del gridview a una pagina HTML,
Lo puedes ver aqui:
http://componentesgambas2.blogspot.com/2011/07/presentacion.html
Aqui tienes la entrada donde comento como pasar los datos del gridview a codigo html:
http://componentesgambas2.blogspot....nes-al_701.html
Espero que te sirva. Saludos
última edición por jsbsan el Sabado, 13 Agosto 2011, 09:19; editado 1 vez
|
#2 Sabado, 13 Agosto 2011, 09:18 |
|
|
misael
Usuario
Registrado: Agosto 2011
Mensajes: 23
Edad: 33 Ubicación: Internet
|
Re: Pequeño Problema Con Reporte De Columnview
Buenas, y gracias jsbsan por ese tuto... pero jeje siempre hay un pero -.-" e ingresado este codigo
' gambas class file
PUBLIC SUB Form_Open()
IF conex.conexion() THEN
ELSE
message.Error("Error en la conexion")
ENDIF
ComboBoxCampo.Add("cedula")
ComboBoxCampo.Add("nombre")
ComboBoxCampo.Add("apellido")
ME.Center
END
PUBLIC SUB btnbuscar_Click()
DIM resultado AS Result
DIM Clave AS String
DIM query AS String
DIM filtro AS String
IF ((NOT ComboBoxCampo.Text) OR Val(ComboBoxCampo.Text) = 0) THEN
Message.Warning("Debe especificar el nombre del Usuario")
ELSE
ColumnView1.Clear
ColumnView1.Columns.Count = 7
ColumnView1.Columns[0].text = "id"
ColumnView1.Columns[0].Width = 100
ColumnView1.Columns[0].Alignment = Align.Center
ColumnView1.Columns[1].text = "Nombre"
ColumnView1.Columns[1].Alignment = Align.Center
ColumnView1.Columns[1].Width = 220
ColumnView1.Columns[2].text = "Apellido"
ColumnView1.Columns[2].Alignment = Align.Center
ColumnView1.Columns[2].Width = 220
ColumnView1.Columns[3].text = "cedula"
ColumnView1.Columns[3].Alignment = Align.Center
ColumnView1.Columns[3].Width = 220
ColumnView1.Columns[4].text = "direccion"
ColumnView1.Columns[4].Width = 320
ColumnView1.Columns[4].Alignment = Align.Center
ColumnView1.Columns[5].text = "telefono"
ColumnView1.Columns[5].Width = 220
ColumnView1.Columns[5].Alignment = Align.Center
ColumnView1.Columns[6].text = "celular"
ColumnView1.Columns[6].Width = 250
ColumnView1.Columns[6].Alignment = Align.Center
filtro = txtbuscarpaciente.Text
query = ("Select * from datos_curso.datos where " & ComboBoxcampo.Text & " like '%" & txtbuscarpaciente.Text & "%'")
conex.consulta(query)
resultado = db.Exec(query)
IF resultado.Available = FALSE THEN
Message.Info("No hay datos que coincidan con su búsqueda")
ELSE
DO WHILE resultado.Available
Clave = resultado["id"]
ColumnView1.Add(Clave, Clave)
ColumnView1[Clave][1] = resultado["nombre"]
ColumnView1[Clave][2] = resultado["apellido"]
ColumnView1[Clave][3] = resultado["cedula"]
ColumnView1[Clave][4] = resultado["direccion"]
ColumnView1[Clave][5] = resultado["telefono"]
ColumnView1[Clave][6] = resultado["celular"]
resultado.MoveNext()
LOOP
ENDIF
ENDIF
END
PUBLIC SUB Button1_Click()
IF Message.Question("¿Desea salir de sistema?", "Si", "No") = 2 THEN
STOP EVENT
ELSE
ME.Close
END IF
END
PUBLIC SUB Button2_Click()
DIM formulario AS File
DIM nominforme AS String
DIM i, h AS Integer
DIM resultado AS Result
DIM Clave AS String
DIM query AS String
DIM filtro AS String
ColumnView1.Clear
ColumnView1.Columns.Count = 7
ColumnView1.Columns[0].text = "id"
ColumnView1.Columns[0].Width = 100
ColumnView1.Columns[0].Alignment = Align.Center
ColumnView1.Columns[1].text = "Nombre"
ColumnView1.Columns[1].Alignment = Align.Center
ColumnView1.Columns[1].Width = 220
ColumnView1.Columns[2].text = "Apellido"
ColumnView1.Columns[2].Alignment = Align.Center
ColumnView1.Columns[2].Width = 220
ColumnView1.Columns[3].text = "cedula"
ColumnView1.Columns[3].Alignment = Align.Center
ColumnView1.Columns[3].Width = 220
ColumnView1.Columns[4].text = "direccion"
ColumnView1.Columns[4].Width = 320
ColumnView1.Columns[4].Alignment = Align.Center
ColumnView1.Columns[5].text = "telefono"
ColumnView1.Columns[5].Width = 220
ColumnView1.Columns[5].Alignment = Align.Center
ColumnView1.Columns[6].text = "celular"
ColumnView1.Columns[6].Width = 250
ColumnView1.Columns[6].Alignment = Align.Center
filtro = txtbuscarpaciente.Text
query = ("Select * from datos_curso.datos where " & ComboBoxcampo.Text & " like '%" & txtbuscarpaciente.Text & "%'")
conex.consulta(query)
resultado = db.Exec(query)
IF resultado.Available = FALSE THEN
Message.Info("No hay datos que coincidan con su búsqueda")
ELSE
DO WHILE resultado.Available
Clave = resultado["id"]
ColumnView1.Add(Clave, Clave)
ColumnView1[Clave][1] = resultado["nombre"]
ColumnView1[Clave][2] = resultado["apellido"]
ColumnView1[Clave][3] = resultado["cedula"]
ColumnView1[Clave][4] = resultado["direccion"]
ColumnView1[Clave][5] = resultado["telefono"]
ColumnView1[Clave][6] = resultado["celular"]
resultado.MoveNext()
LOOP
IF (ColumnView1.Count > 0 AND ColumnView1.Columns.Count > 0) THEN
'OPEN "/tmp/informe.html" FOR WRITE CREATE AS #formulario
IF NOT Exist(User.Home &/ "informes/") THEN
TRY MKDIR User.Home &/ "informes/"
END IF
' Se Crea en /home/$USUARIO/informes/informe.html
OPEN User.Home &/ "informes/informe.html" FOR WRITE CREATE AS #formulario
nominforme = InputBox("Nombre del Encabezado del Informe")
PRINT #formulario, "<html><head><title>" & nominforme & "</title></head>"
PRINT #formulario, "<body>"
PRINT #formulario, "<script>"
PRINT #formulario, "var i=1;"
PRINT #formulario, "var titulooriginal = document.title;"
PRINT #formulario, "function cambiarTitulo()"
PRINT #formulario, "{"
PRINT #formulario, "document.title = titulooriginal.substring(0,i);"
PRINT #formulario, "i++;"
PRINT #formulario, "if (i>titulooriginal.length) i=0;"
PRINT #formulario, "setTimeout('cambiarTitulo()',250);"
PRINT #formulario, "}"
PRINT #formulario, "cambiarTitulo();"
PRINT #formulario, "</script>"
PRINT #formulario, "<table><tr><td><img></td><td><h1>" & nominforme & "</h1></td></tr></table>"
PRINT #formulario, "<table border='1'><tr>"
FOR i = 0 TO (ColumnView1.Columns.Count - 1)
PRINT #formulario, "<td align='center'>" & ColumnView1.Columns[i].Text & "</td>"
NEXT
PRINT #formulario, "</tr>"
FOR i = 0 TO (ColumnView1.Count - 1)
PRINT #formulario, "<tr>"
FOR h = 0 TO (ColumnView1.Columns.Count - 1)
PRINT #formulario, "<td>" & ColumnView1[Clave][h] & "</td>"
NEXT
PRINT #formulario, "</tr>"
NEXT
PRINT #formulario, "</table>"
PRINT #formulario, "<p> Reporte Impreso el Dia: " & Date & "</p>"
PRINT #formulario, "<input>"
PRINT #formulario, "</body></html>"
CLOSE #formulario
'EXEC ["iceweasel", User.Home &/ "informes/informe.html"]
Desktop.Open(User.Home &/ "informes/informe.html")
ENDIF
ENDIF
END
asta ahora no e logrado nada :S nose que pasa lo que quiero imprimir es todo lo q sal en el columnview osea esto!
añadi el botton y al darle clic me genera el html perooooooo.... vean lo que me sale! no me gaurada todos los pacientes solo el ultimo! y quiero que guarde todos
me gustaria que me ayudaran en el codigo xfavor. este proyecto lo tengo q entrgar este lunes y hoy es sabado "venezuela"
saludos y gracias espero comentarios y una ayudita..
|
#3 Sabado, 13 Agosto 2011, 19:23 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Pequeño Problema Con Reporte De Columnview
Creo que el error esta aqui:
FOR i = 0 TO (ColumnView1.Count - 1)
PRINT #formulario, "<tr>"
FOR h = 0 TO (ColumnView1.Columns.Count - 1)
PRINT #formulario, "<td>" & ColumnView1[Clave][h] & "</td>" ' <-- Error
NEXT
PRINT #formulario, "</tr>"
NEXT
Creo que [Clave], no lo puedes usar aqui, y debes de usar la propiedad rows.count del columnview
for Fila=0 to ColumnView1.rows.count-1
PRINT #formulario, "<tr>"
FOR h = 0 TO (ColumnView1.Columns.Count - 1)
PRINT #formulario, "<td>" & ColumnView1[Fila][h] & "</td>" ' <-- CORREGIDO...
NEXT
PRINT #formulario, "</tr>"
NEXT
A ver si es eso.
Saludos
Echale un vistazo: a:
Enlace Manuales del antiguo foro de Soplo
Hay hay mucha información de varios controles, entre ellos el columview
última edición por jsbsan el Sabado, 13 Agosto 2011, 19:51; editado 3 veces
|
#4 Sabado, 13 Agosto 2011, 19:38 |
|
|
misael
Usuario
Registrado: Agosto 2011
Mensajes: 23
Edad: 33 Ubicación: Internet
|
Re: Pequeño Problema Con Reporte De Columnview
si agrego esto me dic too many argument
PRINT #formulario, "<td>" & ColumnView1[i, h].Text & "</td>"
si agrgo esto me dic null key
PRINT #formulario, "<td>" & ColumnView1[i], [h].Text & "</td>"
y si agrego sale null key
PRINT #formulario, "<td>" & ColumnView1[i].Text & "</td>"
ya no ayo que escribir :S donde cres q sea el problema mi amigo?
última edición por misael el Sabado, 13 Agosto 2011, 19:50; editado 1 vez
|
#5 Sabado, 13 Agosto 2011, 19:49 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Pequeño Problema Con Reporte De Columnview
mirate otra vez el codigo que lo he corregido...
|
#6 Sabado, 13 Agosto 2011, 19:53 |
|
|
misael
Usuario
Registrado: Agosto 2011
Mensajes: 23
Edad: 33 Ubicación: Internet
|
Re: Pequeño Problema Con Reporte De Columnview
lo agrege de la siguientemanera
y sale lo siguiente...
y aqui le dejo el codigo nuevamente a ver
' gambas class file
PUBLIC SUB Form_Open()
IF conex.conexion() THEN
ELSE
message.Error("Error en la conexion")
ENDIF
ComboBoxCampo.Add("cedula")
ComboBoxCampo.Add("nombre")
ComboBoxCampo.Add("apellido")
ME.Center
END
PUBLIC SUB btnbuscar_Click()
DIM resultado AS Result
DIM Clave AS String
DIM query AS String
DIM filtro AS String
IF ((NOT ComboBoxCampo.Text) OR Val(ComboBoxCampo.Text) = 0) THEN
Message.Warning("Debe especificar el nombre del Usuario")
ELSE
ColumnView1.Clear
ColumnView1.Columns.Count = 7
ColumnView1.Columns[0].text = "id"
ColumnView1.Columns[0].Width = 100
ColumnView1.Columns[0].Alignment = Align.Center
ColumnView1.Columns[1].text = "Nombre"
ColumnView1.Columns[1].Alignment = Align.Center
ColumnView1.Columns[1].Width = 220
ColumnView1.Columns[2].text = "Apellido"
ColumnView1.Columns[2].Alignment = Align.Center
ColumnView1.Columns[2].Width = 220
ColumnView1.Columns[3].text = "cedula"
ColumnView1.Columns[3].Alignment = Align.Center
ColumnView1.Columns[3].Width = 220
ColumnView1.Columns[4].text = "direccion"
ColumnView1.Columns[4].Width = 320
ColumnView1.Columns[4].Alignment = Align.Center
ColumnView1.Columns[5].text = "telefono"
ColumnView1.Columns[5].Width = 220
ColumnView1.Columns[5].Alignment = Align.Center
ColumnView1.Columns[6].text = "celular"
ColumnView1.Columns[6].Width = 250
ColumnView1.Columns[6].Alignment = Align.Center
filtro = txtbuscarpaciente.Text
query = ("Select * from datos_curso.datos where " & ComboBoxcampo.Text & " like '%" & txtbuscarpaciente.Text & "%'")
conex.consulta(query)
resultado = db.Exec(query)
IF resultado.Available = FALSE THEN
Message.Info("No hay datos que coincidan con su búsqueda")
ELSE
DO WHILE resultado.Available
Clave = resultado["id"]
ColumnView1.Add(Clave, Clave)
ColumnView1[Clave][1] = resultado["nombre"]
ColumnView1[Clave][2] = resultado["apellido"]
ColumnView1[Clave][3] = resultado["cedula"]
ColumnView1[Clave][4] = resultado["direccion"]
ColumnView1[Clave][5] = resultado["telefono"]
ColumnView1[Clave][6] = resultado["celular"]
resultado.MoveNext()
LOOP
ENDIF
ENDIF
END
PUBLIC SUB Button1_Click()
IF Message.Question("¿Desea salir de sistema?", "Si", "No") = 2 THEN
STOP EVENT
ELSE
ME.Close
END IF
END
PUBLIC SUB Button2_Click()
DIM formulario AS File
DIM nominforme AS String
DIM i, h AS Integer
DIM fila AS String
DIM resultado AS Result
DIM Clave AS String
DIM query AS String
DIM filtro AS String
ColumnView1.Clear
ColumnView1.Columns.Count = 7
ColumnView1.Columns[0].text = "id"
ColumnView1.Columns[0].Width = 100
ColumnView1.Columns[0].Alignment = Align.Center
ColumnView1.Columns[1].text = "Nombre"
ColumnView1.Columns[1].Alignment = Align.Center
ColumnView1.Columns[1].Width = 220
ColumnView1.Columns[2].text = "Apellido"
ColumnView1.Columns[2].Alignment = Align.Center
ColumnView1.Columns[2].Width = 220
ColumnView1.Columns[3].text = "cedula"
ColumnView1.Columns[3].Alignment = Align.Center
ColumnView1.Columns[3].Width = 220
ColumnView1.Columns[4].text = "direccion"
ColumnView1.Columns[4].Width = 320
ColumnView1.Columns[4].Alignment = Align.Center
ColumnView1.Columns[5].text = "telefono"
ColumnView1.Columns[5].Width = 220
ColumnView1.Columns[5].Alignment = Align.Center
ColumnView1.Columns[6].text = "celular"
ColumnView1.Columns[6].Width = 250
ColumnView1.Columns[6].Alignment = Align.Center
filtro = txtbuscarpaciente.Text
query = ("Select * from datos_curso.datos where " & ComboBoxcampo.Text & " like '%" & txtbuscarpaciente.Text & "%'")
conex.consulta(query)
resultado = db.Exec(query)
IF resultado.Available = FALSE THEN
Message.Info("No hay datos que coincidan con su búsqueda")
ELSE
DO WHILE resultado.Available
Clave = resultado["id"]
ColumnView1.Add(Clave, Clave)
ColumnView1[Clave][1] = resultado["nombre"]
ColumnView1[Clave][2] = resultado["apellido"]
ColumnView1[Clave][3] = resultado["cedula"]
ColumnView1[Clave][4] = resultado["direccion"]
ColumnView1[Clave][5] = resultado["telefono"]
ColumnView1[Clave][6] = resultado["celular"]
resultado.MoveNext()
LOOP
IF (ColumnView1.Count > 0 AND ColumnView1.Columns.Count > 0) THEN
'OPEN "/tmp/informe.html" FOR WRITE CREATE AS #formulario
IF NOT Exist(User.Home &/ "informes/") THEN
TRY MKDIR User.Home &/ "informes/"
END IF
' Se Crea en /home/$USUARIO/informes/informe.html
OPEN User.Home &/ "informes/informe.html" FOR WRITE CREATE AS #formulario
nominforme = InputBox("Nombre del Encabezado del Informe")
PRINT #formulario, "<html><head><title>" & nominforme & "</title></head>"
PRINT #formulario, "<body>"
PRINT #formulario, "<script>"
PRINT #formulario, "var i=1;"
PRINT #formulario, "var titulooriginal = document.title;"
PRINT #formulario, "function cambiarTitulo()"
PRINT #formulario, "{"
PRINT #formulario, "document.title = titulooriginal.substring(0,i);"
PRINT #formulario, "i++;"
PRINT #formulario, "if (i>titulooriginal.length) i=0;"
PRINT #formulario, "setTimeout('cambiarTitulo()',250);"
PRINT #formulario, "}"
PRINT #formulario, "cambiarTitulo();"
PRINT #formulario, "</script>"
PRINT #formulario, "<table><tr><td><img></td><td><h1>" & nominforme & "</h1></td></tr></table>"
PRINT #formulario, "<table border='1'><tr>"
FOR i = 0 TO (ColumnView1.Columns.Count - 1)
PRINT #formulario, "<td align='center'>" & ColumnView1.Columns[i].Text & "</td>"
NEXT
PRINT #formulario, "</tr>"
FOR Fila = 0 TO ColumnView1.rows.count - 1
PRINT #formulario, "<tr>"
FOR h = 0 TO (ColumnView1.Columns.Count - 1)
PRINT #formulario, "<td>" & ColumnView1[Fila][h] & "</td>" ' <-- CORREGIDO...
NEXT
PRINT #formulario, "</tr>"
NEXT
PRINT #formulario, "</table>"
PRINT #formulario, "<p> Reporte Impreso el Dia: " & Date & "</p>"
PRINT #formulario, "<input>"
PRINT #formulario, "</body></html>"
CLOSE #formulario
'EXEC ["iceweasel", User.Home &/ "informes/informe.html"]
Desktop.Open(User.Home &/ "informes/informe.html")
ENDIF
ENDIF
END
:'(
|
#7 Sabado, 13 Agosto 2011, 19:58 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Pequeño Problema Con Reporte De Columnview
Se supone (por el manual de soplo) que funciona asi el columview....
¿porque no usas un gridviews? (es el que yo manejo normalmente, y no me da muchos problemas)
¿has buscado en el foro el uso del columview?
Yo creo que el problema esta en el uso del componente....
|
#8 Sabado, 13 Agosto 2011, 20:03 |
|
|
misael
Usuario
Registrado: Agosto 2011
Mensajes: 23
Edad: 33 Ubicación: Internet
|
Re: Pequeño Problema Con Reporte De Columnview
bueno mi querido amigo amenos logre medio acomodar el programa jjeje gracias... asi quedo
ahora una pregntita... como deberia hacer para que en el gridviews me algan todos los datos de la db? osea nombre de todos los usuarios.?
se qu es con 2 for pero cmo seria?
aqui le dejo el code a ver si lo mejora
' gambas class file
PUBLIC id AS Integer
PUBLIC datos AS String
PUBLIC descripcion AS String
PUBLIC FUNCTION cargardat(id AS Integer, datos AS String, descripcion AS String)
GridView1[id, 0].Text = datos
GridView1[id, 1].Text = descripcion
GridView1.Refresh()
END
PUBLIC SUB Form_Open()
IF conex.conexion() THEN
ELSE
message.Error("Error en la conexion")
ENDIF
ComboBoxCampo.Add("cedula")
ComboBoxCampo.Add("nombre")
'columnas de gridview
WITH gridView1
.Columns.Count = 2
.Columns[0].Text = "Datos"
.Columns[0].Width = 170
.Columns[1].Text = "Descripcion"
.Columns[1].Width = 270
.Rows.Count = 8
END WITH
gridView1[0, 0].Alignment = Align.Left
gridView1[0, 0].Text = "Nombre:"
gridView1[1, 0].Alignment = Align.Left
gridView1[1, 0].Text = "Apellido:"
gridView1[2, 0].Alignment = Align.Left
gridView1[2, 0].Text = "Cedula:"
gridView1[3, 0].Alignment = Align.Left
gridView1[3, 0].Text = "Fecha De Nacimiento:"
gridView1[4, 0].Alignment = Align.Left
gridView1[4, 0].Text = "Direccion:"
gridView1[5, 0].Alignment = Align.Left
gridView1[5, 0].Text = "Telefono:"
gridView1[6, 0].Alignment = Align.Left
gridView1[6, 0].Text = "Celular N:"
gridView1[7, 0].Alignment = Align.Left
gridView1[7, 0].Text = "Fecha De Registro:"
ME.Center
END
PUBLIC SUB btnbuscar_Click()
DIM query AS String
DIM resultado AS Result
IF (txtbuscarpaciente.Text = "") THEN
message.Info("Debe Introducir cedula/nombre a buscar")
ELSE
query = "Select * from datos_curso.datos where " & ComboBoxcampo.Text & " like '%" & txtbuscarpaciente.Text & "%'"
resultado = db.Exec(query)
IF resultado.Count > 0 THEN
cargardat(id, datos, descripcion)
gridView1[0, 0].Alignment = Align.Left
gridView1[0, 0].Text = "Nombre:"
gridView1[0, 1].Alignment = Align.Normal
gridView1[0, 1].Text = resultado["nombre"]
gridView1[1, 0].Alignment = Align.Left
gridView1[1, 0].Text = "Apellido:"
gridView1[1, 1].Alignment = Align.Normal
gridView1[1, 1].Text = resultado["apellido"]
gridView1[2, 0].Alignment = Align.Left
gridView1[2, 0].Text = "Cedula:"
gridView1[2, 1].Alignment = Align.Normal
gridView1[2, 1].Text = resultado["cedula"]
gridView1[3, 0].Alignment = Align.Left
gridView1[3, 0].Text = "Fecha De Nacimiento:"
gridView1[3, 1].Alignment = Align.Normal
gridView1[3, 1].Text = resultado["fechanacimiento"]
gridView1[4, 0].Alignment = Align.Left
gridView1[4, 0].Text = "Direccion:"
gridView1[4, 1].Alignment = Align.Normal
gridView1[4, 1].Text = resultado["direccion"]
gridView1[5, 0].Alignment = Align.Left
gridView1[5, 0].Text = "Telefono:"
gridView1[5, 1].Alignment = Align.Normal
gridView1[5, 1].Text = resultado["telefono"]
gridView1[6, 0].Alignment = Align.Left
gridView1[6, 0].Text = "Celular N:"
gridView1[6, 1].Alignment = Align.Normal
gridView1[6, 1].Text = resultado["celular"]
gridView1[7, 0].Alignment = Align.Left
gridView1[7, 0].Text = "Fecha De Registro:"
gridView1[7, 1].Alignment = Align.Normal
gridView1[7, 1].Text = resultado["fecha"]
ELSE
message.Info("El registro no se encuentra en la base de datos")
ENDIF
ENDIF
END
PUBLIC SUB btnsalirx_Click()
IF Message.Question("¿Desea salir de sistema?", "Si", "No") = 2 THEN
STOP EVENT
ELSE
ME.Close
END IF
END
gracias!!!!
|
#9 Sabado, 13 Agosto 2011, 21:34 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Pequeño Problema Con Reporte De Columnview
Busca en el foro, que hay gente que tiene subido programas "completos" sobre bases de datos.
Puedes ver unos video tutoriales que hice sobre el uso de una base de datos, donde explicaba todo el programa completo:
http://jsbsan.blogspot.com/2011/02/...de-base-de.html
Saludos
|
#10 Domingo, 14 Agosto 2011, 08:13 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No 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
|
|
|
|
|