'Memecahkan masalah jalur database ACCESS!
'Gunakan DBType=0 atau DBType=1 untuk membedakan perpustakaan AC atau perpustakaan MSSQL
'Untuk hal-hal khusus yang perlu diperhatikan saat menggunakan AC Library, silakan lihat deskripsi program
----------------------------- ----- ----------
Redupkan DBType,Conn,StrConn
DBType=0 '0 adalah database Access, 1 adalah database MSSQL
If(DBType=0) Then
'******************AKSES DATABASE******************
Redupkan DbFolderName, DbFolder_Path, SiteFolder
DbFolderName="ArticleData" 'Nama folder tempat database berada
DbFolder_Path = Server.MapPath(DbFolderName) 'Jalur ke database
SiteFolder="Article" 'Nama direktori root dimana sistem beradaIf
Session("RootDir") = "" Then
Sesi("RootDir") = Tengah(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
Berakhir jika
Setel Sambungan = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'Sambungkan ke database
Sambungan.Buka StrConn
'*******************************************************
ElseIf(DBType=1) Lalu
'****************Basis data SERVER MSSQL******
Redupkan DBUserID,DBPassWord,DBName,DBIP
'Ubah informasi berikut agar sesuai dengan situs Anda
DBUserID="sa" 'Nama login basis data
DBPassWord="" 'Kata sandi basis data
DBName="namadb" 'Nama basis data
DBIP="local" 'Alamat database, jika database lokal: (lokal)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Sumber Data="&DBIP&";Katalog Awal="&DBName&";Info Keamanan Tetap=True;ID Pengguna="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"
Sambungan.Buka StrConn
'******************************************************* ****
Kalau tidak
'************************Kesalahan pengaturan basis data******************
Response.Tulis "Kesalahan pengaturan database, silakan hubungi administrator!"
Respon.Akhir
Akhiri Jika
'Respon.WriteStrConn