| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 546 人关注过本帖, 1 人收藏
标题:vb像access添加图片和数据不对应
只看楼主 加入收藏
erxiu999
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2013-4-26
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:3 
vb像access添加图片和数据不对应
    If Trim(txtFilePath.Text) = "" Then
        MsgBox "未选择文件.!!", vbInformation + vbSystemModal, "保存出错"
        Exit Sub
    End If
    If (Dir(Trim(txtFilePath.Text)) = "") Then Exit Sub
    '以二进制方式打开文件
    Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile
    lngLengh = LOF(lngDataFile)    ' 文件大小
    If lngLengh = 0 Then Close lngDataFile: Exit Sub
    intChunks = lngLengh \ ChunkSize
    intFragment = lngLengh Mod ChunkSize
    '新建记录
    rsImage.AddNew
        ReDim Chunk(intFragment)
        Get lngDataFile, , Chunk()
        rsImage!picImage.AppendChunk Chunk()
        ReDim Chunk(ChunkSize)
        For i = 1 To intChunks
            Get lngDataFile, , Chunk()
            rsImage!picImage.AppendChunk Chunk()
        Next i
    rsImage.Update
    Close lngDataFile
    Call ShowPic
End Sub
Private Sub cmdFirst_Click()
    On Error Resume Next
    rsImage.MoveFirst
    Call ShowPic
End Sub

这样我添加的文本信息编号为1但是图片编号却成了2无法保存在同一行
搜索更多相关主题的帖子: access 图片 二进制 新建 
2013-04-27 22:41
erxiu999
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2013-4-26
收藏
得分:0 
Dim cnnImage As New ADODB.Connection
Dim rsImage As New ADODB.Recordset
Dim strSQL As String

Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Const ChunkSize = 1000
Const lngDataFile = 1
Private Sub cmdBrowse_Click()
    '选择 JPG OR Bmp 文件
    On Error Resume Next
    With cmdlFilePath
        .Filter = "JPG Files|*.JPG|Bitmaps|*.BMP"
        .ShowOpen
        txtFilePath.Text = .FileName
    End With
End Sub


Private Sub Form_Load()
    rsImage.LockType = adLockOptimistic
    rsImage.CursorType = adOpenKeyset
    cnnImage.Provider = "Microsoft.Jet.OLEDB.4.0"
    strSQL = App.Path & "\hsg.mdb"
    cnnImage.Open strSQL
    strSQL = "Select * From allcai"
    rsImage.Open strSQL, cnnImage
    If (rsImage.BOF = True) And (rsImage.EOF = True) Then Exit Sub
    Call cmdFirst_Click
    Combo1.AddItem ("蔬菜类")
    Combo1.AddItem ("海鲜类")
Combo1.AddItem ("肉类")
Combo1.AddItem ("汤类")
Combo1.AddItem ("酒水类")
Combo1.AddItem ("其他类")
End Sub
Public Sub ShowPic()
    On Error Resume Next
    Open "pictemp" For Binary Access Write As lngDataFile
        lngLengh = rsImage!picImage.ActualSize
        intChunks = lngLengh \ ChunkSize
        intFragment = lngLengh Mod ChunkSize
        ReDim Chunk(intFragment)
        Chunk() = rsImage!picImage.GetChunk(intFragment)
        Put lngDataFile, , Chunk()
        For i = 1 To intChunks
           ReDim Buffer(ChunkSize)
           Chunk() = rsImage!picImage.GetChunk(ChunkSize)
           '建立图片临时文件
           Put lngDataFile, , Chunk()
        Next i
    Close lngDataFile
    FileName = "pictemp"
    Picture1.Picture = LoadPicture(FileName)
End Sub

Private Sub Command1_Click()
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then
    MsgBox "请填写完整", , "系统提示"
    Exit Sub
End If
If IsNumeric(Text3.Text) = False Then
    MsgBox "价格必需是数字型", , "系统提示"
    Exit Sub
End If
If Combo1.Text = "请选择" Then
    MsgBox "请选择类别", , "系统提示"
    Exit Sub
End If

sql = "select id from allcai where bh='" & Trim(Text1.Text) & "'"
Dim rs As New ADODB.Recordset
mycon.Open
    rs.Open sql, mycon, 1, 1
    If rs.EOF Then
    Else
        rs.Close
        mycon.Close
        MsgBox "对不起,该编号已经存在,请换其他编号", , "系统提示"
        Exit Sub
    End If
    rs.Close
mycon.Close
sql = "insert into allcai(bh,cname,leibie,price) values('" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Combo1.Text) & "'," & Trim(Text3.Text) & ")"
mycon.Open
mycon.Execute sql
mycon.Close
MsgBox "添加成功", , "系统提示"
 '保存文件到数据库中
    If Trim(txtFilePath.Text) = "" Then
        MsgBox "未选择文件.!!", vbInformation + vbSystemModal, "保存出错"
        Exit Sub
    End If
    If (Dir(Trim(txtFilePath.Text)) = "") Then Exit Sub
    '以二进制方式打开文件
    Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile
    lngLengh = LOF(lngDataFile)    ' 文件大小
    If lngLengh = 0 Then Close lngDataFile: Exit Sub
    intChunks = lngLengh \ ChunkSize
    intFragment = lngLengh Mod ChunkSize
    '新建记录
    rsImage.AddNew
        ReDim Chunk(intFragment)
        Get lngDataFile, , Chunk()
        rsImage!picImage.AppendChunk Chunk()
        ReDim Chunk(ChunkSize)
        For i = 1 To intChunks
            Get lngDataFile, , Chunk()
            rsImage!picImage.AppendChunk Chunk()
        Next i
    rsImage.Update
    Close lngDataFile
    Call ShowPic
End Sub
2013-04-27 22:42
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:20 
'新建记录
    rsImage.AddNew
这样我添加的文本信息编号为1但是图片编号却成了2无法保存在同一行
既然新建记录那肯定不在同一行。

无知
2013-04-28 13:01
erxiu999
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2013-4-26
收藏
得分:0 
回复 3楼 Artless
我不新建他就压根无法添加,怎么改呢,我是做行政的大学学过点vb这两天叫我调试这个工程,感觉超级无助啊
2013-04-28 13:34
快速回复:vb像access添加图片和数据不对应
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016342 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved