dataGrid.... cómo lo lleno

[Bluesman74cl]

estimados:
Tengo el siguiente drama


tengo una tabla con tres campos


Id_cargo
Cod_cargo
Cargo

y debo listarlos en un dataGrid o un MsFlexgrid cómo los lleno..porque he tratado con

Datagrid1.DataSource = Recoset("Campo") y no funca por favor ayudenme masters

[aldo1982]

hola, tengo el mismo problema al kerer hacerlo mediante codigo...a mi me anda de esta forma:

pones un adocd y al datagrid en las prpoiedad recordsouerse le pones el adodc y luego en el datagrid le das boton derecho del mouse y pones recuperar campos..pero de todas formas kiero hacer una consultasql mdiant codigo para obtener datos en el datagrid y no puedo GRR

[GeoAvila]

Iniciado por Bluesman74cl

Datagrid1.DataSource = Recoset("Campo") y no funca por favor ayudenme masters

quitale el ("campo")
para que te quede así

Datagrid1.DataSource = Recoset

nos vemos.

[aldo1982]

Iniciado por GeoAvila

quitale el ("campo")
para que te quede así

Datagrid1.DataSource = Recoset

nos vemos.

o sea ke is hago una consulta sql, el datagrid toma automaticamente mi consulta ?? mas o menos como seria eso geo ?
salu2 y gracias

[aldo1982]

asi lo puse y nofunca :(((((((((

'ACÁ CARGAMO en el datagrid
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Biblioteca.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * FROM SOCIO"
Set rs = dbconn.Execute(SQL, , adCmdText)
DataGrid1.DataSource = rs
rs.Close
dbconn.Close

[Bluesman74cl]

mira..al final pude hacerlo asi

Código:

Private Sub Form_Load()
   Dim res As ADODB.Recordset
   Dim rs As ADODB.Recordset

   Set Miconexion = New ADODB.Connection
   Aux = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\desarrollo_cazo\servacar_visual\db\capacita.mdb"
   Miconexion.ConnectionString = Aux
   Miconexion.Open
   Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   
   Consulta = "select * from cargos"
   rs.Open Consulta, Miconexion, adOpenForwardOnly, adLockOptimistic
 
   Set DataGrid1.DataSource = rs
   
End Sub

[aldo1982]

Iniciado por Bluesman74cl

mira..al final pude hacerlo asi

Código:

Private Sub Form_Load()
   Dim res As ADODB.Recordset
   Dim rs As ADODB.Recordset

   Set Miconexion = New ADODB.Connection
   Aux = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\desarrollo_cazo\servacar_visual\db\capacita.mdb"
   Miconexion.ConnectionString = Aux
   Miconexion.Open
   Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   
   Consulta = "select * from cargos"
   rs.Open Consulta, Miconexion, adOpenForwardOnly, adLockOptimistic
 
   Set DataGrid1.DataSource = rs
   
End Sub

muchas gracias ombre azul (bluesman) jeejej ahora lo pruebo
salu2

[aldo1982]

me dice "el conjunto de filas no admite marcadores "
tb probe con tu codigo bluesman( hombre azul ^^ jji ) pero tb me tira un error..bue aca dejo mi codigo el cual me tira el error ke puse arriba

Dim dbconn As ADODB.Connection
Dim rs As ADODB.Recordset
'==========================
'CARGAR PROFESIONES

Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Biblioteca.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * FROM PROFESION"
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF

Set DataGrid1.DataSource = rs
rs.MoveNext
Loop
rs.Close
dbconn.Close

[GeoAvila]

Iniciado por aldo1982

me dice "el conjunto de filas no admite marcadores "
tb probe con tu codigo bluesman( hombre azul ^^ jji ) pero tb me tira un error..bue aca dejo mi codigo el cual me tira el error ke puse arriba

Dim dbconn As ADODB.Connection
Dim rs As ADODB.Recordset
'==========================
'CARGAR PROFESIONES

Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Biblioteca.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * FROM PROFESION"
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF

Set DataGrid1.DataSource = rs
rs.MoveNext
Loop
rs.Close
dbconn.Close

un consejo sería bueno que le pegues una analizadita al código y también intentes hacerlo desde nuevo para descartar errores en nombres de campos y cosas asi..

nos vemos..