Помощник
Здравствуйте, гость ( Вход | Регистрация )
|
|
25:04:2008, 09:22
|
|
Новенький ![]() Группа: Программист Сообщений: 3 Регистрация: 25:04:2008 Пользователь №: 16 878 Репутация: 0
|
У меня такая проблема, делаю программу для переноса данных из таблицы формата 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 сервер, таблица не изменилась, данные не переносятся. Подскажите в чём ошибка? Может в компонентах какие параметры поменять или дописать что-то нужно, чтобы данные сохранялись? |
|
Сообщение
#1
|
|
![]() |
|
|
25:04:2008, 09:31
|
|
============== ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
|
|
Сообщение
#2
|
|
|
|
27:04:2008, 14:17
|
|
Новенький ![]() Группа: Программист Сообщений: 3 Регистрация: 25:04:2008 Пользователь №: 16 878 Репутация: 0
|
Подскажите как избавиться от возникновения ошибки "Переполнение стека", возникает она у меня когда я нажимаю на полосу прокрутки в компоненте DBGrid, в который выводится таблица, сформированная SQL запросом.
|
|
Сообщение
#3
|
|
|
|
28:04:2008, 05:15
|
|
============== ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Скорее всего у вас там рекурсия бесконечная ..
|
|
Сообщение
#4
|
|
![]() |
|
Текстовая версия | Сейчас: 17:05:2008 - 07:45 |