Manejo Ado
Publicado por sergio (36 intervenciones) el 28/08/2003 01:42:58
hola tengo lo siguiente:
Option Explicit
'Objetos DAO a utilizar
Dim Base_de_datos As DAO.Database
Dim DB As DAO.Recordset
Private Sub Form_Load()
Me.BackColor = &HC08000
Me.Height = 4395
Me.Width = 6135
Set Base_de_datos = OpenDatabase(App.Path & "\saber.mdb")
Set DB = Base_de_datos.OpenRecordset _
("Select * from Datos", dbOpenDynaset, dbOptimistic)
Text1.Text = DB!Nombre
Text2.Text = DB!Resolución
Text3.Text = DB!Dirección
Text4.Text = DB!Teléfono
End Sub
Private Sub Form_Unload(Cancel As Integer)
Base_de_datos.Close
End Sub
pero si esa tabla no tiene ningun registro me vota un error, y no se como se hace para que guarde lo que escriba en los textbox
como hago para que guarde y para que no me vote el eerror.
gracias
Option Explicit
'Objetos DAO a utilizar
Dim Base_de_datos As DAO.Database
Dim DB As DAO.Recordset
Private Sub Form_Load()
Me.BackColor = &HC08000
Me.Height = 4395
Me.Width = 6135
Set Base_de_datos = OpenDatabase(App.Path & "\saber.mdb")
Set DB = Base_de_datos.OpenRecordset _
("Select * from Datos", dbOpenDynaset, dbOptimistic)
Text1.Text = DB!Nombre
Text2.Text = DB!Resolución
Text3.Text = DB!Dirección
Text4.Text = DB!Teléfono
End Sub
Private Sub Form_Unload(Cancel As Integer)
Base_de_datos.Close
End Sub
pero si esa tabla no tiene ningun registro me vota un error, y no se como se hace para que guarde lo que escriba en los textbox
como hago para que guarde y para que no me vote el eerror.
gracias
Valora esta pregunta


0