nicht angemeldet
VB-Script Daten in mySql DB
Hallöchen Leute.
Also ich habe mir ein VB-Script geschrieben, und möchte nun die Daten in eine mySql DB schreiben.
Kann mir jemand verklickern wie?
Habe so weiter von VB-Script keine Ahnung, da ich gerne alles PHP seitig mache, wenn man PHP da einbinden kann, auch gut :-D
(aber eher unwahrscheinlich weil PHP==Serverseitig, VB-Script==Browserseitig)
Danke schonmal.
-
Servus.
Ich kann dir mal Teile aus einem ASP geben mit ich serverseitig unter VBS Daten in eine DB schreibe.
Schau mal, ob Du mit den Anregungen etwas anfangen kannst
bydey<%@ Language=VBScript %>
<% option explicit %>
<%
dim strname, strfirma, strkurs
dim strdate
dim objcon, strcon, strpath1, strpath2
dim strsql, objcmd, objrsstrname=Request.Form("name1")
strfirma=Request.Form("firma1")
strkurs=Request.Form("kurs1")set objcon=server.CreateObject("adodb.connection")
strpath1 = server.MapPath ("\bydey\db\kurse.mdb")
strpath2 = server.MapPath ("./kurse.mdb")
strcon="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="& strpath2 &";PASSWORD=;"objcon.CommandTimeout=10
objcon.ConnectionString=strcon
objcon.Openset objrs=server.CreateObject("adodb.recordset")
objrs.ActiveConnection=objcon
objrs.CursorType = 3
objrs.CursorLocation = 3
objrs.LockType = 3%>
<HTML>
<HEAD>
<title>Daten schreiben</title>
</HEAD>
<BODY><P> </P>
<h1>Anmeldung von<%
Response.Write strname & " am " & strdate
%>
<%
strsql= "INSERT INTO teilnehmer ( name, firma, kurs ) values "
strsql = strsql & "('" & strname & "' , '" & strfirma & "' , '" & strkurs & "' );"set objcmd=server.CreateObject("adodb.command")
objcmd.ActiveConnection=objcon
objcmd.CommandTimeout=10
objcmd.CommandText=strsql
objcmd.Execute
set objcon= nothing
set objcmd= nothing%>
-
HÜÜÜÜÜÜÜÜÜÜÜÜÜLFE!! ;-) *g*
Dank dir :-)
Aber das kanns doch wirklich nicht sein...ich meine, wenn ich das mit PHP mache habe ich 3 Zeilen und die Daten stehen drin.
Gehts denn wirklich nicht anders, kürzer?
P.S. Du schreibst die Daten in eine MS Access DB, und ich will sie in einem mySql DB schreiben.
-
Mal ernsthaft.
Bin ich ein Menschenfeind?!
Wenn ichs kürzer wüste würd ichs Dir doch sagen? Oder doch nicht?
....
....
DOCH! 8-)))
Vielleicht hilft es ja zum rumprobieren.
bydey-
*g* :-) ...war ja nicht bös gemeint, nur wie schon erwähnt, bin ich eher ein Freund von PHP, und da brauche ich wirklich nur 3 Zeilen.
Naja, trotzdem nochma danke ;-)Und ich werde schauen was ich damit so hinbekomme...
-
*g* :-) ...war ja nicht bös gemeint, nur wie schon erwähnt, bin ich eher ein Freund von PHP, und da brauche ich wirklich nur 3 Zeilen.
Naja, trotzdem nochma danke ;-)Und ich werde schauen was ich damit so hinbekomme...
hehehe...
natürlich geht das mit ASP auch etwas fixer:'verbindung zur db herstellen
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=...;database=...")'SQL-statement erstellen
SQL = "INSERT INTO..."
conn.Execute(SQL)'verbindung schliessen
conn.Close
Set conn = Nothingso, das wars auch schon!
sind zwar 6 zeilen - aber wenn man das explicite erstellen und schliessen der verbindung nicht mit hinzurechnet, dann sind es sogar nur 2... ;-)grtz
chief
-
-
-
-