SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FAMPI_26 en Sábado 8 de Enero de 2005, 03:17

Título: Cargar Datos En Un Msflexgrid1
Publicado por: FAMPI_26 en Sábado 8 de Enero de 2005, 03:17
:unsure:  hola que tal , bueno mi pregunta va dirigida a cargar datos en MSFlexGrid1 desde sql, por ejemplo para jalar una tabla en un datagrid el codigo seria

--------------------------------------------------------
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "user id=sa" _
 & ";data source=(local)" _
 & ";initial catalog = Base de datos"
 cn.Open
Set RS = New ADODB.Recordset
RS.ActiveConnection = cn
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.Open "select * from TABLA"
Set DataGrid1.DataSource = rs
-------------------------------------------------------

PERO UN MSFlexGrid1 NO ES LO MISMO

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "user id=sa" _
 & ";data source=(local)" _
 & ";initial catalog = Base de datos"
 cn.Open
Set RS = New ADODB.Recordset
RS.ActiveConnection = cn
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.Open "select * from TABLA"
Set MSFlexGrid1.DataSource = RS ( AQUI ME APARECE UN ERROR )

POR FAVOR ME PODRIAN AYUDAR
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: vbmc_2004 en Sábado 8 de Enero de 2005, 20:37
sabes no me quedo muy claro como lo estas haciendo.... pero no importa... te cuento como lo hago yo y creo que es mas facil pero no se que es la mejor opcion

yo lo hago con una conexion ODBC, y luego en el form principla del proyecto coloco este codigo de conexion a la base de datos que esta en el servidor bueno este codigo pero lo utilice como en una maquina local
Código: Text
  1.  
  2. Set db = OpenDatabase("", False, False, "odbc;dsn=conec;uid=sa;pwd=")
  3. Data1.Connect = "odbc;dsn=conec;uid=sa;pwd="
  4.  
  5.  

ese Data1 es el objeto que me sirve para conectarme a la base de datos en el servidor SQL

luego para cargar los datos a un msflexgrid coloco el las siguientes lineas de codigo
Código: Text
  1.  
  2. Data1.Connect = "odbc;dsn=conec;uid=sa;pwd="
  3. Data1.RecordSource = ("select COD_AUTO,MARCA,MODELO,ANNO,TIPO,KM,ESTADO from AUTOS WHERE ESTADO = 'PARA VENDER' AND NUEVO = 'USADO'")
  4.  
  5.  

de esta manero solo estoy mostrando los datos en la grilla o msflexgrid, con su correspondiente consulta claro.....

haa se me olvida te doy las variables que las coloco en un modulo

Código: Text
  1.  
  2. Global db As Database
  3. Global vista As Dynaset
  4. Global sql As String
  5.  
  6.  



bueno espero que te sirva..

chau salu2
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: FAMPI_26 en Domingo 9 de Enero de 2005, 03:37
:hola: vbmc_2004 gracias por la informacion , pero quisiera saber cuales librerias activo
en referencias , ya que como habras visto , el codigo que yo uso es diferente al tuyo  :comp:
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: Sagutxo en Domingo 9 de Enero de 2005, 11:37
Salu2.
Yo activo en componentes Microsoft Flexgrid Control 6.0 sp6
Agur
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: vbmc_2004 en Martes 11 de Enero de 2005, 02:39
Sorry.. perdon olvide las referencias.... disculpa...

esta es la referencia y lo que te pase de codigo debe funcionar la rutina de acceso al la base de datos en SQL accesando a una grilla:

<Microsoft DAO 2.5/3.51 Compatibility Library>

creo que deberias desmarcar  este si es que estuviera marcado...
<Microsoft DAO 3.51 Object Library>


chau que estes bien espero te sirva..

salu2

atte
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: FAMPI_26 en Martes 11 de Enero de 2005, 05:41
:hola:  VBMC 2004 , BUENO ESTUVE PROBANDO EL CODIGO QUE ME DISTE , Y SIN EMBARGO ME SIGUEN SALIENDO ERRORES , TU CREES QUE ME PUEDES EN VIAR UN EJEMPLO YA HECHO , POR EJEMPLO : QUE PUEDA VER LA TABLA CUSTOMERS , DE LA BASE DE DATOS NORTHWIND EN UN MSFlexGrid

TE LO AGRADEZCO DE ANTEMANO   :D

 :whistling:
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: Brroz en Martes 11 de Enero de 2005, 15:28
Hola.

Rellenar un flexgrid con los registros de un recordset es algo que debe de hacerse 'a pedal' recorriendo el recordset y rellenando las correspondientes filas/columnas con sus respectivos valores.

Por ejemplo, resumiendo:
Código: Text
  1.  
  2. Public Sub EncherGrid(Byref flx1 as MsFlexGrid, Byref rs1 As Recordset)
  3.  
  4.     If flx1 is nothing or rs1 is nothing then exit sub
  5.  
  6.     flx1.Clear
  7.     flx1.Row = 0
  8.     flx1.Col = 0
  9.  
  10.     rs1.MoveFirst
  11.  
  12.     Dim lRow As Long, lCol As Long
  13.  
  14.     flx1.Cols = rs1.Fields.Count + 1
  15.     flx1.Rows = rs1.RecordCount + 1
  16.  
  17.     For lCol = 1 To flx1.Cols - 1
  18.         flx1.TextMatrix(0, lCol) = rs1.Fields(l1).Name
  19.     Next lng1
  20.    
  21.     Do Until rs1.EOF
  22.         lRow = lRow + 1
  23.         flx1.TextMatrix(lRow, 0) = lRow
  24.         For lCol = 1 To flx1.Cols - 1
  25.             flx1.TextMatrix(lRow, lCol) = rs1.Fields(lCol - 1).Value
  26.         Next lCol
  27.         rs1.MoveNext
  28.     Loop
  29. End Sub
  30.  
  31.  

Espero que os sirva.

Chao.
Título: Re: Cargar Datos En Un Msflexgrid1
Publicado por: vbmc_2004 en Domingo 16 de Enero de 2005, 03:17
Hola disculpa estuve sin
internet
te lo envio a mas tardar mañana domingo 16-01-2005 haaa otra cosa dime cual es el error que te da??


chau
y salu2
atte.