CSDN里难道没有高手了么？

Question

你编程习惯真差
 temp:=Tquery.Create(Self);
 temp.Databasename:=Extractfilepath(Application.Exename);
 temp.Sql.Add('Select * From  "huaxing.db" '); //用“”
 //Temp.Sql.Add(' Select * From Huaxing ');  //也可以
 Try
 temp.Open;
 Edit1.Text:=Query1.Fields[0].Asstring;
 Except
 Edit1.Text:='Error Open DB';
 End; //Try
 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var temp:tquery;
begin
temp:=tquery.create(nil);
temp.DatabaseName:=extractfilepath(application.exename);
label1.caption:=temp.DatabaseName;
temp.Close;
temp.SQL.clear;
temp.SQL.add('select * from huaxing.db');
temp.open;
edit1.text:=temp.Fields[0].asstring;
end;