如何对写入ACCESS列表中的数据实行禁止同名文件

2010-10-27 10:22:58 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

NGINX日志深度解析：Access Log与Error Log协同排障实战 NGINX日志是HTTP流量链路的原始证据链，其核心价值在于提供可追溯、可验证的请求全生命周期数据。Access Log记录事务终结时的结构化快照，包含客户端IP、请求路径、状态码、耗时（$request_time）及上游响应时间（$upstream_response_time）等关键指标；Error Log则作为进程级诊断报告，以异步方式输出worker崩溃、连接拒绝、权限错误等底层异常。二者协同构成故障定位的黄金组合：前者暴露现象模式，后者锁定根因位置。在可观测性建设中，精准定制log_format、分阅读详情

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信息提示的，求各位大侠帮帮忙，谢谢了

...全文

电脑数据恢复软件别乱下：7款工具精准匹配4类数据丢失场景数据恢复不是万能钥匙，而是基于文件系统原理的针对性急救。当文件被删除，操作系统仅标记存储空间为‘空闲’，原始数据仍存于硬盘扇区中——这就是逻辑层（L0/L1）恢复的技术基础。关键在于区分损坏类型：误删、格式化属高成功率的逻辑层问题；而硬盘异响、SSD启用TRIM则意味着物理层或固件层失效，此时任何软件都无济于事。本文聚焦Windows/macOS/Linux主流环境下的实战方案，涵盖NTFS/exFAT/APFS/ext4等文件系统解析、签名扫描（Carving）、MFT重建与RAID重组等核心技术路径，并阅读详情

jy110120

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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

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

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

打赏
举报

先查询，后入库。？
能说的详细点吗？最好能给点代码，我是新手，谢谢了

如何对写入ACCESS列表中的数据实行禁止同名文件

相关推荐