NEW

13/07/2006 - 18:00 por oso | Informe spam
como debe ir el "new" por que lo pongo de la siquiente manera : Dim REG
As adodb.Recordset
Dim CONECTA As Connection
Set REG = New adodb.Recordset
Set CONECTA = New Connection
With CONECTA
.CursorLocation = adUseClient
.ConnectionString = Me.Adodc1.ConnectionString
.Open
End With
CSQL = " select * from caracteristicas,operacion,
responsable,observaciones where caracteristicas.cod_ac_fi= '" + Text1 +
"' and operacion.cod_ac_fi= '" + Text1 + "' and responsable.cod_ac_fi'" + Text1 + "' and observaciones.cod_ac_fi= '" + Text1 + "'"
Set REG = CONECTA.Execute(CSQL)
If REG.RecordCount <> 0 Then
Set Me.DataGrid1.DataSource = Execute(CSQL)
End If

Preguntas similare

Leer las respuestas

#1 SoftJaén
13/07/2006 - 18:44 | Informe spam
"oso" preguntó:

como debe ir el "new"



Hola, Oso:

Suponiendo que en tu proyecto tienes referenciada la biblioteca de ADO
clásico, tienes dos opciones, dependiendo que hayas importado o no el
espacio de nombres ADODB.

Si al principio de tu clase, o módulo, has incluido la instrucción «Imports
ADODB», puedes declarar las variables objeto de la siguiente manera:

Dim REG As New Recordset
Dim CONECTA As New Connection

Pero si no has importado el espacio de nombres ADODB, deberás de hacer
mención expresa al mismo en la declaración:

Dim REG As New ADODB.Recordset
Dim CONECTA As New ADODB.Connection

Así que, si no quieres escribir ADODB, ya sabes lo que tienes que hacer:

Imports ADODB

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida