connet sql server with vbs

De la misma manera como creas un objeto Connection, puedes crear los
objetos Command y Recordset, p.e.

Dim conn
Dim rds
Dim cadena

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "SQLOLEDB"
conn.ConnectionString = "User ID=usuario;Password=clave;Data
Source=(local);Initial Catalog=pubs"
conn.Open
Set rds = CreateObject("ADODB.Recordset")
cadena = "SELECT * FROM authors"
Set rds= conn.Execute(cadena)
MsgBox(rds("au_lname"))
rds.Close
Set rds = Nothing
conn.Close
Set conn = Nothing

te mostrará el apellido de la persona que haya obteindo en primer
lugar en el SELECT.

Saludos,
Ulises

On Tue, 8 Feb 2005 09:09:04 -0800, Miguel Cortinas <dxit at dxit dot
net> wrote:

Hi everybody,

Estoy buscando la manera de realizar consultas y algunos insert's en una
base de datos de SQL server, pero desde un archivo de .VBS

encontre esto naufragando por la RED

<code>
BEGIN CALLOUT A
Set cnWhsDB = CreateObject("ADODB.Connection")

With cnWhsDB
.Provider = "SQLOLEDB"
.ConnectionString = _
"User ID=" & Session.Property("MASTERDBUSER") & _
";Password=" & Session.Property("MASTERDBPWD") & _
";Data Source=" & Session.Property("MASTERDBMACHINE") & _
";Initial Catalog= Master"
.Open
End With
END CALLOUT A
</code>

y me da una idea de que si es posible hacerlo, pero no se como hacerlo...
alguna ayuda por favor?