1.我在表單上放置了一個ADO控制項
2.有一個資料庫名為temp.mdb,用Access 2000建立
裡面有一個表格table1
共有下列欄位:
UIN 型態是自動編號
nickname 型態是文字
3.下列是程式:
Dim DBfile As New ADODB.Connection '資料庫
Dim DBtable As New ADODB.Recordset '表格
Dim UIN As Long
DBfile.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\temp.mdb"
DBtable.Open "table1", DBfile, adOpenDynamic
If DBtable.RecordCount ＞= 1 Then DBtable.MoveLast
DBtable.AddNew ＜---錯誤訊息:提供者不提供應用程式要求的動作
With DBtable
.Fields("nickname").Value = "John"
End With
UIN = DBtable.Fields("UIN").Value '＜---這樣可以取得嗎?
DBtable.Update
對於這個程式?請問我該怎麼辦?
謝謝!