Program Koneksi Database Universal

Penulis：Eve Cole Waktu Pembaruan：2025-08-18 03:48:01

Klien Database Universal mempelajari Program Koneksi Database Universal. Klien basis data ini dapat dikatakan sebagai klien basis data universal yang mendukung cakupan basis data dan semua database yang dapat kita lihat. Jadi apakah Anda tahu program koneksi database universal? Biarkan editor saluran teknologi baru membawa Anda untuk mempelajari lebih lanjut!

Pendahuluan: Menghubungkan berbagai jenis database dan fungsi untuk operasi basis data

Program berikut dapat dikatakan sebagai program koneksi basis data universal yang dapat terhubung ke hampir semua database MS. Silakan gunakan untuk meneliti sendiri (program ini ada di buku "Tutorial Produksi Halaman Web ASP" - Buku yang bagus):

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Fungsi getMdBconnection (nama file)

Penyedia redup, dbpath

Provider = "Provider = microsoft.jet.oledb.4.0;"

Dbpath = "Sumber data =" & server.mappath (nama file)

Setel getMdBConnection = getConnection (penyedia & dbpath)

Fungsi akhir

Fungsi GetSecuredMDBConnection (nama file, kata sandi)

Penyedia redup, dbpath

Provider = "Provider = microsoft.jet.oledb.4.0;"

Dbpath = "Sumber data =" & server.mappath (nama file)

Set GetSecuredMDBConnection = getConnection (penyedia & dbpath & "; jet oledb: kata sandi basis data =" & kata sandi) fungsi akhir

Fungsi getDbcconnection (nama file)

Driver redup, sourcetype, dbpath

Driver = "driver = {driver Microsoft Visual FoxPro};"

Sourcetype = "Sourcetype = dbc;"

Dbpath = "Sourcedb =" & Server.Mappath (nama file)

Setel getDbCconnection = getConnection (driver & sourcetype & dbpath)

Fungsi akhir

Fungsi getDBFConnection (direktori)

Driver redup, sourcetype, dbpath

Driver = "driver = {driver Microsoft Visual FoxPro};"

Sourcetype = "Sourcetype = dbf;"

Dbpath = "SourcedB =" & Server.Mappath (direktori)

Setel getDBFConnection = getConnection (driver & sourcetype & dbpath)

Fungsi akhir

Fungsi getExcelconnection (nama file)

Driver redup, dbpath

Driver = "driver = {microsoft excel driver (*.xls)};"

Dbpath = "dbq =" & server.mappath (nama file)

Setel getExcelConnection = getConnection (driver & "readonly = 0;" & dbpath) fungsi akhir

Fungsi getTextConnection (direktori)

Driver redup, dbpath

Driver = "driver = {microsoft text driver ( *.txt; *.csv)};"

Dbpath = "dbq =" & server.mappath (direktori)

Setel getTextConnection = getConnection (driver & dbpath)

Fungsi akhir

Fungsi getsqlServerconnection (komputer, userid, kata sandi, db)

Dim params, Conn

Set getsqlserverconnection = tidak ada

Params = "penyedia = sqloledb.1"

Params = params & "; Sumber data =" & komputer

Params = params & "; User id =" & userId

Params = params & "; kata sandi =" & kata sandi

Params = params & "; katalog awal =" & db

Set Conn = Server.CreateObject ("AdodB.Connection")

Conn.Open Params

Set getsqlserverconnection = conn

Fungsi akhir

Fungsi getMdbrecordset (nama file, sumber)

Setel getMdbrecordset = getMdbrs (nama file, sumber, 2, "")

Fungsi akhir

Fungsi getMdBstaticRecordset (nama file, sumber)

Setel getMdBstaticRecordset = getMdbrs (nama file, sumber, 3, "")

Fungsi akhir

Fungsi GetSecuredMdBrecordset (nama file, sumber, kata sandi)

Set GetSecuredMDBrecordset = getMdbrs (nama file, sumber, 2, kata sandi) fungsi akhir

Fungsi GetSecuredMDBSTatiCRecordset (nama file, sumber, kata sandi)

Set getsecuredmdbstaticrecordset = getMdbrs (nama file, sumber, 3, kata sandi) fungsi akhir

Fungsi getDbFrecordset (Direktori, SQL)

Setel getDbFrecordset = getotherrs ("dbf", direktori, sql, 2)

Fungsi akhir

Fungsi getDbfStaticRecordset (Direktori, SQL)

Setel getDbfStaticRecordset = getotherrs ("dbf", direktori, sql, 3)

Fungsi akhir

Fungsi getdbcrecordset (nama file, sql)

Setel getdbcrecordset = getotherrs ("dbc", nama file, sql, 2)

Fungsi akhir

Fungsi getDbcStaticRecordset (nama file, SQL)

Setel getDbcStaticRecordset = getotherrs ("dbc", nama file, sql, 3)

Fungsi akhir

Fungsi getExcelrecordset (nama file, SQL)

Setel getExcelrecordset = getotherrs ("excel", fileName, sql, 2)

Fungsi akhir

Fungsi getExcelstaticRecordset (nama file, SQL)

Setel getExcelstaticRecordset = getotherrs ("excel", nama file, sql, 3)

Fungsi akhir

Fungsi getTextrecordset (direktori, SQL)

Setel GettExtrecordset = getotherrs ("Teks", Direktori, SQL, 2)

Fungsi akhir

Fungsi getTextStaticRecordset (Direktori, SQL)

Setel getTextStaticRecordset = getotherrs ("Text", Direktori, SQL, 3)

Fungsi akhir

Fungsi getSqlServerRecordset (Conn, Source)

Redup

Set RS = Server.CreateObject ("ADODB.Recordset")

Sumber Rs.open, Conn, 2, 2

Set getsqlserverrecordset = rs

Fungsi akhir

Fungsi getsqlServerstaticrecordset (Conn, source)

Redup

Set RS = Server.CreateObject ("ADODB.Recordset")

Sumber Rs.open, Conn, 3, 2

Set getsqlserverstaticrecordset = rs

Fungsi akhir

Fungsi getConnection (param)

Redup conn

Pada kesalahan resume berikutnya

Atur getConnection = tidak ada

Set Conn = Server.CreateObject ("AdodB.Connection")

Jika err.number <> 0 maka fungsi keluar

Conn.Open Param

Jika err.number <> 0 maka fungsi keluar

Atur getConnection = conn

Fungsi akhir

Fungsi getMDBRS (nama file, sumber, kursor, kata sandi)

Redup conn, rs

Pada kesalahan resume berikutnya

Atur getMdbrs = tidak ada

Jika len (kata sandi) = 0 lalu

Set Conn = getMdBConnection (nama file)

Kalau tidak

Set Conn = GetSecuredMDBConnection (nama file, kata sandi)

Akhiri jika

Jika Conn bukan apa -apa maka fungsi keluar

Set RS = Server.CreateObject ("ADODB.Recordset")

Jika err.number <> 0 maka fungsi keluar

Sumber Rs.open, Conn, kursor, 2

Jika err.number <> 0 maka fungsi keluar

Atur getMdbrs = rs

Fungsi akhir

Fungsi getotherrs (DataType, Path, SQL, kursor)

Redup conn, rs

Pada kesalahan resume berikutnya

Atur getotherrs = tidak ada

Pilih DataType Case

Kasus "dbf"

Set Conn = GetDBFConnection (Path)

Kasus "DBC"

Set Conn = GetDBCConnection (Path)

Kasus "excel"

Set Conn = GetExcelConnection (Path)

Kasus "teks"

Set Conn = GetTextConnection (Path)

Akhiri Pilih

Jika Conn bukan apa -apa maka fungsi keluar

Set RS = Server.CreateObject ("ADODB.Recordset")

Jika err.number <> 0 maka fungsi keluar

rs.open sql, conn, kursor, 2

Jika err.number <> 0 maka fungsi keluar

Setel getotherrs = rs

Fungsi akhir

Fungsi getsqlserver (komputer, userid, kata sandi, db, sumber, kursor)

Redup conn, rs

Pada kesalahan resume berikutnya

Set getsqlserverrs = tidak ada

Set Conn = GetSQLServerConnection (komputer, userid, kata sandi, db)

Jika Conn bukan apa -apa maka fungsi keluar

Set RS = Server.CreateObject ("ADODB.Recordset")

Jika err.number <> 0 maka fungsi keluar

Sumber Rs.open, Conn, kursor, 2

Jika err.number <> 0 maka fungsi keluar

Set getsqlserverrs = rs

Fungsi akhir

Di atas adalah pengantar terperinci untuk program koneksi basis data universal. Untuk konten lebih lanjut, silakan terus perhatikan saluran teknologi baru yang salah!