这几天找了几个毕业设计,或多或少有点小问题,希望大家帮解决一下~~~
 1.adodb和adodc
     有的系统里是混合的,在别的电脑上运行都能出来,不过,有的时候有adodc的模块就学要换一台电脑,就得从新设置adodc的属性,我想知道怎么能解决这个问题。 2.数据源
     有些的系统问题是找不到数据源,不过我也去创建数据源了,为什么还是显示找不到数据源啊? 3..ini文件
     我看见有的系统作者给了几个.ini文件,说是放在里面或者修改一下里面的内容,就可以不用设置了,有人说:“保存你的登录数据库所需要的参数,比如登录帐号,密码,服务器名称,数据库名称等等,程序运行的时候从文件里读这些参数,拼成连接字符串,赋给控件”,对吗?   我想知道 是我在文件夹里面建立一个ini文件,把这些信息写在里面就行吗? 还是说需要代码啊? 4.用户名+密码
     我在数据库里找不到系统的用户名和密码,使用了很多种方法,有的可以有的不可以?  有没有万能方法啊?
    希望大家多多帮忙~~! 解决一个是一个~~~!  十分感谢了~~~~~~~~~~
  

解决方案 »

  1.   

    给一个SQL连接的例子,几个变量自己赋值ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DatabaseUserName & ";Initial Catalog=" & DatabaseName & ";Data Source=" & ServerName & ";Pwd=" & DatabasePwd & ""
    cn.open ConnectionString 
    在需要的地方用这个连续字符串就可以了
      

  2.   


    先谢谢了  不过不好使
      我在我的模块里 
     源代码:
      Public Function ConnectString() _
       As String
    'returns a DB ConnectString
       ConnectString = "FileDSN=my_factory.dsn;UID=sa;PWD="
    End Function   改成了:
       Public Function ConnectString() _
       As String
    'returns a DB ConnectString
       ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=My_Factory;Data Source=8BE6C985023B400"
    End Function
       
                       这个能运行出来,不过就是得换台电脑换个代码~~~
       按照您说的是:我改成了(我要是打错了,希望别见笑~)
         ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;UID=sa" & DatabaseUserName & ";Initial Catalog=My_Factory" & DatabaseName & ";Data Source=8BE6C985023B400" & ServerName & ";Pwd=" & DatabasePwd & ""
    cn.open ConnectionString                       没运行出来,应该是我打错了。麻烦您看一下~~~~~
        
      

  3.   

    ConnectionString "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=zzgjcj;Data Source=服务器ip;User ID=" & DatabaseUserName & ";Pwd=" & DatabasePwd & "" 
      

  4.   

    http://download.csdn.net/source/1842876
      

  5.   

    给你看个例子,是连接sql server的
    dat文件内容中包含如下内容:
    库存系统;Data Source=WHZ
    库存系统是数据库名称,数据源在whz
    调用时的函数
    Private Function Getfill(Path As String) As String
    Dim Filler As String
    Open Path For Input As #1
        Input #1, Filler
    Close #1
    Getfill = Filler
    End FunctionPublic Sub main()
    Dim sPath As String
    On Error GoTo err
    Set cnn = New ADODB.Connection
    sPath = Getfill(App.Path & "\auto.dat")
    If sPath = "" Then
        MsgBox "请设置文本内容!", vbOKOnly, "提示"
        Exit Sub
    Else
    MyCnn.ConnectionString = "Provider=SQLOLEDB.1;Password=1216;Persist Security Info=True;User ID=sa;Initial Catalog=" & sPath
    cnn.CursorLocation = adUseClient
    cnn.Open
    Frm_SysPass.Show vbModalEnd If
    Exit Sub
    err:
    MsgBox "提示" & err.Description, vbOKOnly, "错误"
    End Sub这个就是你所说的设置文本内容实现不同的数据库调用了,可以根据你自己的要求去修改对应的文本文件内容实现数据库打开
      

  6.   

    获得自动生成的连接字符串的方式有很多种,不用自己写的
    简单说一两种供参考:1,用VB的数据视图窗口 2,用udl
      

  7.   

    1.最简单的就是不用ADO控件,只引用。
    2.不知道你访问的是不是本地sql server,如果是其它服务器的,一定要保证你本机的用户有服务器的访问权限。
    3.看我5楼回到。
    4.写固定的用户实例和密码吧