Consulta paso a través sql Ado

[bryger]

Buenas una pregunta que me tiene loco se puede crear una consulta paso a través conectada a sql server sin utilizar ODBC osea sin tener que crear el ODBC manualmente ??
Ojo estoy conectado a del server

Esto le funciona perfecto pero se podrá hacer sin ODBC

Código: Seleccionar todo

Función CreateSPT(SPTQueryName As String, strSQL As String)

Dim cat As ADOX.Catalog
Dim cmd As ADODB.Command

Set cat = New ADOX.


cat.ActiveConnection = CurrentProject.Connection

Set cmd.ActiveConnection = cat.ActiveConnection

cmd.CommandText = strSQL
cmd.Properties("Jet OLEDB:Declaración de paso a través de ODBC") = True

'Modificar la siguiente cadena de conexión para hacer referencia a un DSN existente para
' la base de datos PUBS de SQL Server de ejemplo.

cmd.Properties _
("Jet OLEDB:Pass Through Query Connect String") = _
"ODBC;DSN=myDSN;database=pubs;UID=sa;PWD=;"
cat.Procedures.Append SPTQueryName, cmd

Set cat = Nothing
Set cmd = Nothing

End Function

[DaniLopez1991]

Yo diria que no, yo intente también una vez con sql server y no me dejaba porque en la cadena de conexión te obliga a especificar el ODBC que estas usando... Lo que hice fue instalar el ODBC y vincular la tabla directamente

[bryger]

Hola tienes Razon tuve que al momento de hacer click buscar si existe la tabla xxx generar una tabla con todo lo que esta el recordset llamada xxx identificar el tipo de campo anexar esos datos abrir el informe vinculado a esa tabla local y solo al cerrar el form eliminar la tabla local y listo necesite full ayuda tuve que crear librerias pero al final solo fue codigo