1,451
社区成员
发帖
与我相关
我的任务
分享combo控件问题！
在combo中输入字符后，使字符保存在下拉菜单中。我的combo的database为一data1!
我用
sub privete combo_change()
combo1.additem combo1.text
end sub
可以保存在下拉菜单中，但不能将字符加到数据库的表中！
啥办！？
我用
sub privete combo_change()
combo1.additem combo1.text
end sub
可以保存在下拉菜单中，但不能将字符加到数据库的表中！
啥办！？
...全文
请发表友善的回复…
发表回复
amstar 2001-04-14
- 打赏
- 举报
上面不要用change,用lostfocus 或KEYPRESS(13)
CONNECT.EXECTE "insert into data1(datafield) values('" & combo1.text & "')"
CONNECT.EXECTE "insert into data1(datafield) values('" & combo1.text & "')"
hhfh 2001-04-14
- 打赏
- 举报
快回答我！！！
hhfh 2001-04-14
- 打赏
- 举报
怎么保存呢？thank you !!
guest 2001-04-14
- 打赏
- 举报
当然不能啦，你又没有执行保存
Wonny 2001-04-14
- 打赏
- 举报
这样添加方便一些 adoRst.AddNew: adoRst("location")=trim(cmblocation):adorst.update:adorst.close
Wonny 2001-04-14
- 打赏
- 举报
以下是我很久以前写的，肯定行。
If Trim(cmbLocation.Text) <> "" Then
adoRst.Open "SELECT location FROM Location WHERE location='" & Trim(cmbLocation.Text) & "'", adoCn, adOpenKeyset
If adoRst.EOF Then
adoCn.Execute "INSERT INTO Location VALUES('" & Trim(cmbLocation.Text) & "','')"
End If
adoRst.Close
End If
If Trim(cmbLocation.Text) <> "" Then
adoRst.Open "SELECT location FROM Location WHERE location='" & Trim(cmbLocation.Text) & "'", adoCn, adOpenKeyset
If adoRst.EOF Then
adoCn.Execute "INSERT INTO Location VALUES('" & Trim(cmbLocation.Text) & "','')"
End If
adoRst.Close
End If
liuxing23 2001-04-14
- 打赏
- 举报
你可以用ADO 写入数据库
ADO 控件你应该回用吧
dim rs as Recordset
adodc1.recordsouce="select..."
adodc1.refresh
Set rs = adodc1.Recordset
rs.Fields(1)=combo1.text
rs.update
ADO 控件你应该回用吧
dim rs as Recordset
adodc1.recordsouce="select..."
adodc1.refresh
Set rs = adodc1.Recordset
rs.Fields(1)=combo1.text
rs.update
