Ayuda con DataGrid
hola estoy empezando en este mundo de la programacion y me he topado con el siguiente problema:
creo una conexion manualmente
a una tabla de una BD
y quiero llenar un datagrid con el resultado de esa consulta, pero al ejecutarla me da el siguiente error:
error 7004 en tiempo de ejecucion
el conjunto de filas no admite marcadores
si alguien me puede ayudar, please??
Option Explicit
Const sPathBase = "C:DbClientes.mdb;Mode=ReadWrite;Persist security Info=False"
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
rst.Open "SELECT * FROM Ciudades WHERE
Id_Ciudad='02'", cnn, adOpenDynamic,
adLockOptimistic
Set DgrCiudades.DataSource = rst
'he aquí el problema
DgrCiudades.Columns(0).DataField = rst("Id_Ciudad")
DgrCiudades.Columns(1).DataField = rst("Descripcion")
End Sub
creo una conexion manualmente
a una tabla de una BD
y quiero llenar un datagrid con el resultado de esa consulta, pero al ejecutarla me da el siguiente error:
error 7004 en tiempo de ejecucion
el conjunto de filas no admite marcadores
si alguien me puede ayudar, please??
Option Explicit
Const sPathBase = "C:DbClientes.mdb;Mode=ReadWrite;Persist security Info=False"
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
rst.Open "SELECT * FROM Ciudades WHERE
Id_Ciudad='02'", cnn, adOpenDynamic,
adLockOptimistic
Set DgrCiudades.DataSource = rst
'he aquí el problema
DgrCiudades.Columns(0).DataField = rst("Id_Ciudad")
DgrCiudades.Columns(1).DataField = rst("Descripcion")
End Sub
