VB连接数据库一问

初学VB求教大虾，该如何处理才能让程序在运行的时候输入数据库的IP地址，小弟曾看到有朋友在数据库中指定了个用户，没有直接写死数据库连接字符串，只是让用户输入了IP地址，急

解决方案 »

  1.   


     x = inputbox("数据库ip")
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\" & x & "\nwqdata.mdb;Persist Security Info=False"
    也不知道access这样可以么？
     对sql是不错的。呵~
      

  2.   

    对sql:
    Dim strUser As String, strIP As String, strSql As String
     strUser = InputBox("请输入登录用户名", "输入用户名", "sa")
     strIP = InputBox("请输入服务器IP", "输入IP")
     strSql = "Provider=SQLOLEDB.1;Password=秘密;Persist Security Info=False;User ID=" & strUser & ";Initial Catalog=数据库;Data Source=" & strIP
      

  3.   

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    servername = Text1.Text
    datename = Text2.Text
    uername = Text3.Text
    pasword = Text4.Text
    connectstring = "Provider=SQLOLEDB.1" & ";data source = " & servername & ";uid=" & uername & ";pwd=" & pasword & ";database=" & datename
      

  4.   

    一般说来，个人偏号进行文件DSN进行远程数据库连接文件DSN先连接上以后，再用"FILEDSN=..."就OK了