以下為vb6.0的連接資料庫字串
Dim MyDB As New ADODB.Connection
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRec為一個新的ADODB的Recordset物件
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText '<--指定為SQL程序
SQL = "Select * From man where 員工編號='1'"
'一開始的敘述為SQL = "Select * From 檔案"
Adodc1.RecordSource = SQL
Adodc1.Refresh '<--重新整理
DataGrid1.Refresh '<--只秀出符合的資料
End Sub
Private Sub Command2_Click()
'相關insdelupsata
Dim Cn As Object
Dim Eff As Long
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;Persist Security Info=False"
Cn.Execute "DELETE FROM man WHERE 員工編號 = '4' ", Eff
'Cn.Execute "INSERT INTO man(員工編號,姓名,名)VALUES() ", Eff
'Cn.Execute "DELETE FROM man WHERE 員工編號 = '4' ", Eff
MsgBox "已刪除" & Eff & "筆資料"
End Sub
Private Sub Command3_Click()
Text1.Text = Adodc1.Recordset("員工編號")
Text2.Text = Adodc1.Recordset("姓名")
'
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Find "員工編號= '5'"
'字串函數http://yuan.yocjh.kh.edu.tw/%E6%95%99%E6%9D%90/vb%E5%87%BD%E6%95%B8.htm
End Sub
Private Sub Command5_Click()
MyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\db2.mdb"
' "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\db2.mdb"
'上面那一行是利用ADODC抄出來的
'用Microsoft.Jet.OLEDB.3.51這個Provider
'把資料庫載入到MyDB這個ADODB.Connection
'想要開啟Access2000、Access2003的mdb檔時，上面要改成：Provider=Microsoft.Jet.OLEDB.4.0;
MyRec.Open "man", MyDB
'MyRec擇開啟MyDB裡的〝VB網站〞這一個資料表
'MyRec此時MyRec裡以經充滿了url.mdb的VB網站的資料了
Do Until MyRec.EOF
List1.AddItem MyRec.Fields(0) & Chr(9) & MyRec.Fields(1) & MyRec.Fields(2)
'MyRec.Fields(0)是說MyRec指標所在的位置第一欄裡的資料
'MyRec.Fields(1)是說MyRec指標所在的位置第二欄裡的資料
'Chr(9)則是一個跳位字元
MyRec.MoveNext
'MyRec裡的指標移到下一筆的位置
Loop
'如果MyRec的指標已經移到最後一筆，則結束這一個迴圈
End Sub
