Enkapsulasi kode koneksi database dalam suatu fungsi dan panggil fungsi ini saat pembacaan diperlukan. Berikut ini adalah kode koneksi SQL:
Copy kode kodenya sebagai berikut:
Fungsi Open_conn()
redupkan Conn,Strconn
setel Sambungan=server.buat objek(adodb.koneksi)
Strconn = Penyedia = Sqloledb; ID Pengguna = akun login database; Kata Sandi = kata sandi login database; Katalog Awal = nama database;
Sambungan buka Strconn
atur Open_conn=Samb
Jika Salah Lalu
err.Clear
Sambungan.tutup:atur Sambungan=tidak ada
Respon.Tulis Maaf, kesalahan koneksi database.
Respon.Akhir
Akhiri Jika
Fungsi Akhir
Metode panggilan:
ganti yang asli
Copy kode kodenya sebagai berikut:
rs.open sql, samb
Ubah ke
Copy kode kodenya sebagai berikut:
rs.buka sql,Open_conn()
Berikut kode koneksi ACCESS :
Copy kode kodenya sebagai berikut:
Fungsi Open_conn()
redupkan Dbpath, Sambung
Dbpath=server.MapPath (jalur basis data)
setel Conn=server.createObject(ADODB.koneksi)
Sambungan.open data source=&dbpath&;provider=microsoft.Jet.OLEDB.4.0;
atur Open_conn=Samb
Jika Salah Lalu
err.Clear
Sambungan.tutup:atur Sambungan=tidak ada
Respon.Tulis Maaf, kesalahan koneksi database.
Respon.Akhir
Akhiri Jika
Fungsi Akhir
Metode panggilan:
ganti yang asli
Copy kode kodenya sebagai berikut:
rs.open sql, samb
Ubah ke
Copy kode kodenya sebagai berikut:
rs.buka sql,Open_conn()