求教SQL查询 Select * From 用法
我用vb6做了一个小程序数据库用access,用adodc+datagrid控件,我想做一个查询,检索数据库中是否已存在日期字段中的该日期,如果存在就msgbox如果没有...
我用vb6做了一个小程序数据库用access,用adodc+datagrid控件,我想做一个查询,检索数据库中是否已存在日期字段中的该日期,如果存在就msgbox如果没有就保存该记录
c是表名 date是字段名
代码如下Dim mystr
mystr = Text1(0).Text
If Adodc1.RecordSource = "select count(*) from c where mystr <> 0 " Then
Adodc1.Recordset.Update
Adodc1.Refresh
from.Adodc1.Recordset.Update '更新数据表
from.Adodc1.Refresh
Else
MsgBox "请注意该日期已在数据库中存在,请检查日期是否输入错误"
End If
复制代码现在的问题是 不论日期重复不重复都会出msgbox,不重复也可以保存。另外是我是在from1.frm做的输入,text连接了数据库,转到from2.frm检查数据后 保存运行上面代码的,还有如果数据重复datagrid控件会出错,如何把错误提示去掉,或者自己加错误提示,拜托诸位达人了 展开
c是表名 date是字段名
代码如下Dim mystr
mystr = Text1(0).Text
If Adodc1.RecordSource = "select count(*) from c where mystr <> 0 " Then
Adodc1.Recordset.Update
Adodc1.Refresh
from.Adodc1.Recordset.Update '更新数据表
from.Adodc1.Refresh
Else
MsgBox "请注意该日期已在数据库中存在,请检查日期是否输入错误"
End If
复制代码现在的问题是 不论日期重复不重复都会出msgbox,不重复也可以保存。另外是我是在from1.frm做的输入,text连接了数据库,转到from2.frm检查数据后 保存运行上面代码的,还有如果数据重复datagrid控件会出错,如何把错误提示去掉,或者自己加错误提示,拜托诸位达人了 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询