請教:無法插入記錄.

[jimmyge]

1.採用adodc控件連接數據庫!採用text方式輸入記錄.

2.但代碼調試後,電腦提示:
實時錯誤'214740259(80004005)"
無法插入空行,行必須至少有一個列值集.

3.不解!呵呵...

[cindytsai]

可以贴代码出来看看，比较普通的做法是：
Adodc1.Recordset(0) = Text1.Text
Adodc1.Recordset(1) = Text2.Text
Adodc1.Recordset(2) = Text3.Text
Adodc1.Recordset.Update

[jimmyge]

忘記貼代碼了!呵呵...

Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Text1(0).SetFocus
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
DataGrid1.Refresh
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.CancelUpdate
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Visual Basic\EG\12-14\rkd.mdb;Persist Security Info=False"
Cn.Open
Adodc1.ConnectionString = Cn
Adodc1.RecordSource = "rkd"
Adodc1.Refresh
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0
If KeyCode = vbKeyReturn Then
Text1(1).SetFocus
End If
Case 1
If KeyCode = vbKeyReturn Then
Text1(2).SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(0).SetFocus
End If
Case 2
If KeyCode = vbKeyReturn Then
Text1(3).SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(1).SetFocus
End If
Case 3
If KeyCode = vbKeyReturn Then
Text1(4).SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(2).SetFocus
End If
Case 4
If KeyCode = vbKeyReturn Then
Text1(5).SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(3).SetFocus
End If
Case 5
If KeyCode = vbKeyReturn Then
Text1(6).Text = Val(Text1(5).Text) * Val(Text1(4).Text)
Text1(6).SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(4).SetFocus
End If
Case 6
If KeyCode = vbKeyReturn Then
Text1(7).SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(5).SetFocus
End If
Case 7
If KeyCode = vbKeyReturn Then
Command2.SetFocus
End If
If KeyCode = vbKeyUp Then
Text1(7).SetFocus
End If
End Select

End Sub

[cindytsai]

用了“Adodc1.Recordset.AddNew”以后，还要把内容放进数据才行啊，否则还不白加了?

[jimmyge]

command2

Adodc1.Recordset.Update

Adodc1.Refresh

[cindytsai]

用addnew+1楼的内容加上+你刚写的就可以了

[ljhdi]

看不懂代码什么意思
addnew 后又不加东西，
也没有update

[cindytsai]

Adodc1.Recordset.AddNew

'逐个字段赋值
Adodc1.Recordset(0) = Text1.Text
Adodc1.Recordset(1) = Text2.Text
Adodc1.Recordset(2) = Text3.Text
.
.
.
Adodc1.Recordset.Update

[jimmyge]

command1---登記

command2---確認

command3---取消

command4---退出


假設偶按了登記,那只有按確認或取消!確認不是有Adodc1.Recordset.Update及Adodc1.Refresh.


請其他高手解答!^_^

[cindytsai]

那我还是躲一边去吧。

[YUAN168]

用ADODB方式直接寫sql指令對數據庫操作更好，更直觀，為什麼要用ADODC，笨！

[江语]

厉害厉害~

[江语]

楼主还是先试试 cindytsai(笨笨的蔡鸟)的方法吧~

[jimmyge]

問題已經解決了!^_^

[jimmyge]

請其他高手解答!^_^

[hy_3]

先加个on error resume next:看一下是什么情况.