VB - Script um Daten in MySQL Datenbank zu schreiben

[Flax! 10]

Hi, ich suche ein script mit dem ich daten in eine tabelle einer mysql datenbank schreiben kann. kann mir da jemand helfen??

[Flax! 10]

.... sorry... VB script :D

[substyle 20]

Funktioniert genauso wie das lesen aus einer MDB datenbank.

Nur ein kleines wenig anders. Ich denke so sollte es klappen:

 

...
<h1>Database Query - ASP/VBScript</h1>
<%

set myconn = server.createobject("adodb.connection")
connection = "driver={MySQL};server=myserver;uid=demo;database=mydatabase"
myconn.open (connection)
set result = server.createobject("adodb.recordset")
sql = "SELECT * FROM testdb WHERE feature ='" & request("place") & "'"
set result = myconn.execute(sql)
if not result.EOF then

	response.write("<p>Daten fuer " & request("place"))
	response.write("<table border=2><tr><th>Latitude<th>Longitude<th>Easting<th>Northing")
	while not result.EOF		
		response.write("<tr><td>" & result("latitude"))
		response.write("<td>" & result("longitude"))
		response.write("<td>" & result("Easting"))
		response.write("<td>" & result("northing"))
		result.movenext()
	wend
	response.write("</table>")
else	
	response.write("<p>Kein Eintrag fuer " & request("place"))
end if
%>
....

 

Gruß

 

subby

[Flax! 10]

Danke fuer die antwort.

 

Is des ein vb script???

 

habe bei meinem sql server passwort vergeben. muss ich da nich vorher noch ne verbindung aufbauen mit passwort und user wie bei php?

 

Ich hatte wo im netz ein script gefunden aber det geht net... db_name, passwort und user stimmen natuerlich nich ;) :D

 

-----------------------

 

Option Explicit

 

'---- CursorTypeEnum Values ----

Const adOpenForwardOnly = 0

' Const adOpenKeyset = 1

' Const adOpenDynamic = 2

' Const adOpenStatic = 3

 

'---- LockTypeEnum Values ----

' Const adLockReadOnly = 1

Const adLockPessimistic = 2

' Const adLockOptimistic = 3

' Const adLockBatchOptimistic = 4

 

'---- CursorLocationEnum Values ----

' Const adUseServer = 2

Const adUseClient = 3

 

'---- ConnectModeEnum Values ----

' Const adModeUnknown = 0

Const adModeRead = 1

' Const adModeWrite = 2

' Const adModeReadWrite = 3

' Const adModeShareDenyRead = 4

' Const adModeShareDenyWrite = 8

' Const adModeShareExclusive = &Hc

' Const adModeShareDenyNone = &H10

' Const adModeRecursive = &H400000

 

Dim Conn, RS

Set Conn = CreateObject("ADODB.Connection")

Set RS = CreateObject("ADODB.Recordset")

Conn.Provider = "MSDASQL"

Conn.Mode = adModeRead

Conn.Open "Driver=MySQL; Server=localhost; Database=name_der_datenbank;", _

"User", "Passwort"

' Für den neuen ODBC 3.51 Treiber !

' Conn.ConnectionString = _

' "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=DBName;SERVER=localhost;"

 

Conn.CursorLocation = adUseClient

 

RS.CursorLocation = adUseClient

RS.Open "Select * from phpbb_users", Conn, _

adOpenForwardOnly, adLockReadOnly

 

Do While Not RS.EOF

WScript.Echo RS.Fields("UID") & " " & _

RS.Fields("Name") & ", " & RS.Fields("Vorname")

RS.MoveNext

Loop

 

RS.Close

Conn.Close

Set RS = Nothing

Set Conn = Nothing