close
LV超3A名牌購物網
VB6要連結資料庫 ACCESS 很簡單 ,不必下載(MDAC2.5 MDAC2.7)
只要 在 VB6 <專案> => <設定引用項目> =>
勾選 MicroSoft Active Data Objects 2.6 Library 就可以了
Public cn As ADODB.Connection ' Connection物件
Private rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "MSDataShape"
cn.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= D:\XX\yy.mdb"
cn.Open
Set rs = New ADODB.Recordset
'mySQL = " SELECT * FROM [資料表] WHERE 條件 order by [欄位} "
mySQL = " SELECT * FROM [資料表] "
rs.Open mySQL, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
詳細練功請參考 王國榮 著 "VB6 與資料庫"
全站熱搜