我的这个程序是用BDE、ODBC和Mysql的,为什么以下两个事件老是报错???
各位大侠帮忙看看嘛!小弟初学Delphi,让各位见笑了!
procedure TFMain.N6backupClick(Sender: TObject);
var
    strQuery:string;
    strFileName:string;
begin
    if SaveDialog1.Execute then
        strFileName:= SaveDialog1.FileName;
    strQuery:='SELECT * INTO OUTFILE "'+strFileName+'" FIELDS TERMINATED BY '',''  ENCLOSED BY ''"''LINES TERMINATED BY "\n" FROM enroltable';
    showmessage(strQuery);
    //exit;
   try
Screen.Cursor :=crHourGlass;
    with DataMo do
    begin
      if Query1.Active then Query1.Close;
      Query1.DatabaseName:='watano-MySQL';
      Query1.SQL.Clear;
      Query1.SQL.Add(strQuery);
      Query1.Open;
      showmessage('数据已经成功备份!');
      StatusBar1.SimpleText :='数据已经成功备份!';
    end;
  finally
    Screen.Cursor :=crDefault;
  end;
end;procedure TFMain.N5comebackClick(Sender: TObject);
var
    strQuery:string;
    strFileName:string;
begin
    if OpenDialog1.Execute then
        strFileName:= OpenDialog1.FileName;
    strQuery:='LOAD DATA CONCURRENT LOCAL INFILE '''+strFileName+''' REPLACE INTO TABLE enroltable FIELDS TERMINATED BY '','' OPTIONALLY ENCLOSED BY ''"'' LINES TERMINATED BY "\n" ';
    showmessage(strQuery);
    //exit;
   try
Screen.Cursor :=crHourGlass;
    with DataMo do
    begin
      if Query1.Active then Query1.Close;
      Query1.DatabaseName:='watano-MySQL';
      Query1.SQL.Clear;
      Query1.SQL.Add(strQuery);
      Query1.Open;
      showmessage('数据已经成功备份!');
      StatusBar1.SimpleText :='数据已经成功备份!';
    end;
  finally
    Screen.Cursor :=crDefault;
  end;
end;