VB Script SQL Abfrage Übergabe an Variable
Moin Moin liebe Gemeinde,
nun bin ich seid ca einer Woche am googlen und verzweifle beinahe.
Ich benötige ein VB Script welches eine Select Abfrage ausführt und mir das Ergebnis an eine weiter zu verwendende Variable übergibt.
Das Scribt wird in einem Programm namens AutoStore von Nuance eingebunden. Dieses Programm arbeitet im Weiteren mit der Variablen weiter.
Bevor ich zum Script komme, erst noch ein paar Infos zur Abfrage:
In einer DB Tabelle sind Job Informationen hinterlegt, inkl. PageCount von erfassten Dokumenten. Mit der SQL Abfrage möchte ich lediglich die Summe aller Pages erhalten.
Die Abfrage funktioniert auch und mir wird ein passendes Ergebnis geliefert.
Nun zum VB Code. Da ich leider kein Programmierer bin, läuft die ganze Sache eher nach dem Prinzip ausprobieren
So und dann ist Feierabend.
Die Variable an die ich das Ergebnis übergeben muss, sieht wie folgt aus ~USR::DBResult~. Leider weiß ich nicht wie ich das übergeben kann, noch wie ich das Ergebnis an einen msgbox übergeben kann.
Hoffe das einer von euch mir helfen kann.
Danke euch und liebe Grüße
Christian
nun bin ich seid ca einer Woche am googlen und verzweifle beinahe.
Ich benötige ein VB Script welches eine Select Abfrage ausführt und mir das Ergebnis an eine weiter zu verwendende Variable übergibt.
Das Scribt wird in einem Programm namens AutoStore von Nuance eingebunden. Dieses Programm arbeitet im Weiteren mit der Variablen weiter.
Bevor ich zum Script komme, erst noch ein paar Infos zur Abfrage:
In einer DB Tabelle sind Job Informationen hinterlegt, inkl. PageCount von erfassten Dokumenten. Mit der SQL Abfrage möchte ich lediglich die Summe aller Pages erhalten.
Select SUM(pages) FROM AS_LOGGING
Nun zum VB Code. Da ich leider kein Programmierer bin, läuft die ganze Sache eher nach dem Prinzip ausprobieren
Dim = strConnection
Dim = strSQL
strConnection = "Provider=SQLOLEDB;Data Source=.\SQLExpress;User ID=sa;Password=Pa$$w0rd"
strSQL = "Select SUM(pages) FROM AS_LOGGING"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open strConnection
Set objRecordSet = CreateObject("ADODB.Recordset")
objRecordSet.Open strSQL, objConnection
So und dann ist Feierabend.
Die Variable an die ich das Ergebnis übergeben muss, sieht wie folgt aus ~USR::DBResult~. Leider weiß ich nicht wie ich das übergeben kann, noch wie ich das Ergebnis an einen msgbox übergeben kann.
Hoffe das einer von euch mir helfen kann.
Danke euch und liebe Grüße
Christian
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 398933
Url: https://administrator.de/contentid/398933
Ausgedruckt am: 25.11.2024 um 19:11 Uhr
3 Kommentare
Neuester Kommentar
Hi,
Du musst den RecordSet an die Variable übergeben oder die Summe?
Falls Summe:
An die Summe kommst Du mit
Was soll das für eine Variable sein: "~USR::DBResult~" ?
Eine VBscript-Variable? Eine Umgebungsvariable (der CMD)?
E.
Du musst den RecordSet an die Variable übergeben oder die Summe?
Falls Summe:
An die Summe kommst Du mit
...
strSQL = "Select SUM(pages) AS [SUMME_1] FROM AS_LOGGING"
...
objRecordSet.Open strSQL, objConnection
dim Summe_1
Summe_1 = objRecordSet.Fields("SUMME_1").Value
Was soll das für eine Variable sein: "~USR::DBResult~" ?
Eine VBscript-Variable? Eine Umgebungsvariable (der CMD)?
E.