|
|
#1
|
|||
|
|||
DBEdit
Как из одного DBEdit сохранить данные в две таблицы??
|
#2
|
||||
|
||||
Код:
T1.Open; T2.Open; T1.Edit; T2.Edit; T1.FieldByName('F1').asString:=DBEdit1.Text; T2.FieldByName('F1').asString:=DBEdit1.Text; T1.Post; T2.Post; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
|||
|
|||
Как я понял код должен иметь след. вид:
Код:
DataModule1.ADOTable5.Open; DataModule1.ADOTable6.Open; DataModule1.ADOTable5.Edit; DataModule1.ADOTable6.Edit; DataModule1.ADOTable5.FieldByName('имя поля').asString:=DBEdit1.Text; DataModule1.ADOTable6.FieldByName('имя поля').asString:=DBEdit1.Text; DataModule1.ADOTable5.Post; DataModule1.ADOTable6.Post; Не работает, выдает ошибку: |
#4
|
||||
|
||||
а так:
Код:
DataModule1.ADOTable5.Open; DataModule1.ADOTable6.Open; DataModule1.ADOTable5.Insert; DataModule1.ADOTable6.Insert; DataModule1.ADOTable5.FieldByName('имя поля').asString:=DBEdit1.Text; DataModule1.ADOTable6.FieldByName('имя поля').asString:=DBEdit1.Text; DataModule1.ADOTable5.Post; DataModule1.ADOTable6.Post; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#5
|
||||
|
||||
Yurk@, так тоже не будет работать.
Renat, алгоритм примерно такой - связываешь DBEit с одной из таблиц как обычно, у этой таблицы обрабатываешь OnAfterPost в котором сограняешь, то что нужно во вторую таблицу. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#6
|
|||
|
|||
Yurk@ твой вариант работает, если таблици не связаны, и не DBEdit, а простой Edit, но мне надо чтоб была связь, Aristarh Dark можно по подробнее про ваш вариант?!
|