Connectie met MySQL Database

Auteur: barry - 19 oktober 2004 - 01:30 - Gekeurd door: Dennisvb - Hits: 3358 - Aantal punten: 1.50 (3 stemmen)

Hierin wordt uitgelegd hoe je een connectie met een mysqldatabase kan maken...
Zelf ffies de gegevens aanpassen in het script...

Code:

php code - Bekijk de code zonder highlighting - Klap code in

<%@ Language=VBScript %>

<%

Dim conn

set conn = Server.CreateObject("ADODB.Connection")

conn.ConnectionString = "driver={SQL Server};" & _

"server=11.111.11.111;" & _

"Address=11.111.11.111,1433;" & _

"Network=DBMSSOCN;" & _

"uid=myusername;" & _

"pwd=mypwd;" & _

"database=mysqldatabase;"

Dim strSQL, rs

strSQL = "Select veldnaam from tabelnaam"

set rs = Server.CreateObject("ADODB.Recordset")

rs.Open strSQL, conn

do while not rs.EOF

Response.Write rs("Veldnaam")

Response.Write "<BR>"

rs.MoveNext

loop

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

%>

<%@ Language=VBScript %>
 
<%
 
Dim conn
 
set conn = Server.CreateObject("ADODB.Connection")
 
conn.ConnectionString = "driver={SQL Server};" & _
 
"server=11.111.11.111;" & _
 
"Address=11.111.11.111,1433;" & _
 
"Network=DBMSSOCN;" & _
 
"uid=myusername;" & _
 
"pwd=mypwd;" & _
 
"database=mysqldatabase;"
 
Dim strSQL, rs
 
strSQL = "Select veldnaam from tabelnaam"
 
set rs = Server.CreateObject("ADODB.Recordset")
 
rs.Open strSQL, conn
 
do while not rs.EOF
 
Response.Write rs("Veldnaam")
 
Response.Write "<BR>"
 
rs.MoveNext
 
loop
 
rs.Close
 
Set rs = Nothing
 
conn.Close
 
Set conn = Nothing
 
%>

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Geen reacties (0)