求救动态连接数据库问题,谢谢

我的程序是odbc连接服务器数据库,当程序运行时,先弹出个对话框:
datebase login,让用户每次输入数据库名和密码.能不能用delphi来实现连接,比如:用户名,密码,服务器ip地址等用户登陆一次之后,就不要再出现那个对话框

解决方案 »

  1.   

    可以的
    例如ADO了
    ConnectionString设置就可以了
    LoginPrompt要为False的
      

  2.   

    类似于下面这样   ADOFADB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
            +  'Data Source=' + ServerPath+';Mode=ReadWrite';
      

  3.   

    密码,服务器ip从INI文件中读取，组合成服务器数据库路径，  sFileName:=ExtractFilePath(Paramstr(0))+'SFIS.ini';
      selfINI:=Tinifile.Create(sFileName);
      sServerName:=selfINI.ReadString('服务器','服务器名','Caiwu-host');
      sSysDBPath:='\\'+sServerName+'\SF\DB\SYSTEM.mdb';
      adoq.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
            + 'Jet OLEDB:Database PassWord = 111111;'
            +  'Data Source=' + sSysDBPath+';Mode=ReadWrite';
      

  4.   

    有人能帮我写写吗?
    数据库名:rlzygl
      

  5.   

    有人能帮我写写吗?
    数据库名:rlzygl
    密码:rlzygl
    服务器地址:120.120.1.1
      

  6.   

    数据库名:rlzygl
    密码:rlzygl
    服务器地址:用edit1.text来取得
      

  7.   

    adoq.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;' + 'Data Source=' + edit1.text+'\rlzygl.mdb' + ';User ID=Admin;Jet OLEDB:Database Password=' + 'rlzygl';