Παράλειψη και μετάβαση στο κύριο περιεχόμενο
Καλέστε μας
  • Αθήνα: Υποστήριξη 24/7 σε αγγλικά21 1 198 4715
  • Θεσσαλονίκη: Υποστήριξη 24/7 σε αγγλικά23 1 118 0732
Αριθμοί τηλεφώνου και ωράρια
Κέντρο βοήθειας

Εξερευνήστε τους online πόρους βοήθειας

Βοήθεια

Φιλοξενία Windows (Plesk) Βοήθεια

Κάναμε ό, τι μπορούσαμε για να μεταφράσουμε αυτή τη σελίδα για εσάς. Η αγγλική σελίδα είναι επίσης διαθέσιμη.

Σύνδεση σε μια βάση δεδομένων MySQL χρησιμοποιώντας ASP/ADO

Αυτό το παράδειγμα περιγράφει τη χρήση ASP/ADO για σύνδεση σε μια βάση δεδομένων MySQL.

Αντικαταστήστε τις τιμές από την αρχήyour_ με τις πληροφορίες βάσης δεδομένων σας. Αντικαταστήστεmysql.secureserver.net με το όνομα υπολογιστή βάσης δεδομένων.

<%
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server

db_server = "mysql.secureserver.net"
db_name = "your_dbusername"
db_username = "your_dbusername"
db_userpassword = "your_dbpassword"
fieldname = "your_field"
tablename = "your_table"

connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr

qry = "SELECT * FROM " & tablename

Set oRS = oConn.Execute(qry)

if not oRS.EOF then
while not oRS.EOF
response.write ucase(fieldname) & ": " & oRs.Fields(fieldname) & "
"
oRS.movenext
wend
oRS.close
end if

Set oRs = nothing
Set oConn = nothing

%>