如何连接Sql Server 文件？

我想做一个程序，动态连接数据库文件，在用户机子上不安装Sql   Server，而是安装msde,在Delphi6程序内，如何用语句写呢？ 问题点数：100、回复次数：11Top

1 楼IwantFlay（小飞）回复于 2004-12-02 09:52:34 得分 20

一样的吧.   你用一个ADO控件,   先用控件的向导把连接做成功,   然后把连接成功的   connectionstring   拷贝出来,   接着你要动态连接的话,只要改变这个   connectionString   串中的   数据源,用户,   密码,数据库对应的值就可以了,再把修改过的串值赋给   ado,   连吧Top

2 楼coeltdit（每天多顶几下----->>>大虾就是这样练成的）回复于 2004-12-02 09:56:20 得分 5

同意，   UP！Top

3 楼seekmydoom（靠灌水混日子）回复于 2004-12-02 10:05:29 得分 15

同意！  
          s:='Provider=SQLOLEDB.1;Password='+UserPass+';Persist   Security   Info=True;'+  
                'User   ID='+UserName+';Initial   Catalog='+DataBaseName+';'+  
                '   Data   Source='+ServerName+';';Top

4 楼xfgncit98（叶落思乡）回复于 2004-12-02 10:07:22 得分 15

s:='Provider=SQLOLEDB.1;Password='+UserPass+';Persist   Security   Info=True;'+  
                'User   ID='+UserName+';Initial   Catalog='+DataBaseName+';'+  
                '   Data   Source='+ServerName+';';  
  Top

5 楼xfgncit98（叶落思乡）回复于 2004-12-02 10:08:50 得分 5

同意楼上的!Top

6 楼luckyboyforever（正在学习Delphi中...）回复于 2004-12-02 11:02:07 得分 3

学习Top

7 楼BigAngell（学而不思则罔 思而不学则殆）回复于 2004-12-02 11:37:47 得分 3

都说了，我就不重复了！Top

8 楼calvinchen（calvinchen）回复于 2004-12-02 11:51:45 得分 23

//连接数据库  
  function   tdmodule.connectedDB(var   msg:string):boolean;  
  begin  
      if   ADOConnection1.Connected   then  
            Result:=True  
      else  
      begin  
      try  
          ADOConnection1.ConnectionString:=getStr;  
          adoconnection1.LoginPrompt:=false;  
          adoquery1.Connection:=ADOConnection1;  
          if   length(trim(ADOConnection1.ConnectionString))=0   then  
          begin  
              msg:='错误的连接字符串！';  
              Result:=False;  
          end  
          else  
          begin  
              ADOConnection1.Connected:=True;  
              Result:=True;  
          end;  
      except  
          msg:='无法建立数据库连接！';  
          Result:=False;  
      end;  
      end;  
  end;  
   
  //得到连接字符串  
  function   tdmodule.getstr():string;  
  var   path:String;  
          tmp:TStrings;  
          counter:Integer;  
          myIniFile:Tinifile;//配置文件  
  begin  
      tmp:=TStringList.Create;  
      try  
          path:=ExtractFilePath(Application.Exename);  
          myIniFile:=TiniFile.Create(path+'database.ini');  
          myIniFile.ReadSectionValues('database',tmp);  
          Result:='   ';  
          for   counter:=0   to   tmp.Count-1   do  
              Result:=Result+tmp.Strings[counter];  
      finally  
          tmp.Free;  
      end;  
  end;  
  两个函数读取database.ini并且用adoconnection连接的Top

9 楼lap2004（残剑）回复于 2004-12-02 11:59:42 得分 3

谢谢了先Top

10 楼xx_adam（一无所有）回复于 2004-12-02 14:20:53 得分 5

UPTop

11 楼Demogodyou（大漠孤雕）回复于 2004-12-02 14:52:05 得分 3

请教database.ini   是个什么文件?Top

相关问题

• 连接
• 文件
• 数据库
• database
• adoconnection1
• myinifile
• connectionstring
• tmp
• counter
• ini

• 帖主：plhui
• IwantFlay
• coeltdit
• seekmydoom
• xfgncit98
• xfgncit98
• luckyboyforever
• BigAngell
• calvinchen
• lap2004
• xx_adam
• Demogodyou

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载