Berbagai kode koneksi database
Saya tidak ada pekerjaan hari ini, jadi saya merangkum koneksi berbagai database, dan sekarang saya membagikannya kepada Anda:
Koneksi basis data MS Access
Terhubung dengan DSN dan tanpa nama pengguna dan kata sandi:
<%
setel koneksi = Server.CreateObject(ADODB.Connection)
samb.buka NamaDSN Anda
%>
Terhubung dengan DSN dan dapatkan nama pengguna dan kata sandi:
<%
setel koneksi = Server.CreateObject(ADODB.Connection)
samb.buka NamaDSN Anda, nama pengguna, kata sandi
%>
Terhubung dengan jalur absolut aktual ke database:
<%
Setel samb = Server.CreateObject(ADODB.Connection)
Strconn=DRIVER={Driver Microsoft Access (*.mdb)};
Strconn=Strconn & DBQ=e:/yanhang/database.mdb
samb.Buka Strconn
%>
Terhubung dengan jalur relatif database aktual:
<%
Setel samb = Server.CreateObject(ADODB.Connection)
Strconn=DRIVER={Driver Microsoft Access (*.mdb)};
Strconn=Strconn & DBQ= & Server.MapPath(/database/yanhang.mdb)
samb.Buka Strconn
%>
Koneksi basis data MS SQL Server
Terhubung dengan DSN:
<%
setel koneksi = Server.CreateObject(ADODB.Connection)
samb.open DSN=DSN Saya;UID=pengguna;PWD=kata sandi;DATABASE=nama basis data
%>
Tanpa koneksi DSN:
<%
Setel samb = Server.CreateObject(ADODB.Connection)
DSNtemp=DRIVER={SQL Server};SERVER=NamaServer;UID=USER;PWD=kata sandi;DATABASE=nama basis data
samb.buka DSNtemp
%>
Koneksi basis data FoxPro
<%
Setel Koneksi = Server.CreateObject(ADODB.koneksi)
ConnStr= Pengemudi=Pengandar Microsoft Visual Foxpro; UID=ID pengguna;SourceType=DBC;SourceDB=C:/yanhang/database.dbc
Sambungan.Buka SambunganStr
%>
Koneksi basis data Oracle:
<%
setel koneksi=server.buat objek(adodb.koneksi)
samb.cursorlocation=adUseClient
DSNTemp=Penyedia=MSDAORA.1;Kata Sandi=xxxx;ID Pengguna=yanhang;Sumber Data=xxx.world
samb.buka DSNtemp
%>