BdpDataReader - Como ler conteudo do Campo

17/12/2005

0

Ola pessoal, estou ´apanhando´ muito para buscar o conteudo do 1º campo
da rotina abaixo. Nesse exemplo, consigo identifcar os campos.
Como pegar o seu conteudo?

Desde já agradeço,

Geraldo


Var aConn:BdpConnection; aTx:BdpTransaction; aCmd:BdpCommand;
aReader:BdpDataReader; aConnStr:String; i:Integer;
aconnoptions:String;
comando:BdpCommand;

aConnStr := ´Provider=INTERBASE;assembly=Borland.Data.Interbase...
aconnoptions := ´LoginPrompt=False;SQLDialect=3´;
aconn := BdpConnection.Create(aConnStr);
aconn.ConnectionOptions := aconnOptions;
aConn.Open();
aTx := aConn.BeginTransaction();
aCmd := aConn.CreateCommand();
aCmd.Connection := aConn;
aCmd.Transaction := aTx;
aCmd.CommandText := ´SELECT FROM MTRPA´+
´ WHERE MTRPA02 ´+´´´´+´JOAO´+´´´´;
aReader := aCmd.ExecuteReader();
IF aReader <> Nil THEN
Begin
For i:=0 to aReader.FieldCount - 1 DO
Begin
MessageBox.Show(´Coluna ´+aReader.GetName(i));
End;
End;
;


Josegeraldodeoliveira

Josegeraldodeoliveira

Responder

Posts

17/12/2005

Felipesrezende

IF aReader <> Nil THEN 
Begin 
For i:=0 to aReader.FieldCount - 1 DO 
Begin 
MessageBox.Show(´Coluna ´+aReader.GetName(i)); 
End; 


Tenta esse codigo aqui!
while aReader.read do
begin
MessageBox.Show(´Coluna ´+aReader.GetName(i)); 
end;


Espero que funcione.. hehehe

Abraço


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar