Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Вниз

сформировать список...   Найти похожие ветки 

 
makvell   (2005-12-05 23:16) [0]

Осваиваю IB, задача следующая:
В БД есть несколько таблиц... В программе нужно
сформировать список из значений поля THEME_NAME
одной из таблиц...

Пишу примерно следующую процедуру:

procedure TInsertF.ListThemeCreate;
var
   i: integer;
begin
cxComboBox1.Clear;
IBTransaction1.StartTransaction;
IBDataSet1.Open;

For i:=(IBDataSet1.RecordCount-1) downto 0 do
   begin
   cxComboBox1.Properties.Items.Add(IBDataSet1.FieldByName("THEME_NAME").AsString);
   IBDataSet1.Next;
   end;

IBTransaction1.Commit;
end;

Добавляю еще одну запись, а в списе по-прежнему одна,
или, что еще интереснее две, НО одинаковые (первая запись)...

В чем ошибка?

Заранее спасибо!


 
unknown ©   (2005-12-06 02:43) [1]

>makvell   (05.12.05 23:16)
>В чем ошибка?
вот в этом:
For i:=(IBDataSet1.RecordCount-1) downto 0 do
Надо или сначала все записи профетчить IBDataSet1.FetchAll
или (что, ИМХО, разумнее) делать так:

IBDataSet1.First;
while not IBDataSet1.Eof do
  begin
    ......
    IBDataSet1.Next;
  end;


 
msguns ©   (2005-12-06 09:34) [2]

Для того, чтобы получить реальный RecordCount, надо после Open дать датасету Last либо FetchAll


 
Johnmen ©   (2005-12-06 09:59) [3]

И зачем это всё гнать в комбобокс??????? В чём фишка?
Есть же TDBCombobox и прочие DB-Aware контролы....


 
makvell   (2005-12-06 17:34) [4]


> И зачем это всё гнать в комбобокс??????? В чём фишка?
> Есть же TDBCombobox и прочие DB-Aware контролы....


TDBComboBox... и что, как с ним сделать список из значений
полей одной из таблиц?


 
Johnmen ©   (2005-12-06 17:42) [5]

Попробовать почитать по F1


 
makvell   (2005-12-07 00:21) [6]


> Johnmen ©   (06.12.05 17:42) [5]
> Попробовать почитать по F1


F1:
Description

Use Items to supply the values in the list from which the user can choose. Because Items is an object of type TStrings, you can add, delete, insert, and move items using the Add, Delete, Insert, Exchange, and Move methods of the TStrings object. For example, to add each string to the combo box list, write code such as the following:

while not CountryTbl.Eof do begin

 DBComboBox1.Items.Add(CountryTbl.FieldByName("Country").AsString);
 CountryTbl.Next;

end;


...


> unknown ©   (06.12.05 02:43) [1]
> Надо или сначала все записи профетчить IBDataSet1.FetchAll
> или (что, ИМХО, разумнее) делать так:
>     ......


Еще раз спасибо.


 
Johnmen ©   (2005-12-07 09:06) [7]

>makvell   (07.12.05 00:21) [6]

Я говорил о F1 на TDBComboBox !
Использование в данном случае TComboBox есть глупость. Или наив неискушенной души...:)



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.01 c
9-1113343432
Ке
2005-04-13 02:03
2006.02.05
Редактор карты и вэй-поинтов


2-1137603437
Compton's G
2006-01-18 19:57
2006.02.05
ClientSocket


15-1137141985
Барлог(с)
2006-01-13 11:46
2006.02.05
Несколько "жизненных вопросов"


15-1137072733
ArtemESC
2006-01-12 16:32
2006.02.05
Алгоритм Маркова...


6-1130389111
WebSQLNeeder
2005-10-27 08:58
2006.02.05
Как програмно отследить что картинка в TWebBrowser не загрузилась





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский