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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar