给位VB高手帮我看看这段代码那里出错了啊
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim sql As String
Dim zf As String
Dim ip As String
zf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.66\局域网数据交换\db1.mdb;;Jet OLEDB:Database;User Id=admin;Password="
'\\服务器名或IP\共享目录名\数据库名.mdb
sql = "insert into xm(xm)values('" & Text1.Text & "')"
cn.Open zf
cn.Execute (sql)
cn.Close
Set cn = Nothing
End Sub
请问这段代码哪里出错了！请帮我改改！
我运行时系统提示 找不到可安装的ISAM
问题点数：20、回复次数：7Top
1 楼cdc2533802（msy）回复于 2006-03-20 14:56:46 得分 0
你把文件拷到自己的硬盘上试试看.Top
2 楼NewPeople（新新人类）回复于 2006-03-20 15:01:03 得分 10
zf直接用下面的试试
zf="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.66\局域网数据交换\db1.mdb"Top
3 楼onln（）回复于 2006-03-20 15:07:29 得分 0
我就在自己的硬盘上运行啊 ！我的数据库有密码的啊！Top
4 楼onln（）回复于 2006-03-20 15:11:23 得分 0
如果我的数据库有密码怎么办Top
5 楼DengXingJie（杰西）回复于 2006-03-20 15:12:58 得分 10
zf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.66\局域网数据交换\db1.mdb;;Jet OLEDB:Database;User Id=admin;Password="
去掉;;Jet OLEDB:Database即可
Top
6 楼onln（）回复于 2006-03-20 15:13:25 得分 0
zf="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.66\局域网数据交换\db1.mdb"
这样可以执行！但如果我想把数据库加密码怎么改Top
7 楼onln（）回复于 2006-03-20 15:51:05 得分 0
如果连接数据库的IP地址，要在运行时设置
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim sql As String
Dim zf As String
Dim ip As String
Dim a As String
a = Text2.Text
zf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\a\局域网数据交换\db1.mdb;User Id=admin;Password="
'\\服务器名或IP\共享目录名\数据库名.mdb
'zf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.4\局域网数据交换\db1.mdb"
sql = "insert into xm(xm)values('" & Text1.Text & "')"
cn.Open zf
cn.Execute (sql)
cn.Close
Set cn = Nothing
End Sub
这样写对吗？Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
