Найдено 328 результатов
- Ср 14 дек 2011 10:54
- Форум: Universal Data Access Components
- Тема: Зависает Delphi XE при использовании версии 4.1.3
- Ответы: 3
- Просмотры: 5526
- Вт 13 дек 2011 18:11
- Форум: Universal Data Access Components
- Тема: Зависает Delphi XE при использовании версии 4.1.3
- Ответы: 3
- Просмотры: 5526
- Ср 07 дек 2011 11:25
- Форум: MySQL Data Access Components
- Тема: MyQuery while
- Ответы: 3
- Просмотры: 30988
- Вт 06 дек 2011 10:37
- Форум: MySQL Data Access Components
- Тема: MyQuery while
- Ответы: 3
- Просмотры: 30988
Здравствуйте,
Если Вы хотите определить существуют ли категории avto_vkl и public1 в таблице soft_admin_access для пользователя id_user и отразить это на форме установкой свойств TLabel.Enabled в False, Вам следует использовать следующий код:Ваш код в данном случае приведет к ошибочным результатам. Например, если последняя запись в MyQuery6 содержит категорию отличную от avto_vkl и public1, то обе Ваши метки будут иметь свойство Enabled=True, хотя эти категории были в предыдущих записях. Если Вам нужна другая функциональность, опишите ее подробнее и мы попытаемся Вам помочь.
Если Вы хотите определить существуют ли категории avto_vkl и public1 в таблице soft_admin_access для пользователя id_user и отразить это на форме установкой свойств TLabel.Enabled в False, Вам следует использовать следующий код:
Код: Выделить всё
MyQuery6.SQL.Clear;
MyQuery6.SQL.Add('SELECT * FROM `soft_admin_access` WHERE `id_user`="'+MyQuery5.FieldByName('id').AsString+'"');
MyQuery6.Open;
TLabel1.Enabled := True;
TLabel6.Enabled := True;
while not (MyQuery6.Eof) do begin
if (MyQuery6.FieldByName('category').AsString = 'avto_vkl') then
TLabel6.Enabled := False;
if (MyQuery6.FieldByName('category').AsString = 'public1') then
TLabel1.Enabled := False;
MyQuery6.Next;
end;
- Чт 01 дек 2011 13:12
- Форум: MySQL Data Access Components
- Тема: Mybackuap и ProgressBar
- Ответы: 6
- Просмотры: 9763
- Пн 21 ноя 2011 12:38
- Форум: MySQL Data Access Components
- Тема: Помогите с Http Tunnel Mydac... (trial)
- Ответы: 1
- Просмотры: 5578
Здравствуйте,
Я смог подключиться к Вашему серверу используя следующий код:Попробуйте использовать данный код и если он вызовет ошибку, сообщите нам ее полное описание.
Я смог подключиться к Вашему серверу используя следующий код:
Код: Выделить всё
MyConnection.Server := 'localhost';
MyConnection.Port := 3306;
MyConnection.Username := 'oreklame';
MyConnection.Password := 'wMLUs9B8';
MyConnection.Options.Protocol := mpHttp;
MyConnection.HttpOptions.Url := 'http://www.oreklame.uz/tunnel.php';
MyConnection.HttpOptions.Username := 'oreklame';
MyConnection.HttpOptions.Password := 'wMLUs9B8';
MyConnection.LoginPrompt := False;
MyConnection.Open;
- Пн 14 ноя 2011 10:14
- Форум: MySQL Data Access Components
- Тема: MyDAC (MyQuery)
- Ответы: 3
- Просмотры: 8632
- Пн 31 окт 2011 17:45
- Форум: MySQL Data Access Components
- Тема: MyDAC TMyConnection
- Ответы: 1
- Просмотры: 5174
- Пн 31 окт 2011 17:39
- Форум: MySQL Data Access Components
- Тема: MyDAC (MyQuery)
- Ответы: 3
- Просмотры: 8632
Следующий пример демонстрирует как поместить данные которые вернул запрос в компонент TMemo:Следующий пример демонстрирует как поместить часть данных которые вернул запрос в компонент TMemo:
Код: Выделить всё
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
MyQuery1->SQL->Text = "select id from testtable";
MyQuery1->Open();
Memo1->Clear();
while (!MyQuery1->Eof)
{
Memo1->Lines->Add(MyQuery1->FieldByName("id")->AsString);
MyQuery1->Next();
}
}
Код: Выделить всё
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
MyQuery1->SQL->Text = "select id from testtable";
MyQuery1->Open();
Memo1->Clear();
while (!MyQuery1->Eof)
{
if (MyQuery1->RecNo > 10) break;
if (MyQuery1->RecNo > 4)
{
Memo1->Lines->Add(MyQuery1->FieldByName("id")->AsString);
}
MyQuery1->Next();
}
}
- Пн 31 окт 2011 17:15
- Форум: SQL Server Data Access Components
- Тема: Асинхронное подключение
- Ответы: 1
- Просмотры: 4571
- Вт 25 окт 2011 13:54
- Форум: Universal Data Access Components
- Тема: Проблемы с производительностью процедур в MySQL
- Ответы: 9
- Просмотры: 18383
- Ср 28 сен 2011 09:11
- Форум: InterBase Data Access Components
- Тема: InterBase 2009 и шифрование
- Ответы: 2
- Просмотры: 5229
- Пт 09 сен 2011 10:36
- Форум: MySQL Data Access Components
- Тема: dotConnect for MySQL
- Ответы: 1
- Просмотры: 5169
К сожалению, мы не предоставляем поддержки данной категории продуктов на русском языке. Но Вы можете задать этот же вопрос на англоязычном форуме поддержки dotConnect for MySQL (на английском языке). Спасибо.