madel
30 de Octubre del 2007

Hola, el problema que tengo es que tengo un formulario en el que tengo que hacer una serie de calculos, entonces en un cuadro de texto para su evento "al entrar" necesito hacer una busqueda en una tabla para un numero determinado escrito por el usuario.
El codigo que he introducido usando ADO es un poco el que sigue:

-----------------------------------------------------------------------------------------------------------------------------
Dim cnn As ADODB.Connection
Dim result As ADODB.Recordset
Dim SQLline As String
Dim Valor As Integer
Set cnn = New ADODB.Connection
Set result = New ADODB.Recordset
A_Geografica = InputBox("intrdoduzca un area")
SQLline = " SELECT * FROM [AreaGeografica] WHERE [AREA] = " & A_Geografica & " "

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingsmigracion.VIV_URBANEscritorioeurovpo.mdb;Persist Security Info=False"

result.Open SQLline, cnn, adOpenDynamic, adLockOptimistic
Valor = result![VALOR]
result.Close
----------------------------------------------------------------------------------------------------------------------------

Y el Error que me da es "error -2147467259 el usuario ha situado la Base de Datos en un estado que impide que sea abierta o bloqueada"

MATIAS
30 de Octubre del 2007

ES POR NO CERRAR LA CONECCION DE LA BASE, DEBE ESTAR EN EL REGISTRO DE WINDOWS MARCADA LA BASE COMO CON UNA CONECCION ACTIVA SEGURAMENTE. DESCUBRIO ALGUIEN COMO SE DESBLOQUEA?