Exemplos de ADOQuery em Delphi
Traduzido por
ScribdTranslationsExemplos de ADOQuery em Delphi
Traduzido por
ScribdTranslationsADOQuery (Delphi) - Exemplos de Código do RAD Studio [Link]
ADOQuery (Delphi)
De Exemplos de Código do RAD Studio
Língua:
Delphi
Conteúdos
1 Descrição
2 Código
3 Usos
3.1 Veja Também
Descrição
Este exemplo demonstra o uso do ADO para conectividade de banco de dados. O exemplo assume que um TDBGrid está
colocado no formulário.
Código
procedure [Link](Sender: TObject);
const
String de conexão
ConnString
Provider=SQLOLEDB.1;Persist Security Info=False;
ID do usuário=%s;Senha=%s;Fonte de Dados=%s;Usar Procedimento para Preparar=1;
Auto Translate=True;Tamanho do Pacote=4096;Usar Criptografia para Dados=False;
Marcar com a collation da coluna quando possível=False
{ Consulta SQL }
SQLStr='SELECIONE * DE cliente ONDE customer_id = :AnId;'
{ Acesso do usuário }
db_user_name
db_pass_word
[Link]
var
ADOConn:TADOConnection;
ADOQuery:TADOQuery;
DataSrc:TDataSource;
Param:TParameter;
começar
Criar uma conexão ADO.
ADOConn:=[Link](Self);
Configurar o mecanismo do provedor
ADOQuery (Delphi) - Exemplos de Código do RAD Studio [Link]
Configurar a string de conexão.
[Link]:= Formatar(ConnString,
NomeDeUsuário
{ Desativar solicitação de login. }
[Link]:=Falso;
tentar
[Link]:=Verdadeiro;
exceto
um:EADOErrordo
começar
MensagemDlg('Erro ao conectar', mtError,
[mbOK],0);
Sair;
fim;
fim;
Crie a consulta.
ADOQuery:=[Link](Self);
[Link]ão := ADOConn;
[Link](SQLStr);
Atualize o parâmetro que foi extraído da consulta SQL: AnId.
Param:=[Link]('AnId');
[Link]:=ftInteiro;
[Link]:=1;
Defina a consulta como Preparada--isso melhorará o desempenho.
[Link]:= verdadeiro;
tente
[Link]:=Verdadeiro;
exceto
um:EADOErrordo
começar
MensagemDlg('Erro ao fazer consulta', mtErro,
[mbOK],0);
Sair;
fim;
fim;
Criar a fonte de dados.
DataSrc:=[Link](Self);
[Link]:=ADOQuery;
[Link]:=verdadeiro;
Por fim, inicie a grade.
[Link]:=DataSrc;
fim;
Usos
[Link]( fr | de | ja )
[Link]( fr | de | ja )
[Link]( fr | de | ja )
[Link]( fr | de | ja )
[Link]( pt | de | ja )
[Link]( fr | de | ja )
ADOQuery (Delphi) - Exemplos de Código RAD Studio [Link]
[Link]( fr | de | ja )
[Link]ão( fr | de | ja )
[Link]
[Link]( fr | de | ja )
Veja Também
Conectando a um Armazenamento de Dados Usando TADOConnection
Inspecionando o Status de Atualização de Linhas Individuais
Retirado de "[Link]
/[Link]?title=ADOQuery_(Delphi)&oldid=22779
Delphi 2010
Esta página foi modificada pela última vez em 3 de novembro de 2011, às 12:05.
Ajuda Feedback