1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
sys9933 2004-10-20
- 打赏
- 举报
up
online 2004-10-19
- 打赏
- 举报
Option Explicit
Private conn1 As ADODB.Connection
Private rs1 As ADODB.Recordset
Private 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 ConnectString
Set rs1 = New ADODB.Recordset
strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
'下面这里写你的路径
rs1.AddNew
rs1.Fields("mc") = "花朵"
rs1.Fields("path") = "c:\111.bmp"
rs1.Update
End Sub
Private conn1 As ADODB.Connection
Private rs1 As ADODB.Recordset
Private 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 ConnectString
Set rs1 = New ADODB.Recordset
strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
'下面这里写你的路径
rs1.AddNew
rs1.Fields("mc") = "花朵"
rs1.Fields("path") = "c:\111.bmp"
rs1.Update
End Sub
starsoulxp 2004-10-19
- 打赏
- 举报
直接把路径写到数据库里就是了
junki 2004-10-19
- 打赏
- 举报
'用文字描述
取得图片的路径PicturePath，然后保存到一个字符串变量strPath中
打开数据库，再把这个字符串变量strPath保存到相应的
字段中。
取得图片的路径PicturePath，然后保存到一个字符串变量strPath中
打开数据库，再把这个字符串变量strPath保存到相应的
字段中。
tztz520 2004-10-19
- 打赏
- 举报
路径就是一个字符串,跟保存字符串是一样,不知楼主是不是这个意思
常遇道 2004-10-19
- 打赏
- 举报
路径可以做变量
