Delphi ADOQuery procedure TForm1.Button1Click(Sender: TObject); var A: Array of String;//定义动态数组 Index: Integer;//定义数组下标变量 ADOQuery:TADOQuery; begin ADOQuery:=TADOQuery.create; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('Select B from A'); ADOQuery.Open; Se…
今天看了多年前的一个帖子,发现回答不合理,有些还将其归为delphi的bug.其实主要是没有灵活应用参数. ADOQUERY查询时,这样不行,结果不正确. WITH ADOQUERY1 DO BEGIN CLOSE;SQL.CLEAR; SQL.ADD('SELECT * FROM TABLE1 WHERE TA001=:MONTH AND TA002=:MONTH'); PARAMETERS.ParamByName('MONTH').Value :=EDIT1.TEXT; OP…