一个用VB设计的专用程序

Question

  我在做网站的时候手上出现了大量的数据 这些数据全是零碎的 手工加如比较麻烦 而且累我就想设计一个VB的写入的ACCESS的数据 我的要求很简单：我现在在C:\下存放有很多图片 我的目的句是要把这些图片的地址写入 access的表里的 imgurl字段里求高手解答！！！

Answer 1

给你的列文件的代码  写数据库的代码 你自己去找吧
FileNames = Dir(DirNames, vbNormal + vbDirectory)
txtTemp = ""
Do While FileNames <> ""
    If FileNames <> "." And FileNames <> ".." Then
      If (GetAttr(DirNames & FileNames) And vbDirectory) = vbDirectory Then
        '如果是文件夹 则
      Else
        '如果是文件
        If Right(UCase(FileNames), 4) = ".JPG" Then
            txtTemp = txtTemp & "|" & DirNames & FileNames
        End If
      End If
    End If
FileNames = Dir '再次调用dir函数,此时可以不带参数
Loop

Answer 2

获取文件列表，用DAO连接数据库 ，SQL语句添加数据进数据库

Answer 3

下面这个是在MDB数据库中保存二进制数据文件的代码，使用Stream流完成，数据库中的这个存放二进制数据字段定义为 “OLE 对象”，这个就不单能用来保存图像文件了，可以保存所有类型文件。Public DB As Connection ' ADODB.Connection 
   Set DB = New ADODB.Connection
'－－－－－－－－－－－－－－
Dim SQLstr As String, RS As Recordset, iStm As Stream
Dim i As Integer, tfn As String
'--------------------------------------
        DB.Open
        If DB.State = 1 Then
                SQLstr = "Select * from " & FarmDB.FramGameName & "1 where 作物名称='" & txt_CropInfo(0).Text & "'" '检索农作物名称
                RS.Open SQLstr, DB, adOpenDynamic, adLockOptimistic
                '----------保存图片
                tfn = TempFileName
                SavePicture Pic_Crop.Image, tfn
                Set iStm = New ADODB.Stream
                With iStm
                    .Type = adTypeBinary           '二进制模式
                    .Open
                    .LoadFromFile tfn
                End With
                RS.Fields("作物图片").Value = iStm.Read
                Kill tfn
                '----------------
                RS.Update
                iStm.Close
                Set iStm = Nothing'============================
            If RS.State = 1 Then RS.Close
            Set RS = Nothing '一定要释放资源
            DB.Close
        Else
            MsgBox "无法连接数据库！操作终止！", vbCritical, "错误"
            Exit Sub
        End If