delphi ado中如何提取指定字段的所有值(超过两个字段),并显示在dbgrid上 delphi adoquery获取字段名

delphi 在ADOQuery上如何使用代码添加一个字段？ 用SQL语句Alter table add 字段名 类型 查看原帖>；>；DELPHI从所得的ADOQuery中提取值 ADOQuery1.FieldByName('字段名').AsString；delphi中adoquery控件中某个字段Onvalidate事件的用法？ procedure TForm2.ADOQuery1TestFieldValidate(Sender：TField)；beginSender就是当前字段，可以在这里对Sender字段进行各种操作。例如：if Sender.Value='Hello' then Sender.Value：='yeah~'；但如果想改变Sender字段的值，建议在OnSetText里面处理。end；在delphi中存入图片，字段名为Graphic，用query组件 可以使用内存流和TBlob添加图片.我这里用的是Access表，Graphic字段类型为OEL物件.单元接口要引用JPEG单元.插入图片：procedure TForm1.Button5Click(Sender：TObject)；varMStream：TMemoryStream；FileExt：string；beginif image1.Picture.Graphic<；>；nil thenbeginMStream：=TMemoryStream.Create；FileExt：=ExtractFileExt(Opendialog1.FileName)；end；tryimage1.Picture.Graphic.SaveToStream(MStream)；Mstream.Position：=0；adoquery1.Edit；TBlobField(Adoquery1.FieldByName('phote')).LoadFromStream(MStream)；if uppercase(fileExt)='.BMP' then/bmp图片插入beginAdoquery1.FieldByName('isbmp').Value：=1；ShowMessage('Insert BMP OK。')；endelse if(UpperCase(fileExt)='.JPG')or(UpperCase(FileExt)='.JPEG')then/JPEG图片格式beginadoQuery1.FieldByName('isbmp').Value：=0；ShowMessage('Insert jpeg OK。')；end；adoquery1.Post；finallyMStream.Free；end；end；读取：procedure TForm1.DBGrid1CellClick(Column：TColumn)；varMStream：TMemoryStream；jpeg：TJpegImage；begintryMStream：=TMemoryStream.Create；TBlobField(Adoquery1.FieldByName('phote'))。.delphi我写了一个过程用ADOQuery查询一个表获得了一个字符串，我该如何获取这个字符串到定义的变量中去 VarS：String；I：Integer；beginS：=ADOQuery3.FieldByName('字段名称').AsString；I：=ADOQuery3.Fields[0].AsInteger；S：=ADOQuery3.FieldValues['字段名称']；

#delphi