1188
社区成员
如何对写入ACCESS列表中的数据实行禁止同名文件
Private Sub Command2_Click()
Dim Getfilename As String
If Common1.filename <> vbNullString Then
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Status.mdb;Persist Security Info=False"
con.Open
con.CursorLocation = adUseClient
Set rs = con.Execute("insert into tb_Paths (filename,Paths) values('" & Common1.FileTitle & "', '" & Common1.filename & "')")
con.Close
MsgBox "数据保存成功", 64, "提示信息"
End If
Set con = Nothing
Set rs = Nothing
End Sub
这个代码是把文件名和路径一起存放到ACCESS的TB_Paths中，但是没有限制同名文件，一个文件能够写入N次，现在我想在里面加一个能够禁止同名文件反复加入的代码，有msgbox信息提示的，求各位大侠帮帮忙，谢谢了
Dim Getfilename As String
If Common1.filename <> vbNullString Then
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Status.mdb;Persist Security Info=False"
con.Open
con.CursorLocation = adUseClient
Set rs = con.Execute("insert into tb_Paths (filename,Paths) values('" & Common1.FileTitle & "', '" & Common1.filename & "')")
con.Close
MsgBox "数据保存成功", 64, "提示信息"
End If
Set con = Nothing
Set rs = Nothing
End Sub
这个代码是把文件名和路径一起存放到ACCESS的TB_Paths中，但是没有限制同名文件，一个文件能够写入N次，现在我想在里面加一个能够禁止同名文件反复加入的代码，有msgbox信息提示的，求各位大侠帮帮忙，谢谢了
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
panyong 2010-10-28
Private Sub Command2_Click()
Dim Getfilename As String
Dim strSql AS string
If Common1.filename <> vbNullString Then
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Status.mdb;Persist Security Info=False"
con.Open
Set rss = New ADODB.Recordset
strSql = "select * from tb_Paths where filename='" & Common1.FileTitle & "'"
rss.Open strSql, con, adOpenStatic, adLockReadOnly
if rss.recordcount > 0 then
msgbox"用户已经存在，请重新输入",0 + 48 ,"提示"
exit sub
end if
Set rs = con.Execute("insert into tb_Paths (filename,Paths) values('" & Common1.FileTitle & "', '" & Common1.filename & "')")
con.Close
MsgBox "数据保存成功", 64, "提示信息"
End If
Set con = Nothing
Set rs = Nothing
End Sub
Dim Getfilename As String
Dim strSql AS string
If Common1.filename <> vbNullString Then
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Status.mdb;Persist Security Info=False"
con.Open
Set rss = New ADODB.Recordset
strSql = "select * from tb_Paths where filename='" & Common1.FileTitle & "'"
rss.Open strSql, con, adOpenStatic, adLockReadOnly
if rss.recordcount > 0 then
msgbox"用户已经存在，请重新输入",0 + 48 ,"提示"
exit sub
end if
Set rs = con.Execute("insert into tb_Paths (filename,Paths) values('" & Common1.FileTitle & "', '" & Common1.filename & "')")
con.Close
MsgBox "数据保存成功", 64, "提示信息"
End If
Set con = Nothing
Set rs = Nothing
End Sub
- 打赏
- 举报
jy110120 2010-10-28
代码好像不对，还有其他什么代码吗？
- 打赏
- 举报
chinaboyzyq 2010-10-27
先查询，后入库。
- 打赏
- 举报
lxq19851204 2010-10-27
在数据库中把filename设为No Duplicates
- 打赏
- 举报
panyong 2010-10-27
FHPH = Replace(Trim(Text1.Text), "'", "''") '名称
Set rs = New ADODB.Recordset
strSql = "select * from 表 where 名称='" & FHPH & "' "
rs.Open strSql, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount <> 0 Then
MsgBox " 名称已经存在，请重新输入 ", 0 + 48, " 提示 "
rs.Close
Text1.Text = ""
Exit Sub
End If
Set rs = New ADODB.Recordset
strSql = "select * from 表 where 名称='" & FHPH & "' "
rs.Open strSql, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount <> 0 Then
MsgBox " 名称已经存在，请重新输入 ", 0 + 48, " 提示 "
rs.Close
Text1.Text = ""
Exit Sub
End If
- 打赏
- 举报
panyong 2010-10-27
MsgBox " 名称已经存在，请重新输入 ", 0 + 48, " 提示 "
- 打赏
- 举报
panyong 2010-10-27
FHPH = Replace(Trim(Text1.Text), "'", "''") '入货票号
Set rs = New ADODB.Recordset
strSql = "select * from Warehouse where INPUTVOTES='" & FHPH & "' "
rs.Open strSql, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount <> 0 Then
MsgBox " ", 0 + 48, " "
rs.Close
Text1.Text = ""
Exit Sub
End If
- 打赏
- 举报
jy110120 2010-10-27
先查询，后入库。？
能说的详细点吗？最好能给点代码，我是新手，谢谢了
能说的详细点吗？最好能给点代码，我是新手，谢谢了
- 打赏
- 举报
java 面试题 总结 封装是把过程和数据包围起来，对数据的访问只能通过已定义的界面。面向对象计算始于这个基本概念，即现实世界可以被描绘成一系列完全自治、封装的对象，这些对象通过一个受保护的接口访问其他对象。 4. 多态性： 多...
小甲鱼零基础入门学习python笔记 025 字典：当索引不好用时 026 字典：当索引不好用时2 027 集合：在我的世界里，你就是唯一 028 文件：因为懂你，所以永恒 029 文件：一个任务 030 文件系统：介绍一个高大上的东西 031 永久存储：腌制一缸美味的...
通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中 通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中 作者：工控自动化老王 关注同名V–X公//众//号：工控自动化老王获取更多技术文档及工控资源，交流、学习，另外老王承接PLC毕业设计，欢迎咨询！ 配置...
Linux总结 一 、从认识操作系统开始 1.1 操作系统简介 1.2 操作系统简单分类 二 、初探Linux 2.1 Linux简介 2.2 Linux诞生简介 2.3 Linux的分类 ...三 、Linux文件系统概览 ...3.1 Linux文件系统简介...4.3 文件的操作命令（增删...
测试开发笔记 沟通 在测试前期与开发沟通 确认测试重点 确认测试的优先级 了解开发人员技术和业务背景 业务水平 技术水平 代码质量 人员流动性 在测试结束后 对已发现的bug进行统计 知道高发概率bug 在新项目中要进行重点测试 ...
C#基础教程-c#实例教程，适合初学者 在建立类的对象时，需做一些初始化工作，例如对数据成员初始化。这些可以用构造函数来完成。每当用new生成类的对象时，自动调用类的构造函数。 因此，可以把初始化的工作放到构造函数中完成。构造函数和类名相同，...
C#创建文件写入文本，读取文件内容 //创建一个新文件，向其中写入指定的字符串，然后关闭文件。 如果目标文件已存在，则覆盖该文件。 System.IO.File.WriteAllText("d:\\cdb_user_update_password.txt", "武松打虎"); //打开一个文件，向其中追加指定...
WPF开发教程 8. 详谈WPF开发中的数据虚拟化... 64 XAML语法.... 74 1. XAML语法术语... 74 2. 代码隐藏和XAML. 82 3. XAML和自定义类... 83 4. 标记扩展和XAML. 87 5. XAML命名空间和命名空间映射... 90...
C#中File类的常用读取与写入文件方法的使用 场景 File 命名空间： System.IO 方法 ... 如果指定文件不存在，此方法会创建一个文件，向其中写入指定的行，然后关闭该文件。 AppendAllLines(String, IEnumerable<String>, Encodin...
linux命令大全 在Slackware中，adduser指令是个script程序，利用交谈的方式取得输入的用户帐号资料，然后再交由真正建立帐号的useradd指令建立新用户，如此可方便管理员建立用户帐号。在Red Hat Linux中，adduser指令则是useradd...
Linux 用C/C++创建新文件并写入内容 在Linux环境下用C编写一个函数，用于记录运行日志，要求只存在一个同名文件，每次记录前清除已有的信息。 2、思路 需要完成的是： （1）查找（access）是否该文件存在，存在则删除，不存在则新建（fopen）。 （2...
C#写入文件 1.采用打开创建的方式，同名写入，不同名创建，最近接手一个项目，一些好用的日志组件领导不也不用，自己写呗 void WriteLogFile(string Content) { string strFoloder = AppDomain.CurrentDomain.Base...
经典SQL语句大全 因为这样可以避免 top的字段如果是逻辑索引的，查询的结果后实际表中的不一致（逻辑索引中的数据有可能和数据表中的不一致，而查询时如果处在索引则首先查询索引） 14、说明：前10条记录 select top 10 * form table...
oracle学习文档 笔记 全面 深刻 详细 通俗易懂 doc word格式 清晰 连接字符串 数据查询语言 (Data Query Language, DQL) 是SQL语言中，负责进行数据查询而不会对数据本身进行修改的语句，这是最基本的SQL语句。例如：SELECT（查询） 数据控制语言Data Controlling Language（DCL），用来...
Springboot中配置文件配置大全 前言今天下午，无意中翻到之前整理的Springboot的配置文件相关配置，才想起自己很早之前还整理过这样的东西，时间长了自己都给忘了。。。今天，就正好给大家分享下配置############################################...
Access数据库的.ldb文件 当我们打开Access数据库文件时会发现在相同的目录下会产生一个同名的.ldb文件。下面详谈一下该原理。 .ldb文件是.mdb文件打开时产生的一个临时文件。.ldb文件在多用户环境下是非常重要的。该文件被 MS Jet DB ...
Access 中 .ldb 文件 多用户方案的 MicrosoftJet 数据库引擎版本 4.0 中 .ldb 文件起着重要作用。 .ldb 文件用于确定共享数据库中以及由谁锁定的记录。回到顶端更多信息loadTOCNode(1, moreinformation);自动 .ldb 文件创建和删
数据库操作语句大全(sql) 因为这样可以避免 top的字段如果是逻辑索引的，查询的结果后实际表中的不一致（逻辑索引中的数据有可能和数据表中的不一致，而查询时如果处在索引则首先查询索引） 14、说明：前10条记录 select top 10 * form ...
