Exportação ADO gt;gt;gt; Excel
Depois de pesquisar por vários fontes sobre esta matéria cheguei ao código abaixo:
[b:ba683e0fd4]procedure TForm1.Button4Click(Sender: TObject);
Var
FileName: string;
SheetName: string;
IsamFormat: string;
begin
FileName:=´c:\teste.xls´;
SheetName:=´Plan1´;
IsamFormat:=´Excel 8.0´;
FADOCommand.CommandText := ´Select * INTO ´ + ´[´ +
SheetName + ´]´ + ´ IN ´ + ´´´ + FileName + ´´´ + ´[´ + IsamFormat +
´;]´ + ´ From ´ + ´turma´;
FADOCommand.Execute;
end;[/b:ba683e0fd4]
No entanto recebo a seguinte except:
´Incorect sintax near keyword IN´
Alguem sabe me dizer oque esta errado, ou outra forma????
[b:ba683e0fd4]procedure TForm1.Button4Click(Sender: TObject);
Var
FileName: string;
SheetName: string;
IsamFormat: string;
begin
FileName:=´c:\teste.xls´;
SheetName:=´Plan1´;
IsamFormat:=´Excel 8.0´;
FADOCommand.CommandText := ´Select * INTO ´ + ´[´ +
SheetName + ´]´ + ´ IN ´ + ´´´ + FileName + ´´´ + ´[´ + IsamFormat +
´;]´ + ´ From ´ + ´turma´;
FADOCommand.Execute;
end;[/b:ba683e0fd4]
No entanto recebo a seguinte except:
´Incorect sintax near keyword IN´
Alguem sabe me dizer oque esta errado, ou outra forma????
Gustavo_sm
Curtidas 0