Programación General > Visual Basic 6.0 e inferiores

 Cargar Datos En Un Msflexgrid1

(1/2) > >>

FAMPI_26:
: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

vbmc_2004:
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 --- Set db = OpenDatabase("", False, False, "odbc;dsn=conec;uid=sa;pwd=")Data1.Connect = "odbc;dsn=conec;uid=sa;pwd="  
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 --- Data1.Connect = "odbc;dsn=conec;uid=sa;pwd="Data1.RecordSource = ("select COD_AUTO,MARCA,MODELO,ANNO,TIPO,KM,ESTADO from AUTOS WHERE ESTADO = 'PARA VENDER' AND NUEVO = 'USADO'")  
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 --- Global db As DatabaseGlobal vista As DynasetGlobal sql As String  


bueno espero que te sirva..

chau salu2

FAMPI_26:
: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:

Sagutxo:
Salu2.
Yo activo en componentes Microsoft Flexgrid Control 6.0 sp6
Agur

vbmc_2004:
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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente