델파이에서 MySQL을 ODBC로 연결해서, 데이터 가져오기
절름발이 프로그래머/Delphi / 2009. 11. 4. 14:16
아래의 펌글을 참고해서, Connection String을 만든다음,
Query를 통해서, 자료를 하나씩 가져오면 됩니다.
procedure TForm1.Button1Click(Sender: TObject);
var
fullURL : string;
urllist : Tstringlist;
ADOQuery1: TADOQuery;
begin
ADOQuery1 := TADOQuery.Create(nil);
ADOQuery1.ConnectionString := 'Provider=MSDASQL.1;Password=패스워드;Persist Security Info=True;User ID=사용자명;Data Source=데이터베이스 DSN 명칭';
ADOQuery1.SQL.Text := 'select * from 테이블명';
ADOQuery1.Open;
ADOQuery1.First;
urllist := TStringList.Create;
while not ADOQuery1.Eof do
begin
fullURL := ADOQuery1.FieldByName('필드명').AsString;
urllist.Add(fullURL);
ADOQuery1.Next;
end;
Memo1.Lines := urllist;
end;