Mudanças entre as edições de "NewPHConnection"
(Criou página com 'NewPHConnection é uma função que cria uma nova conexão a um banco de dados dentro do sistema PHSYS ou de um framework relacionado. ==='''Parâmetros'''=== Sem parâmetr...') |
(→Exemplos) |
||
| (Uma revisão intermediária pelo mesmo usuário não está sendo mostrada) | |||
| Linha 16: | Linha 16: | ||
// Criando uma nova instância de conexão | // Criando uma nova instância de conexão | ||
Conexao := NewPHConnection; | Conexao := NewPHConnection; | ||
| − | |||
try | try | ||
// Definindo os parâmetros de conexão | // Definindo os parâmetros de conexão | ||
| Linha 23: | Linha 22: | ||
Conexao.Username := 'usuario'; | Conexao.Username := 'usuario'; | ||
Conexao.Password := 'senha'; | Conexao.Password := 'senha'; | ||
| − | |||
// Abrindo a conexão | // Abrindo a conexão | ||
Conexao.Connected := True; | Conexao.Connected := True; | ||
| − | |||
// Executando uma consulta SQL simples | // Executando uma consulta SQL simples | ||
Query := 'SELECT * FROM clientes'; | Query := 'SELECT * FROM clientes'; | ||
Conexao.Execute(Query); | Conexao.Execute(Query); | ||
| − | |||
ShowMessage('Consulta executada com sucesso!'); | ShowMessage('Consulta executada com sucesso!'); | ||
finally | finally | ||
| Linha 37: | Linha 33: | ||
Conexao.Free; | Conexao.Free; | ||
end; | end; | ||
| − | end. | + | end. |
Edição atual tal como às 08h28min de 26 de fevereiro de 2025
NewPHConnection é uma função que cria uma nova conexão a um banco de dados dentro do sistema PHSYS ou de um framework relacionado.
Parâmetros
Sem parâmetros
Sintaxe
Function NewPHConnection: TPHConnection;
Exemplos
var
Conexao: TPHConnection;
Query: String;
begin
// Criando uma nova instância de conexão
Conexao := NewPHConnection;
try
// Definindo os parâmetros de conexão
Conexao.Host := 'localhost';
Conexao.Database := 'meubanco';
Conexao.Username := 'usuario';
Conexao.Password := 'senha';
// Abrindo a conexão
Conexao.Connected := True;
// Executando uma consulta SQL simples
Query := 'SELECT * FROM clientes';
Conexao.Execute(Query);
ShowMessage('Consulta executada com sucesso!');
finally
// Fechando e liberando a conexão
Conexao.Connected := False;
Conexao.Free;
end;
end.
