Você está aqui: Delphi ::: dbExpress ::: TSQLConnection |
Como criar um objeto da classe TSQLConnection em tempo de execução e efetuar uma conexão com um banco de dadosQuantidade de visualizações: 13251 vezes |
A forma mais comum de se criar uma conexão com um banco de dados usando a arquitetura dbExpress é configurando o componente TSQLConnection em tempo de design, ou seja, fornecendo os valores para as suas propriedades e parâmetros de conexão por meio do editor de propriedades. No entanto, haverá situações nas quais teremos que criar um objeto TSQLConnection em tempo de execução, ou seja, criar o componente, fornecer valores para suas propriedades e efetuar a conexão com o banco de dados durante a execução do programa. Nesta dica eu mostrarei como isso pode ser feito. Analise cuidadosamente o código abaixo (inserido no evento Click de um botão): procedure TForm1.Button1Click(Sender: TObject); var conn: TSQLConnection; begin // vamos criar um novo objeto da classe TSQLConnection conn := TSQLConnection.Create(nil); // vamos definir os parâmetros da conexão...note que // aqui estou usando uma conexão com o MS SQL Server usando // Windows Authentication with conn do begin ConnectionName := 'MSSQLConnection'; DriverName := 'MSSQL'; LibraryName := 'dbxmss.dll'; VendorLib := 'oledb'; GetDriverFunc := 'getSQLDriverMSSQL'; LoginPrompt := False; // parâmetros adicionais da conexão Params.Add('SchemaOverride=sa.dbo'); Params.Add('HostName=NOTEBOOK'); Params.Add('DataBase=estudos'); Params.Add('OS Authentication=True'); Veja que o primeiro passo foi declarar uma variável chamada conn do tipo TSQLConnection. Em seguida nós criamos um novo objeto desta classe usando a linha: conn := TSQLConnection.Create(nil); Os passos seguintes foram a definição do nome de conexão, o nome do driver, nome do servidor, nome da base de dados, etc. Usei também o tratamento de exceção para exibir uma mensagem mais descritiva no caso de a conexão não puder ser feita com sucesso. Note que neste exemplo eu demonstro uma conexão em tempo de execução com o MS SQL Server. Este procedimento pode ser aplicado a qualquer um dos bancos de dados suportados pelo dbExpress, bastando alterar os valores das propriedades e parâmetros de conexão. |
![]() |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
1º lugar: Java |