数据库连接问题

Question

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="
    sql = "insert into xm(xm)values('" & Text1.Text & "')"
    cn.Open zf
    cn.Execute (sql)
cn.Close
Set cn = NothingEnd Sub
我想在运行状态下设置数据库连接IP，为什么我这样写不对啊！应该怎么写！能帮我改改吗？

Answer 1

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\a\局域网数据交换\db1.mdb;User Id=admin;Password="
若字符串正确 ,你可以直接更改a 为 你对应的IP 若不正确, 建议 你 在窗体上托一个 ADO 控件, 然后点击 属性, 进行连接,测试连接, 然后 在把生成的字符串, 复制 在该处 在讲ADO控件删除

Answer 2

我数据库加了密码怎么就不能访问啊！
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=finsoft"
   sql = "insert into xm(xm)values('" & Text1.Text & "')"
    cn.Open zf
    cn.Execute (sql)
cn.Close
Set cn = Nothing
End sub
系统提示无法启动应用程序，或被其他用户以独占方式打开！
请问怎么解决这个问题啊！

Answer 3

zf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\a\局域网数据交换\db1.mdb;Jet OLEDB:Database Password=密码"

Answer 4

试试这个连接字符串：
zf="driver={Microsoft Access Driver (*.mdb)};pwd=密码;dbq=\\" & a & "\局域网数据交换\db1.mdb"

Answer 5

你确认变量“a”中的IP是否正确以及是否网络路径是否正确？！

Answer 6

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=密码;"