Abrir una SQL con ADO

"carlos" escribió:

he comenzado a trabajar con ADO y estaba acostun¡mbrado a abrir una SQL
con DAO, pero en ADO sólo se abrir tablas, ¿Cómo debo contruir la cadena
de conexión?

Hola, Carlos:

No entiendo muy bien lo que quieres decir con que sólo puedes abrir tablas.
Al no indicar la base de datos que utilizas, supongo que será Microsoft
Access.

Si tú tienes una consulta SQL almacenada en la base de datos de Access y la
quieres abrir, simplemente la abrirías como si de otra tabla se tratara:

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

' Establecemos la conexión
'
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = C:\bd1.mdb"
.Open
End With

' Abrimos el objeto Recordset
'
Set rst = New ADODB.Recordset
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "Consulta de Clientes", cnn, , , adCmdTable
End With

MsgBox rst.RecordCount

Si por el contrario lo que deseas es ejecutar una consulta SQL, escríbela en
el argumento «Source» del método «Open» del objeto «Recordset»:

rst.Open "SELECT * FROM Clientes", cnn, , , adCmdText

Aparte de la instrucción SQL, lo único que cambia es el argumento «Options»,
el cual será «adCmdText» (para consultas SQL), mientras que será
«adCmdTable» (para tablas o consultas almacenadas de Access). Para conocer
dichos valores, consulta en la ayuda de ADO la enumeración
«CommandTypeEnum».

Un saludo.

Enrique Martínez
[MS MVP - VB]

Gracias, pero una aclaración:
¿La sql puede ser del tipo?: SELECT * FORM CLIENTES WHERE CODCLIENTE = " &
me.codicl & ";"


Gracias


-
carlos

-


"Softjaen" escribió en el mensaje
news:

"carlos" escribió:

> he comenzado a trabajar con ADO y estaba acostun¡mbrado a abrir una SQL
> con DAO, pero en ADO sólo se abrir tablas, ¿Cómo debo contruir la cadena
> de conexión?
>

Hola, Carlos:

No entiendo muy bien lo que quieres decir con que sólo puedes abrir

tablas.

Al no indicar la base de datos que utilizas, supongo que será Microsoft
Access.

Si tú tienes una consulta SQL almacenada en la base de datos de Access y

la

quieres abrir, simplemente la abrirías como si de otra tabla se tratara:

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

' Establecemos la conexión
'
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = C:\bd1.mdb"
.Open
End With

' Abrimos el objeto Recordset
'
Set rst = New ADODB.Recordset
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "Consulta de Clientes", cnn, , , adCmdTable
End With

MsgBox rst.RecordCount

Si por el contrario lo que deseas es ejecutar una consulta SQL, escríbela

en

el argumento «Source» del método «Open» del objeto «Recordset»:

rst.Open "SELECT * FROM Clientes", cnn, , , adCmdText

Aparte de la instrucción SQL, lo único que cambia es el argumento

«Options»,

el cual será «adCmdText» (para consultas SQL), mientras que será
«adCmdTable» (para tablas o consultas almacenadas de Access). Para conocer
dichos valores, consulta en la ayuda de ADO la enumeración
«CommandTypeEnum».

Un saludo.

Enrique Martínez
[MS MVP - VB]

"carlos" escribió:

¿La sql puede ser del tipo?: SELECT * FORM CLIENTES WHERE CODCLIENTE = " &
me.codicl & ";"

Siempre y cuando que el tipo de dato correspondiente al valor de «me.codicl»
sea el mismo que el del campo «CODCLIENTE», no hay ningún problema para
ejecutar ese tipo de consulta:

Tipo Numérico
rst.Open "SELECT * FROM CLIENTES WHERE CODCLIENTE = " & _
me.codicl, cnn, , , adCmdText

Tipo Alfanumérico
rst.Open "SELECT * FROM CLIENTES WHERE CODCLIENTE = (')" & _
me.codicl & "(')", cnn, , , adCmdText

En éste último caso, cuando la vayas a ejecutar quita los paréntesis. Los he
puesto para que puedas observar con claridad la comilla simple que deberás
de añadir si el tipo de campo es de texto.

Un saludo.

Enrique Martínez
[MS MVP - VB]