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 121
下载积分: 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 个回复

  • VB的保存文件对话框调用创建一例
    VB的保存文件对话框调用创建一例,弹出“打开”对话框,还有保存对话框,另存为对话框,通用对话框,cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。   cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
    2022-02-11 13:06:23下载
    积分:1
  • VB6.0 添加、修改、删除数据库指定表
    VB6.0 添加、修改、删除数据库指定表,添加、修改、删除作者表,VB6.0 添加、修改、删除数据库指定表。
    2022-08-15 01:24:59下载
    积分:1
  • VB演示矩阵的加法运算
    VB6.0演示矩阵的加法运算,本例中一共是两个矩阵,每一个矩阵都根据不同的算法生成矩阵数字序列,然后把这两个矩阵求和,最后一栏展示的是矩阵相加后的结果,以指定格式输出。看了代码,我暂时没搞懂是什么算法,感兴趣的自己下载源码,研究学习吧。
    2022-04-27 13:59:41下载
    积分:1
  • 日常考勤程序 基于VB.NET实现附源码
    一款基于VB.NET和sqlserver数据库实现的考勤程序,实现公司员工的日常考勤功能,可实现指定日期的员工考勤,考勤时可选择考勤天数、考勤人,可查询本人的考勤记录,实现的是挺基本的考勤模块,还可显示当前用户的历史记录。   本实例的数据库文件在db文件夹下,请自行添加,并配置数据库信息。   源代码运行于VS2015环境下。
    2022-12-02 11:45:03下载
    积分:1
  • 支持代理的VB FTP服务器程序
    一个FTP程序的例子,不过这个是支持代理服务器的,用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站,代码中很多注释,不过是英文的。这个FTP程序的样子似乎还需要完善,和当下流行的、CuteFTP、FlashFXP都有很大的区别,甚至说有点简陋,不过这个代码主查面向学习的,英文好的可下载本源码学习。
    2022-03-06 02:53:34下载
    积分:1
  • VB 控件随窗体自动调整大小
    VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form_Resize(),用此来控制各个控件的变化,来看代码:   Dim x, y As Long   x = Form1.Width - 200 - Frame1.Width - Image1.Width   y = (Frame1.Height - Drive1.Height - Drive1.Top - 200)   Frame1.Width = Frame1.Width + x / 2   Image1.Left = Frame1.Left + Frame1.Width + 100   Image1.Width = Image1.Width + x / 2   Image1.Height = Me.Height - 600   Frame1.Height = Image1.Height   Dir1.Width = Frame1.Width - 280   File1.Width = Dir1.Width   Drive1.Width = Dir1.Width   Dir1.Height = y / 3   File1.Top = Dir1.Top + Dir1.Height + 100   File1.Height = 2 / 3 * y   此段代码被封装在按钮事件中,请参见源代码文件。
    2023-02-03 17:15:04下载
    积分:1
  • vb 拉霸游戏源代码
    vb 拉霸游戏,这个游戏我没玩过,玩上去像是抽奖的游戏,有个杠杆可以搬动,搬动后左边的数字滚轮会不停的变化,右边可以设置难度等级,同时这个游戏的窗口也是很特别的,采用不规划的椭圆形,在设计创建不规则的VB窗口时,本源码中的窗口编写技巧也是可以用上的,本游戏是由国外源码改写,在VB6.0环境下可直接编译运行。
    2022-04-29 19:05:48下载
    积分:1
  • VB制作圆形窗体界面
    VB6.0制作圆形窗体界面,打开后是一个矩形窗体,双击后变为一个圆形窗口,创建一个矩形区域的API函数,用来将窗口恢复为矩形,同时创建一个椭圆形区域的API函数,圆形应该是一个规则的矩形窗口,代码还是挺简单的,而且还有注释,非常适合学习研究VB的窗体制作,有兴趣的下载源码。
    2022-04-14 23:47:36下载
    积分:1
  • VB.NET获取Windows 7操作系统信息
    VB.NET获取Windows 7操作系统信息,本程序获取的内容比较多,主要有:显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
    2023-06-05 04:30:03下载
    积分:1
  • VB SetWindowRgn创建椭圆形窗口
    VB创建一个个性化的椭圆形窗口界面,使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性,可以使程序更具吸引力。见惯了方方正正的矩形窗体,椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体,运行程序,窗体为椭圆形,单击窗体,即可退出程序。
    2022-10-27 20:55:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载