UC知道VB 向数据库添加数据
来源：百度知道 编辑：UC知道 时间：2024/07/07 17:06:37
学生信息表
姓名 text1 学号 text2 性别 combo1 出生年月 text3 专业 combo2
现在想向这个数据库添加一个学生
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click() /"确认键“
Adodc1.Recordset.Update
End Sub
数据库连接正常，能看。。但添加就不能添加，不知道为什么
文本框绑定 怎么绑定呢
总提示多步操作产生错误，请重新检查每一步状态值
姓名 text1 学号 text2 性别 combo1 出生年月 text3 专业 combo2
现在想向这个数据库添加一个学生
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click() /"确认键“
Adodc1.Recordset.Update
End Sub
数据库连接正常，能看。。但添加就不能添加，不知道为什么
文本框绑定 怎么绑定呢
总提示多步操作产生错误，请重新检查每一步状态值
文本框绑定？最好不要这样处理，数据会出错的
Private Sub Command2_Click() /"确认键“
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名") = Text1.text
Adodc1.Recordset.Fields("学号") = Text2.text
Adodc1.Recordset.Fields("性别") = combo1.text
Adodc1.Recordset.Fields("出生年月") = Text3.text
Adodc1.Recordset.Fields("专业") = combo2.text
Adodc1.Recordset.Update
End Sub
当然可以拉。如下面换位就明白拉呵呵 加油哦
当然可以
dim rs as new ADODB.Recordset
rs.open "select distinct 字段名 from 表名",conn
with combo1
do while not rs.eof
.clear
.additem rs("字段名").value
rs.movenext
loop
end with
rs.close
set rs=nothing
什么数据库？
给你一个添加ACCESS数据库的实例，半辈子就指望这代码混了，不用建立RS连接但是一定要写对SQL语句代码
工程->引用->添加Microsof ActiveX Data Objects 2.x..........
Private Sub CmdAdd_Click()
Dim cn As New ADODB.Connection
If TxtCode.Te