PHP <-> ADODB <-> ODBC <-> Access->->->
建立 ODBC 連線:
控制台 -> 系統管理工具 -> 系統資料來源名稱 -> 新增 -> Microsoft Access Driver
輸入 "資料來源名稱" (與 ODBC 連線的識別號)
選取 Access 資料庫
Reference :
PHP使用ODBC來取ACCESS
php ADODB access @ 好東西分享 :: 痞客邦 PIXNET ::
2012年11月14日 星期三
2012年4月10日 星期二
2012年4月6日 星期五
VBA 連線 Access 資料庫
Private Sub CommandButton1_Click()
' mdb 資料庫連線
Dim dbcn As ADODB.Connection
Set dbcn = New ADODB.Connection
dbcn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=library.mdb;"
dbcn.Open
' SQL
sqlstr = "select id, 姓名 from users"
' RecordSet
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
' 執行 SQL
rs1.Open sqlstr, dbcn
' 視窗顯示 Record 內容
If Not rs1.EOF Then
rs1.MoveFirst
While Not rs1.EOF
MsgBox CStr(rs1.Fields(0)) + " -> " + CStr(rs1.Fields(1))
rs1.MoveNext
Wend
End If
' 關閉資料庫連線
rs1.Close
dbcn.Close
End Sub
Reference :
Access資料庫的連結
Excel VBA 使用 ADO語法連結Access資料庫常用方法
Excel VBA連結資料庫系統---Access資料庫
' mdb 資料庫連線
Dim dbcn As ADODB.Connection
Set dbcn = New ADODB.Connection
dbcn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=library.mdb;"
dbcn.Open
' SQL
sqlstr = "select id, 姓名 from users"
' RecordSet
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
' 執行 SQL
rs1.Open sqlstr, dbcn
' 視窗顯示 Record 內容
If Not rs1.EOF Then
rs1.MoveFirst
While Not rs1.EOF
MsgBox CStr(rs1.Fields(0)) + " -> " + CStr(rs1.Fields(1))
rs1.MoveNext
Wend
End If
' 關閉資料庫連線
rs1.Close
dbcn.Close
End Sub
Reference :
Access資料庫的連結
Excel VBA 使用 ADO語法連結Access資料庫常用方法
Excel VBA連結資料庫系統---Access資料庫
訂閱:
文章 (Atom)