Fórum Conexão com MSSql Server #236537

var ArquivoINI: TIniFile;
begin
  ArquivoINI            := TIniFile.Create(´GerarEMS2.INI´);

  cnn.Connected         :=  false;
  cnn.ConnectionString  :=  ´Provider=´+ArquivoINI.ReadString(´CONEXAO´,´Provider´, ´´)+´;´ +
                            ´Persist Security Info=´+ArquivoINI.ReadString(´CONEXAO´,´Persist Security Info´, ´´)+´;´+
                            ´User ID=´+ArquivoINI.ReadString(´CONEXAO´,´User ID´, ´´)+´;´+
                            ´Initial Catalog=´+ArquivoINI.ReadString(´CONEXAO´,´Initial Catalog´, ´´)+ ´;´ +
                            ´Data Source=´+ArquivoINI.ReadString(´CONEXAO´,´Data Source´, ´´);
  cnn.DefaultDatabase   :=  ArquivoINI.ReadString(´CONEXAO´,´Initial Catalog´, ´´);
  cnn.Connected         :=  true;
end;