Fórum Acessar propriedade DataBaseConnection do SqlConnection #353541
12/02/2008
0
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
Curtir tópico
+ 0Posts
12/02/2008
Jpauloss
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
12/02/2008
Jpauloss
Gostei + 0
13/02/2008
Paullsoftware
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;
Gostei + 0
13/02/2008
Jpauloss
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;
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;
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
13/02/2008
Jpauloss
Alguma ajuda?
Gostei + 0
13/02/2008
Paullsoftware
SqlConnection1.Params.Values[´DataBase´]:= EServ.text+´:´+EBase.text
Gostei + 0
13/02/2008
Jpauloss
SqlConnection1.Params.Values[´DataBase´]:= EServ.text+´:´+EBase.text
Valeu, cheguei onde queria!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)