• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы Djarlax
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

Djarlax

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

Код:
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 сервер, таблица не изменилась, данные не переносятся.
Подскажите в чём ошибка? Может в компонентах какие параметры поменять или дописать что-то нужно,
чтобы данные сохранялись?
 
D

Djarlax

Подскажите как избавиться от возникновения ошибки "Переполнение стека", возникает она у меня когда я нажимаю на полосу прокрутки в компоненте DBGrid, в который выводится таблица, сформированная SQL запросом.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!