本人菜鳥，用Data控制元件讀資料讀不出來，寫不進去。求指導
新建一個表單，目的想輸入賬號后點擊查詢，在剩余金額和客戶姓名中顯示相應的資料。在充值框中輸入錢數，點擊充值往資料庫中寫進新的金額。表單圖如下。
資料庫圖如下，用到“卡號”，“密碼”，“客戶編號”，"金額"四個欄位，前三個為text型，“金額”為double型
在表單中添加了Data控制元件，打開這張表~~~~~~~~~~~分隔線~~~~~~~~~~~~~~
Data1.DatabaseName = SystemPath + "dbase.mdb"
Data1.Connect = ";pwd=123456"
Data1.RecordSource = "yxsjb"
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~點擊查詢觸發的代碼：~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~
Private Sub Command1_Click()
On Error Resume Next
With frmMain.Data1.Recordset
.MoveFirst
For i = 1 To .RecordCount
If Text1(0).Text = .Fields("卡號") Then
find = True
Text1(1) = .Fields("金額")
Text1(3) = .Fields("用戶編號")
End If
Exit For
.MoveNext
Next i
If find Then
MsgBox 找到!", , "提示"
Else
MsgBox "無效的卡號，請重試!", , "提示"
End If
End With
End Sub
~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~
我以為點擊查詢后可以顯示出資訊， 結果沒有TAT。。
~~~~~~~~~~~分隔線~~~~~~~~~~~~點擊充值~~~~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~
Private Sub Command2_Click()
On Error Resume Next
With frmMain.Data1.Recordset
.MoveFirst
For i = 1 To .RecordCount
If Text1(0).Text = .Fields("卡號") Then
For ii = 1 To 7
.Fields(ii) = .Fields(ii)
.Fields(8) = .Fields("金額") + Val(Text1(2).Text)
.Update
Exit For
Next ii
End If
Exit For
Next i
End With
End Sub
~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~~~~~~~~~~~~分隔線~~~~~~~~~~~~~~~
結果充值也沖不進去
uj5u.com熱心網友回復：
如果是 Access 2000 以上庫檔案，Data 控制元件無法識別其格式。試試添加 DAO 物件來解決。
1 選“工程-參考”選單，選中 Microsoft DAO 3.6 Object Library，把低于它版本的 DAO 庫參考去掉。
2 寫代碼：
Dim db As DAO.Database, rs As DAO.Recordset
Set db = DBEngine.Opendatabase(SystemPath & "dbase.mdb")
Set rs = db.Openrecordset("select * from yxsjb")
Set Data1.Recordset = rs
uj5u.com熱心網友回復：
沒法回答直接操作 Data1.Recordset 的人問題，程式都是體育老師教的。出錯很正常，不出錯是中彩票。
uj5u.com熱心網友回復：
資料庫查詢和寫入不是這么弄的嘛這樣浪費多少資源啊
建議ADO+SQL陳述句。。。
uj5u.com熱心網友回復：
請改用adodc控制元件或ado物件來連接資料庫并操作轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93878.html
上一篇：用API設定表單風格