Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )




> Проблема с программой
Djarlax
Вставить ник
сообщение 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
 
Новая тема 
Ответов (1 - 3)
sax_ol
Вставить ник
сообщение 25:04:2008, 09:31
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Цитата(Djarlax @ 25:04:2008 - 11:22) *
формата dbf
Нету такого формата.
Цитата(Djarlax @ 25:04:2008 - 11:22) *
ZTable1
Не в курсе, но может там надо транзакцию завершить, смотрите у ZConnection1, есть что нибудь такое ...
Цитата(Djarlax @ 25:04:2008 - 11:22) *
ZTable1 Table1
Это не самое лучьшее решение.
Подняться вверх 
 
Сообщение #2
Djarlax
Вставить ник
сообщение 27:04:2008, 14:17
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 3
Регистрация: 25:04:2008
Пользователь №: 16 878



Репутация: - 0 +


Подскажите как избавиться от возникновения ошибки "Переполнение стека", возникает она у меня когда я нажимаю на полосу прокрутки в компоненте DBGrid, в который выводится таблица, сформированная SQL запросом.
Подняться вверх 
 
Сообщение #3
sax_ol
Вставить ник
сообщение 28:04:2008, 05:15
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Скорее всего у вас там рекурсия бесконечная ..
Подняться вверх 
 
Сообщение #4


Быстрый ответ  Ответить  Новая тема 

> Быстрый ответ
Полужирный
Курсив
Подчеркнутый
Вставить изображение
Смайлики
Цитата
Код
 
 Отправлять уведомления об ответах на e-mail |  Включить смайлики |  Добавить подпись
   

 

RSS Текстовая версия Сейчас: 17:05:2008 - 07:45
с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net