Delphi가 프로그램에서 SQL 문장을 맞추어 결과를 얻습니다
4056 단어 Delphi
1 var
2 Qry:TAdoQuery;
3 singleRecord,Response:string;
4 begin
5 Context.Response:=' !';
6 Qry:=TAdoQuery.Create(nil);
7 try
8 try
9 Qry.Connection:=Context.Cn;
10 Qry.Close;
11 Qry.SQL.Clear;
12 Qry.SQL.Add('select * from wmnow..code');
13 Qry.Open;
14 while not Qry.Eof do
15 begin
16 singleRecord:=Qry.FieldByName('i_unit').AsString+';'+Qry.FieldByName('v_unit').AsString+';'
17 +Qry.FieldByName('i_dot').AsString;
18 Response:=Response+singleRecord+'|';
19 Qry.Next;
20 end;
21 SetLength(Response,Length(Response)-1);
22 except
23 on E:Exception do
24 begin
25 MainForm.MemoPrint(' , ');
26 end;
27 end
28 finally
29 Qry.Free;
30 end;
31 Context.Response:=Response;
32 end;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.