SQL Server 2008 R2 e TDBXConnection DBEXPRESS
Prezados, boa tarde...
Estou com a seguinte classe uSeguranca
Onde tenho a seguinte função:
uses
ActnList, DBXCommon, DBxDynalink;
function TSeguranca.isMaster: Boolean;
var
DBCon: TDBXConnection;
Command: TDBXCommand;
Reader: TDBXReader;
begin
DBCon:= TDBXConnectionFactory.GetConnetionFactory.GetConnetion('Banco','sa','administrador'); //Nesta linha não esta conseguindo fazer a conexão....
Command:= DBCon.CreateCommand;
Command.Text:= 'SELECT MASTER FROM SEGURANCA WHERE USUARIOS='+IntToStr(ID);
Reader:= Command.ExecuteQuery;
if Reader.Next then
begin
Result := Reader.Value[0].GetAnsiString='S';
end;
end;
Existe uma outra forma de efetuar a conexão com o banco SQL server, se tiver fico agradecido em ver algum exemplo?
Desde já agradeço...!
Att,. Fabio Roell...
Estou com a seguinte classe uSeguranca
Onde tenho a seguinte função:
uses
ActnList, DBXCommon, DBxDynalink;
function TSeguranca.isMaster: Boolean;
var
DBCon: TDBXConnection;
Command: TDBXCommand;
Reader: TDBXReader;
begin
DBCon:= TDBXConnectionFactory.GetConnetionFactory.GetConnetion('Banco','sa','administrador'); //Nesta linha não esta conseguindo fazer a conexão....
Command:= DBCon.CreateCommand;
Command.Text:= 'SELECT MASTER FROM SEGURANCA WHERE USUARIOS='+IntToStr(ID);
Reader:= Command.ExecuteQuery;
if Reader.Next then
begin
Result := Reader.Value[0].GetAnsiString='S';
end;
end;
Existe uma outra forma de efetuar a conexão com o banco SQL server, se tiver fico agradecido em ver algum exemplo?
Desde já agradeço...!
Att,. Fabio Roell...
Fábio Roell
Curtidas 0
Respostas
Gustavo Bretas
05/09/2013
E ae Fábio!
A chamada do método é GetConnectionFactory.GetConnection e não GetConnetionFactory.GetConnetion, vc esta esquecendo o "C" do Connection!
Corrige ae que vc vai conseguir compilar o projeto. Só não sei te dizer se vai funcionar pq nunca usei esse componente que vc esta usando!
Sobre sua pergunta se existe outro tipo de conexão, existe sim, eu particularmente gosto dos componentes da paleta dbExpress, mas tem outras como ADO, ZeosLib.
A chamada do método é GetConnectionFactory.GetConnection e não GetConnetionFactory.GetConnetion, vc esta esquecendo o "C" do Connection!
Corrige ae que vc vai conseguir compilar o projeto. Só não sei te dizer se vai funcionar pq nunca usei esse componente que vc esta usando!
Sobre sua pergunta se existe outro tipo de conexão, existe sim, eu particularmente gosto dos componentes da paleta dbExpress, mas tem outras como ADO, ZeosLib.
GOSTEI 0
Fábio Roell
05/09/2013
Desculpa...o erro...digitei errado no post....
Eu não consigo fazer a conexão no banco de dados SQL server, chamando este tipo de método...
Se tiver algum exemplo de fazer outro tipo de conexão agradeceria muito?
Att,. Fabio Roell
Eu não consigo fazer a conexão no banco de dados SQL server, chamando este tipo de método...
Se tiver algum exemplo de fazer outro tipo de conexão agradeceria muito?
Att,. Fabio Roell
GOSTEI 0
Fábio Roell
05/09/2013
Resolvido...
Componente de Conexão FireDAC...
Declare na Uses
uADGUIxFormsWait,uADCompClient,uADPhysMSSQL;
Function TSeguranca.LoadProfile : Boolean;
Var
AD: TADConnection;
ADQry: TADQuery
begin
AD:=TADConnection.Create(nil);
AD.Params.Clear;
AD.LoginPrompt:=False;
AD.DriverName:='MSSQL';
AD.Params.Add('Database=seubanco');
AD.Params.Add('User_Name=sa');
AD.Params.Add('Password=suasenha');
AD.Params.Add('Server=NOME\SQLEXPRESS');
AD.Params.Add('DriverID=MSSQL');
AD.Open();
ADQry:=TADQuery.Create(nil);
ADQry.Connection:=AD;
ADQry.SQL.Text:='SELECT * from tabela';
ADQry.Open;
Componente de Conexão FireDAC...
Declare na Uses
uADGUIxFormsWait,uADCompClient,uADPhysMSSQL;
Function TSeguranca.LoadProfile : Boolean;
Var
AD: TADConnection;
ADQry: TADQuery
begin
AD:=TADConnection.Create(nil);
AD.Params.Clear;
AD.LoginPrompt:=False;
AD.DriverName:='MSSQL';
AD.Params.Add('Database=seubanco');
AD.Params.Add('User_Name=sa');
AD.Params.Add('Password=suasenha');
AD.Params.Add('Server=NOME\SQLEXPRESS');
AD.Params.Add('DriverID=MSSQL');
AD.Open();
ADQry:=TADQuery.Create(nil);
ADQry.Connection:=AD;
ADQry.SQL.Text:='SELECT * from tabela';
ADQry.Open;
GOSTEI 0