consultas,,, se puede ?
Publicado por olaya (5 intervenciones) el 03/02/2005 23:42:23
tengo una consulta que estoy haciendo en un base de datos en mysql y los datos me lo debe mostrar en un MSFlexGrid, pero no se como lo muestro en el MSFlexGrid, engo este codigo que obtuve de mysql.com ,, la consulta la hace perfecta pero nose como mostrarlo en una tabla o un MSFlexGrid...si hay otra forma ,, porfavor ayuda
Private Sub Form_Load()
With R1 'R1 es un MSFlexGrid
.Cols = 4
.Row = 0
.Row = 0
.Col = 0
.Text = "id"
.Row = 0
.Col = 1
.Text = "Campo1"
.Row = 0
.Col = 2
.Text = "Campo2"
.Row = 0
.Col = 3
.Text = "Campo3"
End With
Call CONEX ' llama la funcion de conexion a la base de datos,
' ya esta todo declarado recorset, connection.....
rs.Open "SELECT * FROM tabla1", CONN
rs.MoveFirst
R1.Col = 0
R1.Row = 1
b = 0
a = 2
Do Until rs.EOF
b = 0
For Each fld In rs.Fields
R1.Text = fld
R1.Rows = a + 1
R1.Row = a
a = a + 1
Next
R1.Col = b
b = b + 1
rs.MoveNext
Loop
nos e que hacer, si hay otra forma porfa....
Private Sub Form_Load()
With R1 'R1 es un MSFlexGrid
.Cols = 4
.Row = 0
.Row = 0
.Col = 0
.Text = "id"
.Row = 0
.Col = 1
.Text = "Campo1"
.Row = 0
.Col = 2
.Text = "Campo2"
.Row = 0
.Col = 3
.Text = "Campo3"
End With
Call CONEX ' llama la funcion de conexion a la base de datos,
' ya esta todo declarado recorset, connection.....
rs.Open "SELECT * FROM tabla1", CONN
rs.MoveFirst
R1.Col = 0
R1.Row = 1
b = 0
a = 2
Do Until rs.EOF
b = 0
For Each fld In rs.Fields
R1.Text = fld
R1.Rows = a + 1
R1.Row = a
a = a + 1
Next
R1.Col = b
b = b + 1
rs.MoveNext
Loop
nos e que hacer, si hay otra forma porfa....
Valora esta pregunta


0