请问如何将多选框的内容写入ACCESS连接数据库?

liulangkelemao 2005-12-16 08:52:59

...全文

109 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

liulangkelemao 2005-12-16

打赏
举报

adodc1.recordset.addnew
我是在添加按钮里
我现在这一段是确定添加按钮的代码
下面是添加按钮的代码
Private Sub Command1_Click()
Dim bh As Integer
Dim strbh As String
On Error Resume Next
If Command1.Caption = "添加" Then
Adodc1.Recordset.MoveLast '记录指针移动到最后
strbh = Adodc1.Recordset!编号 '取最后一条记录的编号
Adodc1.Recordset.AddNew
bh = Val(strbh) + 1
Text1.Text = bh
Command3.Enabled = True
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command1.Caption = "取消添加"
Else
Adodc1.Recordset.CancelUpdate
Command1.Caption = "添加"
Command3.Enabled = False
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
End Sub

litaoa 2005-12-16

打赏
举报

'try it
For i = 0 To List1.ListCount - 1
i = i + 1 '?
If List1.Selected(i) = True Then
adodc1.recordset.addnew
Adodc1.Recordset!产品名称 = List1.List(i)
Adodc1.Recordset!营业执照注册日期 = DTPicker1.Value
Adodc1.Recordset!联系电话 = MaskEdBox1.Text
Adodc1.Recordset!邮政编码 = MaskEdBox2.Text
Adodc1.Recordset!法人联系电话 = MaskEdBox3.Text
adodc1.recordset.update
End If
Next i

liulangkelemao 2005-12-16

打赏
举报

下面是我的确定添加代码
然后它多选框选择了两条或两条以上记录时也只能添加进去一条记录
麻烦看下问题出在那~~
谢了先

Private Sub Command3_Click()
For i = 0 To List1.ListCount - 1
i = i + 1
If List1.Selected(i) = True Then
Adodc1.Recordset!产品名称 = List1.List(i)
Adodc1.Recordset!营业执照注册日期 = DTPicker1.Value
Adodc1.Recordset!联系电话 = MaskEdBox1.Text
Adodc1.Recordset!邮政编码 = MaskEdBox2.Text
Adodc1.Recordset!法人联系电话 = MaskEdBox3.Text
End If
Next i
Adodc1.Recordset.Update
Command3.Enabled = False
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command1.Caption = "添加"

End Sub

liulangkelemao 2005-12-16

打赏
举报

下面是我的确定添加代码
然后它每次只能添加进去一条记录
麻烦看下问题出在那~~
谢了先

Private Sub Command3_Click()
For i = 0 To List1.ListCount - 1
i = i + 1
If List1.Selected(i) = True Then
Adodc1.Recordset!产品名称 = List1.List(i)
Adodc1.Recordset!营业执照注册日期 = DTPicker1.Value
Adodc1.Recordset!联系电话 = MaskEdBox1.Text
Adodc1.Recordset!邮政编码 = MaskEdBox2.Text
Adodc1.Recordset!法人联系电话 = MaskEdBox3.Text
End If
Next i
Adodc1.Recordset.Update
Command3.Enabled = False
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command1.Caption = "添加"

End Sub

weiweiplay 2005-12-16