Visual Basic Foro

Programación => Bases de Datos => Mensaje iniciado por: omarinho23 en Marzo 18, 2010, 05:20:13 pm

Título: IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
Publicado por: omarinho23 en Marzo 18, 2010, 05:20:13 pm
YO PUSE ESTO I ME SALE EL ERROR

Variable del tipo Object o la Variable del bloque with no esta establecida

Código: [Seleccionar]
'Connection Confirmation
Private Sub Form_Load()
   
    ' establece la cadena de conexión a utilizar en la propiedad ConnectionString
    CNN.ConnectionString = "Provider=SQLOLEDB.1;Password=qweqwe;Persist Security Info=True;User ID=omar;Initial Catalog=BASEFINAL;Data Source=SERVIDOR"
   
    ' abre la base de datos
    CNN.Open
   
    ' Abre el recordset enviando la consulta sql
    rs.Open "Select * from clientes where cod=" & Text15, CNN, adOpenDynamic, adLockOptimistic             <<<<<<<<< aki me sale el error
    ' muestra los datos en los text
    Command1.Enabled = False

End Sub

osea en el text15 va el numero del idregistro a donde quiero ir es como un buscador mejor dixo y a la vez lo puedo modificar.
Título: Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
Publicado por: seba123neo en Marzo 19, 2010, 07:04:04 pm
mostra donde tenes declarado y seteada la varialbe de conexion CNN y lo mismo para el recordset "rs"...por las dudas no uses As New...

y yo no lo haria de esa forma, digo de abrir la base en el Load de un formulario, es mejor usar un modulo y hacerlo en el Main..

saludos.
Título: Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
Publicado por: omarinho23 en Marzo 19, 2010, 07:33:49 pm
estas son mis declaraciones

Código: [Seleccionar]

Option Explicit

Enum EACCION1
    AGREGAR_REGISTRO1 = 0
    editar_registro1 = 1
End Enum

Dim CNN As New ADODB.Connection
Public ACCION As EACCION1
Dim rs As ADODB.Recordset
Public IdRegistro
Public Function COD(IdRegistro As Integer)
COD = "Select clientes " & IdRegistro & ""
End Function
Título: Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
Publicado por: seba123neo en Marzo 19, 2010, 07:59:41 pm
te falta crear el objeto recordset, solo lo estas declarando, despues de abrir la base de datos con el .Open pone:

Código: (vb) [Seleccionar]
Set rs = New ADODB.Recordset
igualmente acordate de lo que te dije , de como debe estar la conexion a la base...

saludos.
Título: Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
Publicado por: omarinho23 en Marzo 20, 2010, 12:26:47 pm
pero sebas con ese new estoy creando un registro nuevo, y yo no quiero un registro nuevo, yo quiero ir a un registro indicado en un textbox.
Título: Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
Publicado por: seba123neo en Marzo 20, 2010, 01:37:36 pm
pero sebas con ese new estoy creando un registro nuevo, y yo no quiero un registro nuevo, yo quiero ir a un registro indicado en un textbox.

no te entiendo..el error que te tira es porque no creaste el objeto Recordset...cuando uno trabaja con objetos en este caso "Recordset" , debes declararlo (eso ya lo tenes hecho) y despues debes crearlo con New (no tiene nada que ver con el metodo .AddNew del recordset)...si no lo creas no podes usar el objeto y te tira el error ese...

saludos.