Проблема с программой

Тема в разделе "Delphi - Базы данных", создана пользователем Djarlax, 25 апр 2008.

Статус темы:
Закрыта.
  1. Djarlax

    Djarlax Гость

    У меня такая проблема, делаю программу для переноса данных из таблицы формата dbf в таблицу
    на MySQL сервере.
    Подключаюсь к таблицам, для проверки помещаю на форму компоненты DBGrid, всё нормально,
    таблицы отображаются. Пишу процедуру:

    Код (Text):
    procedure TForm1.Button3Click(Sender: TObject);
    var i: integer;
    begin
    Table1.Active:=true;
    ZConnection1.Connected:=true;
    ZTable1.Active:=true;
    Table1.First;
    while not Table1.Eof do
    begin
    ZTable1.Insert;
    for i:=0 to Table1.Fields.Count-1 do
    begin
    ZTable1.FieldByName(Table1.FieldDefs[i].Name).Value := Table1.Fields[i].Value;
    end;
    ZTable1.Post;
    Application.ProcessMessages;
    Table1.Next;
    end;
    Table1.Active:=false;
    ZTable1.Active:=false;
    ZConnection1.Connected:=false;
    end;
    Запускаю программу, ошибки не выдаёт, в DBGrid если не закрывать соединение в ходе выполнения программы
    отображается таблица с новыми значениями из таблицы dbf , но после закрытия данные
    исчезают. Захожу на MySQL сервер, таблица не изменилась, данные не переносятся.
    Подскажите в чём ошибка? Может в компонентах какие параметры поменять или дописать что-то нужно,
    чтобы данные сохранялись?
     
  2. Djarlax

    Djarlax Гость

    Подскажите как избавиться от возникновения ошибки "Переполнение стека", возникает она у меня когда я нажимаю на полосу прокрутки в компоненте DBGrid, в который выводится таблица, сформированная SQL запросом.
     
Загрузка...
Похожие Темы - Проблема программой
  1. c0de3r
    Ответов:
    5
    Просмотров:
    126
  2. DobermannTT
    Ответов:
    10
    Просмотров:
    135
  3. SoulPaladin
    Ответов:
    4
    Просмотров:
    131
  4. Artael
    Ответов:
    1
    Просмотров:
    110
  5. ENSLER
    Ответов:
    0
    Просмотров:
    102
Статус темы:
Закрыта.

Поделиться этой страницей