problema con datagrid
Publicado por james (149 intervenciones) el 23/09/2006 17:21:50
la siguiente sentencia :
Visual basic 6.0 y acces xp
Public Function ORDENAR()
Dim rsoRDeNAR As ADODB.Recordset
Dim sqlORDENAR As String
Set rsoRDeNAR = New ADODB.Recordset
rsoRDeNAR.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYS\BD\PPTOS.mdb;Persist Security Info=False;Jet OLEDB:Database Password=12345678"
sqlORDENAR = "Select * from PPTO where codigo ='" & TXT_CODIG & "' ORDER BY subc"
rsoRDeNAR.Open sqlORDENAR, , adOpenDynamic, adLockOptimistic
Set MSH_ord.DataSource = rsoRDeNAR // CON EL MSHFLEXGRID SALE LA CONSULTA
***************** ERRORRRRRRRRRRRRRRRRR**********************
'Set DataGrid1.DataSource = rsoRDeNAR // CON EL DATAGRID ME SALE ERROR
End Function
Ayudenme por favor k es lo k esta faltando
Visual basic 6.0 y acces xp
Public Function ORDENAR()
Dim rsoRDeNAR As ADODB.Recordset
Dim sqlORDENAR As String
Set rsoRDeNAR = New ADODB.Recordset
rsoRDeNAR.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYS\BD\PPTOS.mdb;Persist Security Info=False;Jet OLEDB:Database Password=12345678"
sqlORDENAR = "Select * from PPTO where codigo ='" & TXT_CODIG & "' ORDER BY subc"
rsoRDeNAR.Open sqlORDENAR, , adOpenDynamic, adLockOptimistic
Set MSH_ord.DataSource = rsoRDeNAR // CON EL MSHFLEXGRID SALE LA CONSULTA
***************** ERRORRRRRRRRRRRRRRRRR**********************
'Set DataGrid1.DataSource = rsoRDeNAR // CON EL DATAGRID ME SALE ERROR
End Function
Ayudenme por favor k es lo k esta faltando
Valora esta pregunta
0