germ8n
20 de Octubre del 2008

Hola estoy haciendo un proyecto donde quiero mostrar en un datagrid el contenido de una tabla de una base de datos en acces pero me tira este error:
run-time error '-2147467259 (80004005)' error no especificado

el codigo es el siguiente:

Option Explicit


Dim cCodig As String
Dim Base As New Connection
Dim Reg As New Recordset

Private Sub Form_Load()
Dim SQL As String


Base.CursorLocation = adUseClient
Base.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=BASE.mdb;Persist Security Info=False"



SQL = "select (SELECT count (*) from Productos)"
Reg.Open SQL, Base, adOpenStatic, adLockOptimistic

Set Grilla.DataSource = Reg
Grilla.Refresh
End Sub

Private Sub grilla_Click()
cCodig = Grilla.Columns(1).Text
Text1.Text = cCodig
End Sub


LES AGRADASCO LA AYUDA DESDE YA...

mvallejos
20 de Octubre del 2008

Puede haber 2 causas

1 - Esta mal la Sql
SQL = "(SELECT count (*) from Productos "
2 - Estás queriendo asignar un recordset de ADO a un DbGrid en vez de un dataGrid

Saludos