Fórum SQL Server 2008 R2 e TDBXConnection DBEXPRESS #454337
05/09/2013
0
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
Curtir tópico
+ 0
Responder
Posts
06/09/2013
Gustavo Bretas
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.
Responder
Gostei + 0
07/09/2013
Fábio Roell
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
Responder
Gostei + 0
17/09/2013
Fábio Roell
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)