Hej!

Jag vill koppla upp mig med Windows Scripting host mot en MS SQL server och använda ADODB.command. Om jag kör via ASP funkar det bra fast jag får fel när jag kör ungefär samma kod med Wscript. Wscript klagar på ADODB.command

ASP fil som funkar...

<!-- #include file="../DataStore.asp" -->
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->

Dim objCommand, objRS

Set objCommand = Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = strConnect
objCommand.CommandText = "SELECT data1 FROM infotab"
objCommand.CommandType = adCmdText
Set objRS = objCommand.Execute
Set objCommand = nothing

while not objRS.EOF
Wscript.Echo objRS("data1")
objRS.MoveNext

objRS.MoveNext
Wend

Wscript fil som inte funkar...

Dim objCommand, objRS, strconnect
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\dokument\programmering\db1.mdb;" & _
"Persist Security Info=False"

set objCommand = Wscript.createobject("ADODB.Command")
objCommand.ActiveConnection = strConnect
objCommand.CommandText = "SELECT data1 FROM infotab"
objCommand.CommandType = adCmdText
Set objRS = objCommand.Execute
Set objCommand = nothing

while not objRS.EOF
Wscript.Echo objRS("data1")
objRS.MoveNext
Wend

Jag har ingen referens till msado15.dll i min wscript... behövs det?

All hjälp uppskattas!

Nej, det behövs ej. Vad menar du med att den klagar på ADODB.Command? Att den klagar på den raden eller vad? Fungerar din connectionstring från ASP? För den är ju en connectionstring till en Access databas, inte SQL Server.

Hej!

Japp, anslutningen verkar fungerar tror jag, i alla fall klarar den av raden objCommand.ActiveConnection = strConnect

Jag får följande felmeddelande...

Error: Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Code: 800A0BB9
Source: ADODB.Command
Line:9
Char:1

För mig är line 9 följande kod rad...
objCommand.CommandType = adCmdText

för att använda ADO konstanter så behöver du inkludera msado15.dll annars vet inte scriptet vilket värde den representerar ...

Japp, jag var inne på det spåret, hur gör man det för VBS? I asp kan man ju lägga den som metadata t ex.

Använd konstanterna i adovbs.inc

OKI, det innebär alltså att jag måste deklarera dem eller hänvisa till dem speciellt!

Tack alla som hjälpte till, jag var tvungen att läsa på lite!
Det som behövdes var...

Const adCmdText = &H0001