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

Вниз

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

 
Начинающий програмер   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
6-51856
teebot
2002-10-21 12:14
2002.12.16
Контроль порта (блокировка, разблокировка и т.п.) !!!!!!!!!!!!!!


1-51665
Misha
2002-12-05 11:01
2002.12.16
Динамические массивы


3-51637
Alexei Sviridov
2002-11-26 16:12
2002.12.16
Paradox. Sql zapros caseinsensetive. ????


8-51835
kima
2002-08-24 20:22
2002.12.16
gif


1-51672
Sergy
2002-12-04 15:47
2002.12.16
Как заставить перерисоваться TTreeview?





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