Dim isAdding As Boolean
Dim rsr As New ADODB.Recordset
Public Sub InitRecordSet()
If (rsr.State = 1) Then
rsr.Close
End If
rsr.Open "select * from [注塑銷售訂單]", conn, 3, 2
Set DataGrid1.DataSource = rsr
End Sub
Set DataGrid1.DataSource = rsr
/提示行集合不能作為標簽 7004
uj5u.com熱心網友回復：
連接字串的問題rsr.Open "select * from [注塑銷售訂單]", conn, 3, 2改成如下：
rsr.CursorLocation = adUseClient
rsr.Open "select * from [注塑銷售訂單]", conn, adOpenDynamic, adLockOptimistic
uj5u.com熱心網友回復：
給資料庫表增加一個主鍵。這個錯誤的原因是因為脫機的資料沒有主鍵ADO不知道它如何和資料庫的記錄對應。比如說你的資料庫有兩條一樣的資料，那么你在客戶端修改其中一條，再更新，ADO知道你修改的是哪一條呢？
http://blog.csdn.net/cly2004/article/details/333304
uj5u.com熱心網友回復：
頂....最簡單的方法以就是: 換為： rsr.Open "select * from [注塑銷售訂單]", conn, adOpenStatic, adLockOptimistic
uj5u.com熱心網友回復：
應該是系結有活動的連接物件 conn 的記錄集時，要求采用動態游標（2）。而樓主用的是靜態游標（3）。當沒有連接物件時，下面的代碼可以運行：
' Create a Recordset
Dim rst As ADODB.Recordset
Private Sub Command1_Click()
Set rst = New ADODB.Recordset
' Add columns to the Recordset
rst.Fields.Append "Key", adInteger
rst.Fields.Append "Field1", adVarChar, 40, adFldIsNullable
rst.Fields.Append "Field2", adDate
' Open the Recordset
rst.Open , , 3, 2
' Add data to the Recordset
rst.AddNew Array("Key", "Field1", "Field2"), _
Array(1, "string1", Date)
rst.AddNew Array("Key", "Field1", "Field2"), _
Array(2, "string2", #1/1/2000#)
' Populate the Data in the DataGrid
Set DataGrid1.DataSource = rst
End Sub
Private Sub Command2_Click()
' Modify the data through code
rst.MoveFirst
rst(1) = "Changed Field"
rst.UpdateBatch
End Sub
Private Sub Form_Load()
Command1.Caption = "Populate"
Command2.Caption = "Update"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/134042.html
標籤：VB基礎類