您的位置：程序门 -> vb ->

文件路径的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

文件路径的问题

发表于：2007-09-27 16:34:59 楼主

在使用commondialog控件获得文件路径后，存入了text1.text中
请问，那在 'microsoft.jet.oledb.4.0 ', 'data source=_______的这里再用什么来引用获得的路径，谢谢了^-^

private sub command1_click（)
commondialog1.showopen
commondialog1.showsave
text1.text = commondialog1.filename
end sub

发表于：2007-09-29 22:17:191楼得分:0

可以这样：
"data source=“ & text1.text

完整例子：

dim sconstr as string
dim adocne as adodb.connection

set adocne = new adodb.connection

sconstr = "provider = microsoft.jet.oledb.4.0;"
sconstr = sconstr & "password=“ & 密码 & ";"
sconstr = sconstr & "user id=" & 用户名 & ";"
sconstr = sconstr & "data source=" & 数据文件 & ";"
sconstr = sconstr & "persist security info=true;"
sconstr = sconstr & "jet oledb:system database=" & 工作组文件

adocne.open sconstr