我的vb是6.0的
而資料庫是Access 2003
問題: 我資料庫也設定好,存成mdb檔
但在VB要用Data控制項時,不是要設定DatabaseName的屬性,我也設定好來源位置，RecordSource屬性也設定好了，可是在run的時候卻出現
Microsoft jet 資料庫引擎無法找到輸入資料表，或查詢xxx，請確定它是存在的而且名稱沒有拼錯
求解???????
而資料庫是Access 2003
問題: 我資料庫也設定好,存成mdb檔
但在VB要用Data控制項時,不是要設定DatabaseName的屬性,我也設定好來源位置，RecordSource屬性也設定好了，可是在run的時候卻出現
Microsoft jet 資料庫引擎無法找到輸入資料表，或查詢xxx，請確定它是存在的而且名稱沒有拼錯
求解???????
最佳解答
'別用懶人Data控制項 .... 直接用程式控制比較有彈性
'或去找 VB6.0與資料庫的書籍會更快進入狀況
Public cn As ADODB.Connection ' Connection物件
Private rs As ADODB.Recordset
Dim mySQL As String
Private Sub Command1_Click()
mySQL = "SELECT * FROM [資料表] order by [欄位] "
Set rs = New ADODB.Recordset
rs.Open mySQL, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "MSDataShape"
cn.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= " + App.Path + "\xx.mdb"
cn.Open
End Sub
文章標籤
全站熱搜
