Mit Gardinen auf VBS eingeschlagen

Computer: Software & Programmierung Visual Basic
#1

Liebste VB* Community,

wenn ich Euch nicht haette… (ganz im ernst)
ich versuchte nun meine VB Problemchen mit dem Gardinenhersteller mit der Goldkante zu lösen… und scheiterte.

Die Rede ist von ADO …

will auf ne excel tabelle mit SQL statements zugreifen…
habe da n klasse beispiel bekommen… aber … achtung… jetzt kommts… laeuft nicht als VBS… *grummel*

Hier mal so Grundsatzfragen:
Kann ich .dll’s in VBS Code einbinden ? import oder sowas gibts ja nicht… wird ja alles ueber createObject gemacht.

Nachfolgend mal das nette CodeSchnippselchen…
Was muss ich tun, damit auch ich gluecklich werde —>

dim rs, strConn, strSQL

strConn = „DRIVER=Microsoft Excel-Treiber (*.xls);DBQ=“ & _
Server.MapPath(„Test.xls“)

strSQL = „SELECT * FROM [Tabelle1$a1:b]“

set rs = Server.CreateObject(„ADODB.Recordset“)

rs.open strSQL, strConn, 3, 3

if rs.EOF then
Response.Write(„Kein Datensatz gefunden“)
else
Response.Write(„Anzahl der Treffer:“ & rs.Recordcount)
Do while not rs.EOF
Response.Write("
" & rs.Fields(„Vorname“).Value & " " & _
rs.Fields(„Nachname“).Value)
rs.MoveNext
Loop
end if
rs.close
set rs = nothing

Fehlermeldung: Er kennt das Objekt „Server“ nicht.

Danke…

PixelKoenig

#2

Hallo PK,

ich mag Crossposting überhaupt nicht, der hiesige Mod weiß das, aber wenn mich was persönlich interessiert sehe ich das natürlich anders:smile:

Deshalb habe ich mal in einem anderen Forum, einem reinen Excelforum, nachgefragt, was die denn so von VBS und IDE wissen.

Von einer kostenlosen IDE weiß da bis jetzt keiner was, aber hier soll es zumindest viel Infos geben:

http://www.microsoft.com/downloads/details.aspx?Fami…

http://www.microsoft.com/germany/technet/datenbank/a…

http://www.activexperts.com/activmonitor/windowsmana…

Collection 1 un dCollection 2

Was nun Collection 1 bedeuten soll und warum das da steht weiß ich nicht, ich nehme an nach Anklicken des Links weiß man das eher.

Nett wäre es wie üblich eine Rückmeldung zu geben welcher Link denn was taugt.

PS: Mit ADO und SQl kann ich dir nix sagen, das könnte Rainer locker, in VB, in VBS wird das schon schwieriger für ihn, er, du, ich, haben ja das gleiche Problem, in Vba, VB könntest du für jeden Befehl mit F1 die Hilfe abrufen, bei VBS nicht.

Dein Unmut ist völlig verständlich. Ohne F1 und den Debugger in Vba oder VB wäre ich völlig aufgeschmissen :frowning:

Gruß
Reinhard

#3

Hallo Reinhard,

PS: Mit ADO und SQl kann ich dir nix sagen, das könnte Rainer
locker, in VB.

ja, da kann ich wunderbar den Code kopieren, den Alex geschrieben hat. :smile: Aber ja, in VB bekomme ich es zum Laufen.
Aber ohe ein As kommt der Code nicht aus, wie und ob so etwas in VBS läuft, weiß ich nicht.

Dein Unmut ist völlig verständlich. Ohne F1 und den Debugger
in Vba oder VB wäre ich völlig aufgeschmissen :frowning:

Es wird zwar immer seltener, aber ja, geht mir auch so. :smile:

Gruß Rainer