ADO
Publicado por jose amestica (1 intervención) el 06/10/2001 08:09:07
Este codigo correponde, a un formulario que al cargarse
abre una base de datos y una tabla llamada Authors en la
base de datod BIBLIO, hasta aqui o sea, hasta el evento
load en donde se carga la base y la tabla ningun problema, pero
en el evento del boton1, no puedo o mejor dicho no se como
hacerlo para que avanze el recordset, ojo que todas las variables
de objeto, es decir, la variable workspace, database, recordset,
son globales al formulario, pero lo mas importante es que lo que
hize creo que esta correcto en el evento del boton que avanza:
registros.movenext, pero me aparece un error,
---------- Aqui comienza el programa--------------
'variables globales al formulario
Dim espaciodetrabajo As Workspace
Dim basededatos As Database
Dim registros As Recordset
Private Sub Command1_Click()
registros.movenext
End Sub
Private Sub Form_Load()
DBEngine.DefaultType = dbUseJet
Set espaciodetrabajo = DBEngine.CreateWorkspace("espacio", "admin", "", dbUseJet)
Set basededatos = espaciodetrabajo.OpenDatabase("c:\inetpub\wwwroot\biblio.mdb")
Set registros = basededatos.OpenRecordset("Authors")
Text1.Text = registros.Fields("Author")
End Sub
abre una base de datos y una tabla llamada Authors en la
base de datod BIBLIO, hasta aqui o sea, hasta el evento
load en donde se carga la base y la tabla ningun problema, pero
en el evento del boton1, no puedo o mejor dicho no se como
hacerlo para que avanze el recordset, ojo que todas las variables
de objeto, es decir, la variable workspace, database, recordset,
son globales al formulario, pero lo mas importante es que lo que
hize creo que esta correcto en el evento del boton que avanza:
registros.movenext, pero me aparece un error,
---------- Aqui comienza el programa--------------
'variables globales al formulario
Dim espaciodetrabajo As Workspace
Dim basededatos As Database
Dim registros As Recordset
Private Sub Command1_Click()
registros.movenext
End Sub
Private Sub Form_Load()
DBEngine.DefaultType = dbUseJet
Set espaciodetrabajo = DBEngine.CreateWorkspace("espacio", "admin", "", dbUseJet)
Set basededatos = espaciodetrabajo.OpenDatabase("c:\inetpub\wwwroot\biblio.mdb")
Set registros = basededatos.OpenRecordset("Authors")
Text1.Text = registros.Fields("Author")
End Sub
Valora esta pregunta


0