0AndText1(0)<>DataGrid1.Columns(0)ThenMsgBox"此记录已存在!",,"提示窗口"ElseCnn.Execute("update客户类别表set客户类别=+Text1(0)+,备注=+Text1(1)+_,修改日期=+Str(Date)+where客户类别=+DataGrid1.Columns(0)+")Adodc1.RefreshtlbStateToolbar1,FalseText1(0).Locked=True:Text1(1).Locked=TrueEndIf-IMDN开发者社群-imdn.cn"> 0AndText1(0)<>DataGrid1.Columns(0)ThenMsgBox"此记录已存在!",,"提示窗口"ElseCnn.Execute("update客户类别表set客户类别=+Text1(0)+,备注=+Text1(1)+_,修改日期=+Str(Date)+where客户类别=+DataGrid1.Columns(0)+")Adodc1.RefreshtlbStateToolbar1,FalseText1(0).Locked=True:Text1(1).Locked=TrueEndIf - IMDN开发者社群-imdn.cn">
登录
首页 » VB源码 » VB在数据库端禁止录入重复数据

VB在数据库端禁止录入重复数据

于 2022-08-14 发布 文件大小:25.65 kB
0 104
下载积分: 2 下载次数: 1

代码说明:

VB在数据库端禁止录入重复数据,对插入的数据进行判断,在写入数据库时进行判断是否已经存在于数据库中,判断是基于数据库的,数据库采用的是Access,在数据库端进行重复数据判断:   rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _    ", Cnn, adOpenKeyset, adLockOptimistic   If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then    MsgBox "此记录已存在!", , "提示窗口"   Else    Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _    ,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")    Adodc1.Refresh    tlbState Toolbar1, False    Text1(0).Locked = True: Text1(1).Locked = True   End If

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB6.0 获取汉字拼音简(首字母)
    VB6.0 获取汉字拼音简码,获取汉字拼音首字母,这个比较实用了,现在很多地方都会取首字母作为编号、帐号之类的,代码比较多,这里就不帖核心代码了,大家自行下载本源码吧,运行的效果如截图所示。
    2022-04-15 06:44:52下载
    积分:1
  • 网络五子棋游戏之客户大厅和服务器
    网络五子棋游戏源码之客户大厅和服务器 VB编的
    2023-07-18 23:30:04下载
    积分:1
  • VB6.0使用InPutBox显示密输入框
    VB6.0使用InPutBox显示密码输入框,InPutBox大部分情况下是用于输入数据,与用户交互,但这些数据并不是密码类型的,本实例是展示是使用InPutBox作为密码输入框,其实也是挺简单的:   Private Sub Command1_Click()    On Error GoTo Err_Out    Dim lTemp As Long    Dim sTemp As String    lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)    sTemp = InputBox("请输入密码", "密码输入框")   Err_Out: End Sub
    2023-02-13 07:30:04下载
    积分:1
  • VB写的一个轻型仿写字板文档编辑器
    VB6.0编写的一个轻型仿写字板的多功能文档编辑器源码,具备新建、打开、保存、打英剪切、复制、粘贴、粗体、斜体、下划线、左对齐、置中、右对齐等功能,界面还是挺友好的,文件格式支持DOC格式 (*.doc)|*.doc|RTF格式 (*.rtf)|*.rtf|文本文件 (*.txt)。   注:如果这个工程没有帮助文件,显示消息给用户,可以在“工程属性”对话框中为应用程序设置帮助文件。完整源码请下载查看。
    2022-03-15 05:13:20下载
    积分:1
  • VB利用地址偏移访问内存
    VB利用地址偏移访问内存,整个处理过程 封装在事件函数中,用户单击后,执行以下代码:   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)   Private Sub Form_Load()    Dim i As Long    Dim j As Long    i = 1234    j = 4321    Debug.Print VarPtr(i)    Debug.Print VarPtr(j)    CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4    Text1.Text = i   End Sub
    2022-08-20 12:19:05下载
    积分:1
  • VB6.0演示的AutoSize实例
    VB6.0演示的AutoSize实例,自动改变图片框的大小以显示图形全部内容,当图片框比图形小时,图形超出部分不被显示,减少图片框高度,使图片框小于图形。
    2022-08-07 04:59:17下载
    积分:1
  • VB6.0 获取网络连接信息
    VB6.0 获取网络连接信息,在如图所示的窗口中,点击按钮即可获取显示本机的网络连接信息,这些信息包括:   是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示:“系统通过LAN与Internet连接,系统安装了远程访问服务”。
    2023-05-26 06:40:02下载
    积分:1
  • 一个演示VB API高速搜索文件的程序
    一个演示VB高速搜索文件程序,基于API来实现,用于快速查找文件,类似的例子在前几年的书籍实例中,有很多,这一个也是从VB的书中整理出来的,代码中有丰富的注释,主要是分享给VB新手参考学习的。
    2022-10-25 13:25:04下载
    积分:1
  • VB 调用API函数设计关于窗体
    VB 调用API函数设计关于窗体,看第一眼,我还以为是调用Windows系统的关于窗口,仔细看,定义了自己的信息,这个例子可看作是VB使用API函数的例子,了解一些用法,关于本例子中的API用法,可看以下代码:   API函数声明:   Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long   Private Sub Form_Load()    Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net!", Me.Icon)   调用了ShellAbout显示信息,更多内容请下载源码。
    2022-01-25 16:50:26下载
    积分:1
  • VB MSChart图表控件实例:柱状图的实现
    VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.
    2022-04-15 23:55:01下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载