Показать сообщение отдельно
  #1  
Старый 18.03.2013, 16:12
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию Вытащить из екселя значение строки и создать таблицу с назвнием равным этому значению

Нужно вытащить из екселя значение строки и создать таблицу с назвнием равным этому значению. После того как открываю файл, вылазиет ошибка "Ошибка синтаксиса в инструкции CREATE TABLE" Вот мой код:
Код:
procedure TForm1.Button10Click(Sender: TObject);
var
  ea:variant;
  row:integer;
  i: word;
  i2:integer;
  asd:string;
begin
  if opendialog1.Execute then
  asd:=Label5.Caption;
begin
  ea:=CreateOleObject('Excel.Application'); //Задубасить Ole обьект типа Eксель
  ea.Workbooks.Open(opendialog1.FileName); //Открываем нужную нам книгу
  ea.Visible:=false;// Скрываем, если конечно нужно
  Label5.Caption:=ea.Sheets[1].Cells[2,1];
asd:=Label5.Caption;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (Код number, Наименование char(255), Количество number, Дата date)', [asd]);
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:= Format('SELECT * from %s', [asd]);
ADOQuery1.Open;