Form2.OpenDialog2.InitialDir :=ExtractFilePath(Application.ExeName )+'database\'; if OpenDialog2.Execute then begin query1.Close; query1.SQL.Clear; query1.SQL.Add('insert into 房屋所有权登记清册.db select * from '''+opendialog2.FileName+''''); query1.ExecSQL; showmessage('数据导入成功'); end; ----------------------------------------------