20/05/2008
View: 1,682
รวบรวมคำสั่ง <% ASP %> ในการใช้ติดต่อฐานข้อมูล Database
<%
Dim Connect ' ประกาศตัวแปร
'--------------------------/ติดต่อฐานข้อมูล Access97, 2000
Connect = "driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ="&Server.mappath("/db/access97.mdb")&";"
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"DATA SOURCE=c:\path\to\db\access2000.mdb"
'--------------------------/ ติดต่อฐานข้อมูล Access97 ( มีรหัสผ่าน )
Connect = "driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ="&Server.mappath("/db/access97.mdb") & ";"&_
"uid=admin;pwd=Password;"
Connect = "Provider=Microsoft.Jet.OLEDB.3.51;"&_
"Data Source="&Server.mappath("/db/access97.mdb")&";"&_
"Jet Oledb:Database Password=Password;"
'--------------------------/ ติดต่อฐานข้อมูล Access2000 ( มีรหัสผ่าน )
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Persist Security Info=False;"&_
"Data Source="&Server.mappath("/db/access2000.mdb")&";"&_
"Jet Oledb:Database Password=Password;"
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Persist Security Info=False;"&_
"Data Source=c:\path\to\db\access2000.mdb;"&_
"Jet Oledb:Database Password=Password;"
'--------------------------/ ติดต่อฐานข้อมูล MySQL
Connect = "driver={MySQL};" &_
"server=localhost;" &_
"database=MySQL Name;" &_
"uid=UserName;" &_
"pwd=Password;"
Connect = "driver={MySQL ODBC 3.51 Driver};" &_
"server=localhost;" &_
"database=MySQL Name;" &_
"uid=UserName;" &_
"pwd=Password;" &_
"option=3"
'--------------------------/ ติดต่อฐานข้อมูล MsSQL Server
Connect = "driver={SQL Server};" &_
"server=localhost;"&_
"uid=UserName;"&_
"pwd=Password;"&_
"database=SQL Name"
Connect = "Provider=SQLOLEDB;" &_
"Server=localhost;" &_
"User ID=UserName;" &_
"Password=Password;" &_
"Database=SQL Name;"
Connect = "Provider=SqlOLEDB;" &_
"Network Library=DBMSSOCN;" &_
"Data Source=localhost;" &_
"Initial Catalog=SQL Name;" &_
"User Id=UserName;" &_
"Password=Password;"
%>