VB - Script um Daten in MySQL Datenbank zu schreiben

[Flax!]

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

[Flax!]

.... sorry... VB script

[substyle]

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!]

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

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

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