Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с MySQL -- не читаются данные [D7, XP]


Страницы:   1 2

cvg ©   (2006-11-08 12:05:00) 

Почему-то данные из базы считываются только один раз и потом остаются неизменными, хотя реально в таблицах они уже сменились. Возможно, что-то не так с установлением соединения, т.к. свойство FieldsEditor компонента SQLQuery список полей таблицы не выводит. Параметры компонентов следующие:

SQLConnection:
Connected = True
ConnectionName = MySQLConnection
DriverName = MySQL
GetDriverFunk = getSQLDriverMYSQL
KeepConnection = True
LibraryName = dbexpmysql.dll
LoadParamsOnConnect = True
Name = SQLConnection1
Params:
--
DriverName = MySQL
HostName = localhost
Database = quik
User_Name = root
Password = admin
...
--
VendorLib = libmysql.dll

Тестирование подключеня выдает True.

Компонент SQLQuery:
Active = True
DataSource =
GetMetadata = False
Name = SQLQuery1
NoMetadata = True
NumericMapping = False
ObjectView = True
ParamCheck = True
Params =
SchemaName =
SQL = "select * from current"
SQLConnection = SQLConnection1


Плохиш   (2006-11-08 16:39:00) [1]


> Надо было SQLQuery1 впереди написать

Фигушки, хоть и в "Начинающим" :-) Вон в соседней ветке даже код не помог :-(


cvg   (2006-11-08 16:33:00) [2]

Спасибо! :)) (Надо было SQLQuery1 впереди написать, тогда б на 1 час меньше времени ушло.)


Плохиш   (2006-11-08 16:31:00) [3]

Ура, всего 1час 9 минут прошло. Поздравляю :-)


cvg   (2006-11-08 16:25:00) [4]

Короче, код

 SQLQuery1.Close;
 SQLQuery1.Open;
 with SQLQuery1 do

вроде, что-то разумное выдает...


cvg   (2006-11-08 15:41:00) [5]

SQL Example
The following code loads an SQL query from a file and executes it.

SQLQuery1.SQL.LoadFromFile('/usr/queries/CustQuery.sql');
SQLQuery1.Prepared := True;
SQLQuery1.Open;


Плохиш   (2006-11-08 15:35:00) [6]

Чукча - не читатель?


cvg   (2006-11-08 15:33:00) [7]

Это из дельфийского хелпа взято. Ну а если не это, что что тогда?


Плохиш   (2006-11-08 15:30:00) [8]


> cvg   (08.11.06 15:28) [18]
> Что-то типа такого? --
>
> SQLQuery1.Prepared := True;
> SQLQuery1.Open;

Галиматья какая-то :-/

PS. Не сдержался.


cvg   (2006-11-08 15:28:00) [9]

Что-то типа такого? --

SQLQuery1.Prepared := True;
SQLQuery1.Open;


Плохиш   (2006-11-08 15:16:00) [10]

x.Close;
x.Open;

PS. О серьёзности проекта можно судить по названию SQLQuery1.

PPS. Не сдержался.


cvg   (2006-11-08 15:11:00) [11]

А SQLQuery1 -- это разве не то? Если не то, то каким хоть примерно одно должно быть?


Anatoly Podgoretsky   (2006-11-08 15:03:00) [12]

> cvg  (08.11.2006 14:29:14)  [14]

Подойдет что угодно, но его нигде не видать.


cvg   (2006-11-08 14:29:00) [13]

"Полного кода"? Всех 4700 строк??? 8-о

Что имеется ввиду под словами "открытие запроса"?


Anatoly Podgoretsky   (2006-11-08 14:23:00) [14]

> cvg  (08.11.2006 14:04:10)  [10]

Пока нет достоверного, полного кода, который позволял бы сделать диагноз, то почему бы не потрепаться, если автор сам трепется.


Плохиш   (2006-11-08 14:22:00) [15]


> в Прошлом году предыдущая версия программы (потом перерыв
> в работе над ней был) читала данные без всекого переоткрывания

Не верю.
А так же не верю, что Вы принимали участие в разработке той версии программы.


Anatoly Podgoretsky   (2006-11-08 14:19:00) [16]

Где открытие запроса, его нигде не наблюдается.


cvg   (2006-11-08 14:04:00) [17]

Плохиш
А если без издевки? Что конкретно сделать? в Прошлом году предыдущая версия программы (потом перерыв в работе над ней был) читала данные без всекого переоткрывания...


Плохиш   (2006-11-08 13:53:00) [18]


> "Переоткрывать" -- это как?

А что по этому поводу говорит толковый словарь русского языка?


cvg   (2006-11-08 13:51:00) [19]

"Переоткрывать" -- это как? В тексте программы у меня все выглядит примерно так:

function ABC:integer;
var ...
begin
 sleep(100);
 with SQLQuery1 do
  begin
   First;
   while not Eof do
    begin
       str1 := FieldByName('NAME').AsString;
        ...
      end;
      Next;
    end;
  end;
...
end;


DVM   (2006-11-08 13:24:00) [20]


> А изменились потому, что другая программа осуществляет экспорт
> в БД

Переоткрывать тогда


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо