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!