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;
;
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
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)