VBS Script, Prüfe ob die Eingabe der InputBox vorhanden ist in einer mySQL Datenbank
Hallo,
ich benötige Hilfe bei der Umsetzung eines VB Scripts.
Meine VBS Kenntnisse sind begrenzt und folgendes Script ist erstmal Lauffähig für mich, jedoch noch nicht ausreichend.
Das Script fragt zwei InputBoxen beim User ab und speichert den Input als Datei, jedoch ohne Dateiendung.
Input1: Vorname
Input2: Nachname
Ergebnis als Datei: Vorname_Nachname
Nun ist das Ziel, dass dieses Ergebnis auf einer mySQL Datenbank abgefragt werden soll, allerdings rätsel ich wie ich das bewerkstelligen kann.
Anschließend soll eine Batch1.cmd aufgerufen werden sofern der Eintrag an der mySQL Datenbank nicht vorhanden ist, und eine batch2.cmd sofern der Eintrag vorhanden ist.
Es soll lediglich ein Abgleich stattfinden, die Datenbank soll nicht beschrieben werden.
Über jegliche Hilfe würde ich mich sehr freuen!
ich benötige Hilfe bei der Umsetzung eines VB Scripts.
Meine VBS Kenntnisse sind begrenzt und folgendes Script ist erstmal Lauffähig für mich, jedoch noch nicht ausreichend.
Das Script fragt zwei InputBoxen beim User ab und speichert den Input als Datei, jedoch ohne Dateiendung.
Input1: Vorname
Input2: Nachname
Ergebnis als Datei: Vorname_Nachname
Nun ist das Ziel, dass dieses Ergebnis auf einer mySQL Datenbank abgefragt werden soll, allerdings rätsel ich wie ich das bewerkstelligen kann.
Anschließend soll eine Batch1.cmd aufgerufen werden sofern der Eintrag an der mySQL Datenbank nicht vorhanden ist, und eine batch2.cmd sofern der Eintrag vorhanden ist.
Es soll lediglich ein Abgleich stattfinden, die Datenbank soll nicht beschrieben werden.
Über jegliche Hilfe würde ich mich sehr freuen!
Sub MyInputBox()
dim WshShell, firstNameInput, lastNameInput, fso, fileStream, MyFile, RootFolder
set WshShell = WScript.CreateObject("WScript.Shell")
Do
firstNameInput = InputBox("Bitte Vorname eingeben")
Loop Until firstNameInput <> ""
Do
lastNameInput = InputBox("Bitte Nachnamen eingeben")
Loop Until lastNameInput <> ""
RootFolder = WshShell.ExpandEnvironmentStrings("%appdata%")
MyFile = RootFolder & "\" & firstNameInput & "_" & lastNameInput
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileStream = fso.CreateTextFile(MyFile)
fileStream.Close
set WshShell = nothing
set fso = nothing
set fileStream = nothing
End Sub
call MyInputBox()
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 391072
Url: https://administrator.de/contentid/391072
Ausgedruckt am: 22.11.2024 um 22:11 Uhr
3 Kommentare
Neuester Kommentar
Hi,
hier findest Du keinen Ansatz?: hier
z.B. Connect to mysql 5.0 database using pure vbscript?
Ungefähr so
E.
hier findest Du keinen Ansatz?: hier
z.B. Connect to mysql 5.0 database using pure vbscript?
Ungefähr so
dim cn, rs
set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=yourServerAddress;" & _
"Database=yourDataBase;User=yourUsername;" & _
"Password=yourPassword;"
cn.open
rs.open "select Vorname,Nachname from Tabellenname where Vorname = '" & firstNameInput & "' and Nachname = '" & lastNameInput & "'", cn, 3
rs.MoveFirst
if not rs.eof then
wscript.echo "Bereits vorhanden"
end if
cn.close
E.
wäre es vielleicht sogar sinnvoller und einfacher die lokale Datei gegen eine Datei auf einem Webserver (http Port 80 oder 443 https) abzugleichen, oder gar über ftp?
Das müsstest du doch selbst am besten für deine Anforderung wissen, wir kennen deine Umgebungsparameter ja in keinster Weise ...Gruß l.