急！急！急！Delphi如何访问SQL server 服务器？

Question

网上找的dephi连接数据库字符串
function TDM.connServer: boolean;
var
        filevar: textfile;
begin
        result:=false;
        if not fileexists(ExtractFilePath(Application.ExeName)+'servername.txt') then
        begin
                Application.CreateForm(TFormsjfu,Formsjfu);
                Formsjfu.showmodal;
                Formsjfu.free;
                result:=false;
                exit;
        end
        else
        begin
                assignfile(filevar,ExtractFilePath(Application.ExeName)+'servername.txt');
                reset(filevar);
                readln(filevar,aa.sqlserver);
                closefile(filevar);
        end;        DM.adoconn.connected:=false;
        aa.databasehtk.connected:=false;
        DM.adoconn.ConnectionTimeout:=7;
        DM.adoconn.ConnectionString:=DM.ConnSQLServerStr(aa.passwd,aa.sqlserver,'zsdatabase');
        aa.databasehtk.ConnectionString:=DM.ConnSQLServerStr(aa.passwd,aa.sqlserver,'zsdatabase');
        try
                DM.adoconn.open();
                DM.setARITHABORT_ON(DM.adoconn);
                DM.Alterdatabase();        except
                showmessage('无法连接数据库,请联系管理员!');
                exit;
        end;
        result:=true;
end;function TDM.ConnSQLServerStr(pswd: string; servername: string; dbname: string): string;
var
        s: string;
begin
        s:='Provider=SQLOLEDB.1;';
        s:=s+'Password=';
        s:=s+pswd+';Persist Security Info=True;';
        s:=s+'User ID=sa;Initial Catalog='+trim(dbname)+';';
        s:=s+'Data Source='+trim(servername)+';Use Procedure for Prepare=1;';
        s:=s+'Auto Translate=True;Packet Size=4096;';
        s:=s+'Use Encryption for Data=False;';
        s:=s+'Tag with column collation when possible=False';
        result:=s;
end;
 

Answer 1

在窗体上放一个
ADOConnection1-->属性ConnectionString-->点...-->
build-->Mirosoft OLE DB Provider for SQL Server-->Next...建立连接后，在窗体上放一个ADOQuery1
ADOQuery1.Connection := ADOConnection1;

Answer 2

 回复csdyyr 
我刚才试了，但是不行，说：未与信任的SQL Server连接相关联

Answer 3

我还用BDE进行访问，结果也不行，请大家帮帮忙啊，非常感谢！！！

Answer 4

这个跟SQL的认证模式有关
http://topic.csdn.net/t/20040322/08/2869175.html

Answer 5

uses
  Windows, Messages, SysUtils, Variants, Classes,
  DB,ADODB, StdCtrls,Registry,ActiveX;function LjDb:bool;
var
    ADO1:TADOConnection;
    Qry1:TADOQuery;
     
    s:string;
begin
    CoInitialize(nil); 
    ADO1:= TADOConnection.Create(nil);
    Qry1:=TADOQuery.Create(nil);
    ADO1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=databaseName;Data Source=192.168.0.5';
    ADO1.LoginPrompt:=false;
    
    Qry1.Connection:=ADO1;
    Qry1.Close;
    Qry1.SQL.Clear;
    Qry1.SQL.Add(s);
    Qry1.ExecSQL;    Qry1.Close;
    ADO1.Close;
    Qry1.Free;
    ADO1.Free;
    CoUninitialize;
 
end;