porque no me deja hacer la conexion

llanes
19 de Febrero del 2004
hola como están quisiera saber porque es que cuando hago lo siguiente para hacer la conexión a la base de datos con un ADO( sin DataControl) no me deja declarar el objeto de tipo ADODB.recordset o .connection.

esto es lo que tengo que escribir y no me deja hacerlo.

set cnn as ADODB.connection
set rs as ADODB.recordset

que puedo hacer para lograr hacer esto.
saludos
llanes

daeron
19 de Febrero del 2004
intentalo de esta forma:

dim Cnn As New ADODB.Connection
dim rs As New ADODB.Recordset

pero ten en cuenta que tienes que activar en Referencias la Microsoft ActiveX data objects

Espero que te sirva.

CristianballZ
19 de Febrero del 2004
como dice daeron tienes ue generar esas variables
la referencia la haces en proyecto -> referencias
te envio un ejemplo:

Option Explicit

'DECLARACION DE UN VARIABLE OBJETO DEL TIPO ADODB.CONNECTION
Public CON_cnn As ADODB.Connection
Public rec_recorset As ADODB.Recordset


Public Sub ConectarBD()
'On Error GoTo error:
'SE INSTANCIA EL OBJETO CON_cnn DEL TIPO CONNECTION
Set CON_cnn = New ADODB.Connection

'CONFIGURACION DEL CON_cnn
CON_cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=nombre base de datos"

'SE ABRE LA CONEXION
CON_cnn.Open
'error:
' If Err.Number > 0 Then
' Err.Description
' Resume Next
' End If
End Sub

Public Sub DesconectarBD()

'SE CIERRA LA CONEXION
CON_cnn.Close

'LIBERAR MEMORIA
Set CON_cnn = Nothing

End Sub


Public Sub Ejecutar(strsql As String)
' On Error GoTo error:
Set rec_recorset = New ADODB.Recordset
rec_recorset.CursorLocation = adUseClient
rec_recorset.Open strsql, CON_cnn
'error:
' If Err.Number > 0 Then
' MsgBox Err.Description
' Resume Next
'End If
End Sub


sdemingo
19 de Febrero del 2004
Hola, ya te conteste en mi foro

salu2
sdemingo
http://boards.melodysoft.com/sdemingo