怎么不让添加重复记录啊。。。

显示全部楼层 · 2021-1-27 06:21:40

DimmysqlAsString
DimmytablelAsNewDataTable
mysql="INSERTintoa(b,c,d,e)values('"&Trim(TextBox1.Text)&"',"&_
"'"&Trim(TextBox2.Text)&"',"&_
"'"&Trim(TextBox4.Text)&"',"&_
"'"&Trim(TextBox3.Text)&"')"
mytablel=dbdatatable.Exesql(mysql)
MsgBox("添加成功")
分 -->

千问 · 2021-1-27 06:21:40

添加之前先检查一下，是否存在这样的记录。重复总得有条件，比如不让名称重复，那在添加之前就判断这个名称是否存在。

千问 · 2021-1-27 06:21:40

不让添加是添加动作之前查询数据库中是否存在这样一条数据

千问 · 2021-1-27 06:21:40

引用1楼wtnu200的回复:添加之前先检查一下，是否存在这样的记录。重复总得有条件，比如不让名称重复，那在添加之前就判断这个名称是否存在。
具体应该怎么写啊。新手。。。数据库是SQL

千问 · 2021-1-27 06:21:40

先写一个过程，查询数数据表里有没有同样的记录，有就拒绝添加，没有就可以添加

千问 · 2021-1-27 06:21:40

引用4楼gba8jing的回复:先写一个过程，查询数数据表里有没有同样的记录，有就拒绝添加，没有就可以添加应该怎么写啊。主键是ID，谢谢。。

千问 · 2021-1-27 06:21:40

引用5楼dgguosong的回复:Quote: 引用4楼gba8jing的回复:
先写一个过程，查询数数据表里有没有同样的记录，有就拒绝添加，没有就可以添加应该怎么写啊。主键是ID，谢谢。。
如果楼主连查询数据表这么基础的东西都没能力写我也爱莫能助，真不行就先打好基础吧。

千问 · 2021-1-27 06:21:40

存盘前先select检查是否有此记录,然后在添加

千问 · 2021-1-27 06:21:40

我也是新手，这个应该能帮到你
'查询的东西是否存在
FunctionChaxun(ByValname_addAsString)
DimmyDateAsMySqlDataReader
DimsqlAsString="select*fromresource_versionwhereresource_name='"&name_add&"'"
'MsgBox(sql)
DimcmdAsNewMySqlCommand(sql,mycon)
mycon.open()
myDate=cmd.ExecuteReader()
Try
DoWhilemyDate.Read()
mycon.Close()
ReturnTrue
Loop
CatchexAsException
MessageBox.Show(ex.Message)
EndTry
mycon.Close()
ReturnFalse
EndFunction

千问 · 2021-1-27 06:21:40

对数据片理后再添加啊。