怎样将图片的路径给保存到数据库中

Question

请问怎样将图片的路径给保存到数据库中呢？

Answer 1

Option Explicit
Private conn1 As ADODB.Connection
Private rs1 As ADODB.RecordsetPrivate Sub Command2_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
dbfilename = App.Path & "\article1.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectStringSet rs1 = New ADODB.Recordsetstrsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3'下面这里写你的路径
rs1.AddNew
rs1.Fields("mc") = "花朵"
rs1.Fields("path") = "c:\111.bmp"
rs1.Update
End Sub

Answer 2

'用文字描述
取得图片的路径PicturePath，然后保存到一个字符串变量strPath中
打开数据库，再把这个字符串变量strPath保存到相应的
字段中。