Acessar propriedade DataBaseConnection do SqlConnection

Delphi

12/02/2008

Galera como faço pra acessar a propriedade DataBaseConnection no braço?
Tô com esse código mas ta dando errado
    with DM.Conexao do
    begin
      DataBaseConnection:=EServ.Text+´:´+EBase.Text;
      Connected:=True;
      if Connected then
        Status(True)
      else
        Application.MessageBox(´Não foi possível cone ctar à base de dados.´, ´Aviso´, 48);
    end;

Que faço?


Jpauloss

Jpauloss

Curtidas 0

Respostas

Jpauloss

Jpauloss

12/02/2008

Coloquei assim
    with DM.Conexao do
    begin
      DataBase:=EServ.Text+´:´+EBase.Text;
      Connected:=True;
      if Connected then
        Status(True)
      else
        Application.MessageBox(´Não foi possível cone ctar à base de dados.´, ´Aviso´, 48);
    end;
  end;

Mas ta dando esse erro
[Error] u_backup_restore.pas(101): Left side cannot be assigned to

Na linha database.
Que faço?
O outro erro da no final da linha DataBase:=EServ.Text+´:´+EBase.Text; o erro é
[Error] u_backup_restore.pas(101): Incompatible types: ´TPropertyOption´ and ´TCaption´

Que faço?


GOSTEI 0
Jpauloss

Jpauloss

12/02/2008

up


GOSTEI 0
Paullsoftware

Paullsoftware

12/02/2008

uma maneira simples de ter as configurações das propriedades do SQLConnection é salvá-las tipo assim:
var
NomeArquivo:String;
begin
//Aqui pego o path da aplicação
NomeArquivo := ExtractFilePath(ParamStr(0)) + ´Config.ini´;
//Aqui insiro o nome da conexão criada para poder carregar as configurações mais tarde..
SQLConnection1.Params.Insert(0,´[´+SQLConnection1.ConnectionName+´]´);
//aqui salvo as configurações com todos os parametros do SqlConnection
SQLConnection1.Params.SaveToFile(NomeArquivo);
end;

para carregá-las você pode fazer assim:
var
NomeArquivo:string;
begin
try
  NomeArquivo := ExtractFilePath(ParamStr(0)) + ´Config.ini´;
  SQLConnection1.Params.LoadFromFile(NomeArquivo);
  SQLConnection1.Connected := True;
except on E:Exception do
  raise E.Create(´Erro ao conectar´+1313+´Mensagem Original:´+13+e.Message);
end;
espero ter ajudado :wink:


GOSTEI 0
Jpauloss

Jpauloss

12/02/2008

uma maneira simples de ter as configurações das propriedades do SQLConnection é salvá-las tipo assim: 
var
NomeArquivo:String;
begin
//Aqui pego o path da aplicação
NomeArquivo := ExtractFilePath(ParamStr(0)) + ´Config.ini´;
//Aqui insiro o nome da conexão criada para poder carregar as configurações mais tarde..
SQLConnection1.Params.Insert(0,´[´+SQLConnection1.ConnectionName+´]´);
//aqui salvo as configurações com todos os parametros do SqlConnection
SQLConnection1.Params.SaveToFile(NomeArquivo);
end;
para carregá-las você pode fazer assim: 
var
NomeArquivo:string;
begin
try
  NomeArquivo := ExtractFilePath(ParamStr(0)) + ´Config.ini´;
  SQLConnection1.Params.LoadFromFile(NomeArquivo);
  SQLConnection1.Connected := True;
except on E:Exception do
  raise E.Create(´Erro ao conectar´+#1313+´Mensagem Original:´+13+e.Message);
end;
espero ter ajudado :wink:

paullsoftware, vou descrever pra vc entender:

Tenho dois edit´s -- EServ.Text -- EBase.Text
EServ.Text --> é pra informar o servidor. (o padrão vai ser localhost);
EBase.Text --> é pra informar o caminho exato do banco de dados.
Só estou querendo que o usuário faça essa edição do sqlconnection.
O código é esse

    with DM.Conexao do
    begin
      DataBase:=EServ.Text+´:´+EBase.Text;
      Connected:=True;
      if Connected then
        Status(True)
      else
        Application.MessageBox(´Não foi possível conectar à base de dados.´, ´Aviso´, 48);
    end;
  end;

Seria assim dm.conexao.database:=EServ.text+´:´+EBase.text;
Mas ta dando esse bendito erro.
[Error] u_backup_restore.pas(101): Left side cannot be assigned to

e
[Error] u_backup_restore.pas(101): Incompatible types: ´TPropertyOption´ and ´TCaption´

Que faço?


GOSTEI 0
Jpauloss

Jpauloss

12/02/2008

Num quero todas as funções do sqlconnection. só a ´DataBase´.
Alguma ajuda?


GOSTEI 0
Paullsoftware

Paullsoftware

12/02/2008

Num quero todas as funções do sqlconnection. só a ´DataBase´. Alguma ajuda?
bem, então nesse caso você pode fazer assim:
SqlConnection1.Params.Values[´DataBase´]:= EServ.text+´:´+EBase.text
espero ter ajudado :wink:


GOSTEI 0
Jpauloss

Jpauloss

12/02/2008

[quote:dbee79a09f=´jpauloss´]Num quero todas as funções do sqlconnection. só a ´DataBase´. Alguma ajuda?
bem, então nesse caso você pode fazer assim:
SqlConnection1.Params.Values[´DataBase´]:= EServ.text+´:´+EBase.text
espero ter ajudado :wink:[/quote:dbee79a09f]
Valeu, cheguei onde queria!


GOSTEI 0
POSTAR