Carlos
01 de Noviembre del 2004

Mi duda es la siguiente, estoy tratando de hacer una agenda, usando para esto acces 2000, pero en el codigo del recordset no se como inidicarle que es una base de datos de acces 2000, cuando utilizo acces 97 si funciona, ya instale el service pack para poder utilizar el acces 2000 pero no funciona, si alguien puede orientarme se los voy a agradecer bastante,

estoy haciendo algo como esto:
Private Sub Form_Load()
Set misesion = Workspaces(0)
Set bdatos = misesion.OpenDatabase("C:respBased.mdb")
Set Data1 = bdatos.OpenRecordset("datos", dbOpenDynaset)
Data1.MoveLast
Data1.MoveFirst
If Data1.AbsolutePosition <> -1 Then
LNumRegs = Data1.RecordCount
LNumReg = Data1.AbsolutePosition + 1
verdatos
End If
End Sub

de antemano mil gracias que dios los bendiga.

roymx
01 de Noviembre del 2004

yo uso esto

un adodc y datagrid


esto abre la base de datos al cargar la forma

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "nombre de tu base de datos.mdb;Persist Security Info=False"

conn.Open



Adodc1.ConnectionString = conn

esto ordena el registro que quieras

Dim strsql As String

strsql = " SELECT * FROM (nombre de la tabla) WHERE (nombre del registro) ORDER BY nombre del registro"

Adodc1.RecordSource = strsql
Adodc1.Refresh


Set Me.DataGrid1.DataSource = Adodc1
DataGrid1.Refresh


espero te ayude