UC知道VB access添加重复记录????
来源：百度知道 编辑：UC知道 时间：2024/05/12 04:15:18
为了防止用户添加相同的用户名，如果写啊？ACCESS数据表，
user_Info为表名， user_Id为用户编号（主键） user_Name为用户名！下面的怎么改啊，完整点呼，先谢谢了！！
Set Conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False"
Conn.Open Connstr
Set rs = CreateObject("adodb.recordset")
SQL = "select user_id from user_Info where user_name=text1.text"
rs.Open SQL, Conn, 1, 3
rs.AddNew
user_Info为表名， user_Id为用户编号（主键） user_Name为用户名！下面的怎么改啊，完整点呼，先谢谢了！！
Set Conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False"
Conn.Open Connstr
Set rs = CreateObject("adodb.recordset")
SQL = "select user_id from user_Info where user_name=text1.text"
rs.Open SQL, Conn, 1, 3
rs.AddNew
SQL = "select user_id from user_Info where trim(user_name)=" + trim(text1.text)
rs.Open SQL, Conn, 1, 3
if rs.bof and rs.eof then
rs.AddNew
else
msgbox "已存在此用户，请换名字"
endif
另外你只select user_id那么在rs.AddNew之后将只能保存user_id这一项的值，应该把需要添加值的字段都添加进来或用SQL Insert来添加记录。