Autor Tema: IR A LA IDREGISTRO INDICADO SQL SERVER - ADO  (Leído 4394 veces)

0 Usuarios y 1 Visitante están viendo este tema.

omarinho23

  • Megabyte
  • ***
  • Mensajes: 105
  • Reputación: +0/-1
    • Ver Perfil
IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
« 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.
« última modificación: Marzo 19, 2010, 04:38:29 pm por omarinho23 »

seba123neo

  • Terabyte
  • *****
  • Mensajes: 763
  • Reputación: +88/-5
    • Ver Perfil
Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
« Respuesta #1 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.

omarinho23

  • Megabyte
  • ***
  • Mensajes: 105
  • Reputación: +0/-1
    • Ver Perfil
Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
« Respuesta #2 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

seba123neo

  • Terabyte
  • *****
  • Mensajes: 763
  • Reputación: +88/-5
    • Ver Perfil
Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
« Respuesta #3 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.

omarinho23

  • Megabyte
  • ***
  • Mensajes: 105
  • Reputación: +0/-1
    • Ver Perfil
Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
« Respuesta #4 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.

seba123neo

  • Terabyte
  • *****
  • Mensajes: 763
  • Reputación: +88/-5
    • Ver Perfil
Re:IR A LA IDREGISTRO INDICADO SQL SERVER - ADO
« Respuesta #5 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.