查询二进制格式存入access数据库

2003-05-16 10:44:15 76 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

最佳解决Maven同一依赖多版本共存问题，重复依赖（同一个jar包，多个版本）-maven-shade-plugin 公司的历史项目在导出功能上引用的是poi-3.12版本，后续再做word模板导出功能时用到了poi-3.15版本，升级完后发现项目的很多导出功能都瘫痪了。用旧版本，新功能无法使用；用新版本，旧功能瘫痪，且整改的工作量比较大。使用maven-shade-plugin，将某个版本的依赖名称进行修改，重新引入即可。阅读详情

我将一段文本数据(文本包含字符‘我的文件’）以二进制格式存入access数据库的长二进制字段TXTINFO中，如何用SQL语句从字段TXTINFO查询到所有包含‘我的文件’的纪录呢？

...全文

保姆级教程：在树莓派5B上用AI Kit跑YOLOv8，实测134fps的完整配置流程本文提供了一份详细的树莓派5B搭配AI Kit部署YOLOv8的教程，从硬件组装到模型转换、优化和部署，最终实现134FPS的高帧率推理性能。通过Hailo-8L AI加速模块和HEF模型转换，这套方案为边缘AI计算提供了强大支持，适用于智能监控、无人机视觉导航等应用场景。阅读详情

lzfile

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lihonggen0 2003-05-16

打赏
举报

Private Function DatabaseToFile(ByVal DataField As ADODB.Field, ByVal vSaveAs As String, ByVal vFileExpendName As String) As String
Dim fnum As Long, bytesleft As Long, bytes As Long
Dim lSumSize As Long, lNowSize As Long
Dim tmp() As Byte
On Error GoTo ErrHandleDatabaseToFile
If Trim(vSaveAs) = "" Then
DatabaseToFile = GetTempFileName(vFileExpendName)
Else
DatabaseToFile = Trim(vSaveAs)
End If

fnum = FreeFile
Open (DatabaseToFile) For Binary As fnum
bytesleft = DataField.ActualSize

lSumSize = CLng(bytesleft / 8192)

Do While bytesleft
bytes = bytesleft
If bytes > 8192 Then bytes = 8192
tmp = DataField.GetChunk(bytes)
Put #fnum, , tmp
bytesleft = bytesleft - bytes
lNowSize = lNowSize + 1
RaiseEvent TransmitData(lNowSize, lSumSize, False)
Loop
Close #fnum
Exit Function
ErrHandleDatabaseToFile:
DatabaseToFile = ""
Err.Clear
End Function

Private Function FileToDatabase(ByVal vDataField As ADODB.Field, ByVal vFileName As String)
Dim fnum As Long, bytesleft As Long, bytes As Long
Dim lSumSize As Long, lNowSize As Long
Dim tmp() As Byte
On Error GoTo ErrHandleFileToDatabase

fnum = FreeFile
Open vFileName For Binary As fnum
bytesleft = LOF(fnum)
lSumSize = CLng(bytesleft / 8192)
Do While bytesleft
bytes = bytesleft
If bytes > 8192 Then bytes = 8192
ReDim tmp(1 To bytes) As Byte
Get #fnum, , tmp
vDataField.AppendChunk tmp
bytesleft = bytesleft - bytes
lNowSize = lNowSize + 1
DoEvents
RaiseEvent TransmitData(lNowSize, lSumSize, True)
Loop

Close #fnum

Exit Function
ErrHandleFileToDatabase:
Err.Clear
End Function

lihonggen0 2003-05-16

打赏
举报

http://www.china-askpro.com/msg9/qa42.shtml

lihonggen0 2003-05-16

打赏
举报

http://www.dapha.net/down/list.asp?id=601

文本文件转换到数据库

查询二进制格式存入access数据库

相关推荐