Ejecutar lote sql desde ado

Bue... lo de Florentino con el pobre Etoo no tiene nombre,
pobre chavál... ¡que juegue dónde quiera! Si sólo falta que
le encadenen los tobillos y le pongan una argola al cuello,
¡cachis!

Y lo de Owen... con un par! si señor! 30 kilotes por un tio
que (como Raul) ya está en declive... ¡mú bien!

Hola Carlos,
Es comando GO no es propio de T-SQL y solo es reconocido por el cliente

[...] "GO is not a Transact-SQL statement; it is a command recognized by

osql and isql utilities and SQL Query Analyzer..."

Private Sub Command1_Click()
Dim oCon As New ADODB.Connection
Dim sSQL As String
oCon.Open _
"Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=sa;" & _
"Initial Catalog=pubs;" & _
"Data Source=SERV_SQL"

sSQL = sSQL & "USE Pubs "
sSQL = sSQL & "SELECT * FROM authors "
sSQL = sSQL & "USE Northwind "
sSQL = sSQL & "SELECT * FROM Customers"

oCon.Execute sSQL
oCon.Close
Set oCon = Nothing
End Sub

Acabo de probar este lote y funciona perfectamente, así que prueba a

GO de tu SQL y ya me contarás...
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en: http://tinyurl.com/4nbnb

This posting is provided "AS IS" with no warranties, and confers no

Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

(Guía de netiquette del foro)
http://www.uyssoft.com/Netiquette/

Hola, Carlos:

No estoy yo muy puesto en T-SQL, pero como tampoco has indicado el error

obtienes, me da a mí que pensar que las palabras claves USE y GO, no se
pueden utilizar para ejecutar una consulta mediante el método «Execute»

objeto «Connection», ya que creo que son palabras reservadas del

de consultas», pograma cliente que se acompaña con la licencia de

SQL Server 2000.

Prueba a quitar dichas palabras, porque para utilizar la base de datos
«GestCor», solo basta que especifiques dicha base en el parámetro «Initial
Catalog» de la cadena de conexión del objeto «Connection». Aparte, deberás
de delimitar bien las líneas de la consulta para que se adapten a una

alfanumérica de Visual Basic.

Te dejo un ejemplo que he adaptado de los Libros en Pantalla, para que
observes cómo se escribiría la consulta para crear, en este caso, una

base de datos:

cnn.Execute "CREATE DATABASE Sales " & _
"ON " & _
"( NAME = Sales_dat," & _
"FILENAME = 'C:\Archivos de programa\...\saledat.mdf'," &

"SIZE = 10," & _
"MAXSIZE = 50," & _
"FILEGROWTH = 5 )" & _
"LOG ON" & _
"( NAME = 'Sales_log'," & _
"FILENAME = 'D:\Archivos de programa\...\salelog.ldf'," &

"SIZE = 5MB," & _
"MAXSIZE = 25MB," & _
"FILEGROWTH = 5MB )", , adCmdText

NOTA: En los parámetros «FILENAME» deberás de escribir la ruta completa
donde desees crear la base de datos.

En fin, no sé si será la solución a tu problema, pero menos da una piedra.
:-)

Un saludo

Enrique Martínez
[MS MVP - VB]
http://mvp-access.com/softjaen/

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

sugerido en el presente mensaje.

Pues señores... acabo de oir por la radio que Etoo ya es
del Barcelona, así que como no compréis al Owen
vendiendo las 'pelotillas' de entre los pies de
Beckam (por aquello de jugador mediático...)

La verdad es que, bromas aparte, por la cuarta parte de lo que
cobra un tio de estos, juego el partido y luego recojo la mugre
y paso la fregona al estadio... y hasta vendo bocadillos en la
media parte!