Visual Basic - Error en tiempo de ejecución

Life is soft - evento anual de software empresarial
 
Vista:

Error en tiempo de ejecución

Publicado por Alejandro (17 intervenciones) el 02/03/2001 16:38:08
con el codigo

PrivateSub cmbAñadir_Click()
BaseDeDatos.Recordset.AddNew
BaseDeDatos.Recordset("titulo")= txtTitulo.Text
BaseDeDatos.Recordset.Update
End Sub

Es para agregar un dato que pongo en un textBox a la base de datos

Me da un error de tiempo de ejecución que dice "Variable de tipo object o la variable del bloque With no esta establecida"

Desde ya gracias por ayudarme a solucionar mi problemita de principiante.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error en tiempo de ejecución

Publicado por Diana (85 intervenciones) el 02/03/2001 16:41:06
Prueba con lo siguiente:
PrivateSub cmbAñadir_Click()
BaseDeDatos.Recordset.AddNew
BaseDeDatos.Recordset!titulo = txtTitulo.Text
BaseDeDatos.Recordset.Update
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No funciona

Publicado por Alejandro (17 intervenciones) el 02/03/2001 17:17:33
Diana me sigue dando el error 91 en tiempo de ejecución
"Variable de tipo object o la variable del bloque With no esta establecida"

El problema es que no tengo la ayuda de VB y no puedo consultar
Pero el debugger me pone algo asi
BaseDeDatos.Record... = < Variable de tipo object o la variable del bloque With...>


Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No funciona

Publicado por José Luis (54 intervenciones) el 02/03/2001 18:43:46
Declaraste a BaseDeDatos publica ?

ejemplo ...

Public BD As Database
Public RsCatMesas As Recordset
Public RsCatMeseros As Recordset
Public RsCatProductos As Recordset

Private Sub Form_Load()

Set BD = Workspaces(0).OpenDatabase(BaseName$, False, False)
Set RsCatMesas = BD.OpenRecordset("cat_mesas")
Set RsCatMeseros = BD.OpenRecordset("cat_meseros")
Set RsCatProductos = BD.OpenRecordset("Cat_Productos")

End Sub

Private Sub cmdAñadir_Click()

BaseDeDatos.Recordset.AddNew
BaseDeDatos.Recordset("titulo")= txtTitulo.Text
BaseDeDatos.Recordset.Update

End Sub


Saludos ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error en tiempo de ejecución

Publicado por Isabel (11 intervenciones) el 02/03/2001 21:48:26
Ese es un famoso error 91 que sale cuando no declaras e instacias tu objeto.
A mi me ha pasado varias veces, y lo he solucionado declarando:
dim rs as adodb.recordset
e instanciando
set rs=new adodb.recordset
si estas usando ado, esa es la solucion.
Tambien puede que estes arrastrando una instancia anterior, entonces percátate que no le ayas puesto:
set rs=nothing

Ojala te ayude.......
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar