在vb中怎样把用扫描控件进行扫描后的数据直接写进数据库中!小弟很急!请高手帮忙!谢谢

iif 2000-05-11 07:58:00
在vb中怎样把用扫描控件进行扫描后的数据直接写进数据库中!小弟很急!请高手帮忙!谢谢
...全文
176 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
haor 2001-02-21
  • 打赏
  • 举报
回复
把图片存入数据库中?你还不如单独写个dcom组件来存取你的文件。把文件存放在服务器上。数据库中只记录文件路径。
CPLiu 2001-02-21
  • 打赏
  • 举报
回复
我想你需要OCR
iif 2001-02-21
  • 打赏
  • 举报
回复
csdn的老兄们,可以解决吗?
LK007 2001-02-21
  • 打赏
  • 举报
回复
Sub ReadPictureFromRec(Rec As ADODB.Recordset, ByVal FieldName As String, PictureBoxORImage As Object)
On Error Resume Next
Dim chunk() As Byte
Dim i, Chunks, FragMent As Integer
Const ChunkSize As Integer = 16384

Dim fl As Long
DATAFILE = 1
Open IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "picFILETEMP.tep" For Binary Access Write As DATAFILE
fl = Rec(FieldName).ActualSize
Chunks = fl \ ChunkSize
FragMent = fl Mod ChunkSize
ReDim chunk(FragMent)
chunk() = Rec(FieldName).GetChunk(fl)
Put DATAFILE, , chunk()
For i = 1 To Chunks
ReDim chunk(ChunkSize)
chunk() = Rec(FieldName).GetChunk(ChunkSize)
Put DATAFILE, , chunk()
Next
Close DATAFILE
PictureBoxORImage.Picture = LoadPicture("")
PictureBoxORImage.Picture = LoadPicture(IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "picFILETEMP.tep")
Kill IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "picFILETEMP.tep"
End Sub
LK007 2001-02-21
  • 打赏
  • 举报
回复
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Sub SavePictureToRec(rs As ADODB.Recordset, ByVal FieldName As String, ByVal FileName As String)
On Error Resume Next
Dim Length As Long, f As Integer
Length = FileLen(FileName)
ReDim bArray(Length + 12) As Byte, bArray2(Length) As Byte
bArray(0) = &H6C: bArray(1) = &H74
RtlMoveMemory bArray(4), Length, 4
f = FreeFile
Open FileName For Binary As #f
Get #f, , bArray2
Close #1
RtlMoveMemory bArray(8), bArray2(0), Length
rs(FieldName).AppendChunk bArray
End Sub

LK007 2001-02-21
  • 打赏
  • 举报
回复
请问你使用的什么扫描控件,如它有PICTRUE属性,或它能将图片放到PICTRUEBOX控件中去,那将图片放入数据库就不是什么问题!你可以看看如下代码的现实过程再根据你自己的需要改动

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧