Visual Basic - Error 91 con Base Protegida

Life is soft - evento anual de software empresarial
 
Vista:

Error 91 con Base Protegida

Publicado por Marcelo (20 intervenciones) el 01/04/2004 16:38:32
Hola a todos,
estoy haciendo una aplicación que consiste en coordinar VB con una b.datos access (Dao), la base tiene contraseña
las tablas se abren bien, el problema es que se me cae en la siguiente instrucción:

If Not Data1.Recordset.EOF Then

Con el sgte. mensaje:

"Error '91' en tiempo de ejecución:
Variable de tipo Object o la variable de bloque With no está establecida"

Por fa, respondame alguien que sepa lo que pasa.

Gracias.

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 91 con Base Protegida

Publicado por smokalot (203 intervenciones) el 01/04/2004 17:34:06
eeeiiii
ese error d k sin With suele dar kuando aces referencia algun objeto o variable kn no sta bien definida o ke ese objeto no puede utilizar l metodo ke tu le as dixo.

prueba en lugar d ponerle Not, ponle data1.eof <> True

JUERRRR!!! me akabo d empanar!! juer xk pones Data1.REcorset!!!! data1 es dl tipo connection o dl tipo recorset!!! si s dl tipo recorset no te ace falta specificar Data1.recorset.oef <--- YO DIRIA KE EL ERROR T L DA X PONER "recorset".
Te lo digo xk yo tb stoy trab kn ls obj ADODB jiijji xa abrir bbdd y mi me va d PM :P
enga, suerte
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 91 con Base Protegida

Publicado por Marcelo (20 intervenciones) el 02/04/2004 16:09:02
Hola y gracias por darme bola

solucione el problema, así quedo el codigo:
------------------------------------
Set nC = db.OpenRecordset("Select ncliente From Comuna ORDER BY ncliente", dbOpenDynaset)

If db.Recordsets.Count > 1 Then
If Not IsNull(nC(0)) Then
nC.MoveLast
Text1.Text = nC(0) + 1
Else
Text1.Text = vaCont
End If
Else
Text1.Text = 1
End If

Close All

------------------------------------------
tenías razón con lo de Data, creo q no tenía pa q ponerla
y en su lugar puse

if db.Recordsets.Count > 1 then

porq si no ponía algo me decía "No hay ningun registro activo....."

Dime si estoy en lo correcto porfa

salu2 y gracias.
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