Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Програмное добавление   Найти похожие ветки 

 
Начинающий програмер   (2002-11-27 16:17) [0]

Здравствуйте!
У меня есть база данных(Paradox) и нада добавить в неё данные
програмно. Как это сделать(типа такого Navigation1.Insert).
Спасибо!


 
DN   (2002-11-27 17:35) [1]

Table1.Append;
...
Table1.FieldByName("Pole1").AsString:=A;
Table1.FieldByName("Pole2").Asinteger:=B;
Table1.FieldByName("Pole3").AsBoolean:=C;
...
Table1.Post;
Table1.Refresh;


 
Wolf226   (2002-11-27 17:38) [2]

with Table1 do
begin
insert;
fieldvalues["name"]:="Bla-bla";
fieldvalues["sname"]:="Bla";
post;
end;

C Query1 тоже самое, только UpdateSQL нужен.

Можно также метод InsertRecord использовать (но лучше не надо)


 
Wolf226   (2002-11-27 17:40) [3]

2 DN.
Зачем Table1.Refresh?


 
DN   (2002-11-27 17:45) [4]

>>Wolf226 ©
Согласен, лучше вынести отдельно

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
Table1.Refresh;
end;


 
Wolf226   (2002-11-27 17:59) [5]

2 DN
Вот так точно лажа наверно выйдет.
Я вообще по Paradox не очень, но я думал, что после Post-a refresh не нужен.

Ну уж явно его недо в BeforeInsert вставлять. Уж если нужен он, то в AfterPost


 
MsGuns   (2002-11-27 22:11) [6]

Refresh нужен для отображения ЧУЖИХ изменений, а чтобы чужие увидели ТВОИ изменения (как в данном случае), надо FlushBuffers (Хотя для Парадокса, если все настройки верны и не используется буферизация, это в общем случае не обязательно)



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

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
14-51915
Anatoly Podgoretsky
2002-11-24 08:56
2002.12.16
Именинники 24 ноября


1-51816
avsh
2002-11-28 01:08
2002.12.16
Динамические массивы


6-51881
Incognito
2002-10-20 00:34
2002.12.16
Имя соединения (провайдера)


7-51980
RUS1
2002-10-16 11:05
2002.12.16
Запускаем процесс...


14-51899
Dave2000
2002-11-22 12:06
2002.12.16
Как отправить e-mail НЕ через компоненты Дельфи?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский