如何写数据导入导出的语句？

Question

在delphi中如何写数据库的导入导出语句？给段代码！

Answer 1

procedure TNamecardfrm.ButtonEClick(Sender: TObject);
var
  sSQL:string;
  i,j,intCount:integer;
  strFieldNamePath:string;
  v:Variant;
  Sheet:Variant;
begin
  if ComboBoxID.Text='' then
  begin
    beep;
    showmessage('没有可导出的数据!');
    exit;
  end;  sSQL:='select * from FormtoExcelPath where Format=''Name Card Application Form''';
  Datafrm.ADOQueryFormSetting.Close;
  Datafrm.ADOQueryFormSetting.SQL.Clear;
  Datafrm.ADOQueryFormSetting.SQL.Add(sSQL);
  Datafrm.ADOQueryFormSetting.Open;
  intCount:=Datafrm.ADOQueryFormSetting.RecordCount;
  if intCount>0 then
     begin //path
       strFieldNamePath:=Datafrm.ADOQueryFormSetting.FieldByname('ExcelFile').AsString;       try
          v:=CreateOleObject('Excel.Application');
          v.WorkBooks.open(strFieldNamePath);
          //v.Activesheet.Cells.Select; //清空Excel表
          //v.Selection.ClearContents;  //清空Excel表
          Sheet:=v.workBooks[1].workSheets[1];       Except
         ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试');
         v.DisplayAlerts:=False;
         v.quit;
         Exit;
       end;         //导出到Excel表中
    for i:=0 to intCount-1 do
       begin
         Sheet.Cells[1,1]:='dsdadsadad';
       end;
    //导出到Excel表中
      v.Visible := true;  //显示EXCEL窗口    //v.ActiveSheet.PrintPreview;//打印预览        if not VarIsEmpty(v) then
          begin
            v.DisplayAlerts:=true;
            v.WorkBooks[1].close;//(True,'strFieldNamePath');
            v.quit;
           // Application.Restore;
           // Application.BringToFront;
          end;
     end;//path
end;