Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как нам тяжело новичкам [D7, 2000]

регинка © (2006-12-20 15:40:00)
я сделала так
ADOQuery4.Active:=False;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('Insert(select NUM_DOC,DATE_DOC,PAYMENT_TYPE,PAYER_INN, ');
ADOQuery4.SQL.Add('PAYER_NAME,ibank2.payment.KPP,AMOUNT,PAYER_ACCOUNT,PAYER_BANK _NAME,');
ADOQuery4.SQL.Add( 'PAYER_BANK_BIC,PAYER_BANK_ACC,RCPT_NAME,RCPT_INN,');
ADOQuery4.SQL.Add('TYPE_OPER,QUEUE,REZ_FIELD,PAYMENT_DETAILS FROM ');
ADOQuery4.SQL.Add('ibank2.operators,ibank2.opers2clients,ibank2.clients,ibank2.p ayment)');
ADOQuery4.SQL.Add('WHERE ibank2.clients.client_id=ibank2.opers2clients.client_id and ');
ADOQuery4.SQL.Add('ibank2.opers2clients.operator_id=ibank2.operators.operator_id and ');
ADOQuery4.SQL.Add('ibank2.clients.client_id=ibank2.payment.client_id and');
ADOQuery4.SQL.Add('ibank2.PAYMENT.status_doc=3 and');
ADOQuery4.SQL.Add('ibank2.clients.name_cln= :D ');
ADOQuery1.Parameters.FindParam('D').Value:=DBGrid2.SelectedField.Text;
ADOQuery4.SQL.Add('into dbo.megasoft1');

он мне пишет ошибку parameter object is improperly defined.Inconsistent or incomplete information was provided

app (2006-12-21 12:05:00) [1]
> регинка (21.12.2006 8:09:03) [3]

Ты когда будешь нормально офорлять заголовки тем?

pavel_guzhanov (2006-12-21 11:38:00) [2]
Ага, просмотрел еще раз [3], вроде понял... Ты вставляешь в таблицу данные, полученные селектом, а потом еще пытаешься вставить и values... IMHO так нельзя...

pavel_guzhanov (2006-12-21 11:18:00) [3]

> pavel_guzhanov © (21.12.06 09:07) [8]
> Диковинный синтаксис. Сам придумал?

да уж... :0)) сам со стороны посмотрел и ужаснулся :0)) Извиняюсь, глупость запостил в

> pavel_guzhanov © (21.12.06 09:07) [8]

Desdechado (2006-12-21 10:55:00) [4]
pavel_guzhanov © (21.12.06 09:07) [8]
Диковинный синтаксис. Сам придумал?

pavel_guzhanov (2006-12-21 09:07:00) [5]
INSERT INTO TableName (Имена полей......) VALUES (Вносимые значения.......) WHERE ....
У тебя же сначала идут имена полей, потом условие, а потом вносимые значения....

Sergey13 (2006-12-21 08:33:00) [6]
> [5] регинка (21.12.06 08:21)

Тебе в трех веткахуже ответили по нескольку раз. Но ты хочешь не помощи, чтобы понять и разобраться, а халявы, что бы совсем думалку не включать. Последний совет - найми программиста.

Virgo_Style (2006-12-21 08:33:00) [7]
регинка (21.12.06 8:21) [5]
Уже, кажется, советовали запросом - вот им и занести

регинка (2006-12-21 08:21:00) [8]
короче как мне данные из запроса adoquery1, занести в таблицу БД megasoft1

Sergey13 (2006-12-21 08:17:00) [9]
ИМХО или автор уже не операбелен или это развод.

регинка (2006-12-21 08:09:00) [10]
теперь я сделала так
ADOQuery4.SQL.Add('Insert into dbo.megasoft1(num_doc1,date_doc1,payment_type1,payer_inn1,');
ADOQuery4.SQL.Add('payer_name1,ibank2.payment.KPP1,AMOUNT1,PAYER_ACCOUNT1,PAYER_ BANK_NAME1,');
ADOQuery4.SQL.Add('PAYER_BANK_BIC1,PAYER_BANK_ACC1,RCPT_NAME1,RCPT_INN1,RCPT_BAN K_BIC1,');
ADOQuery4.SQL.Add('RCPT_BANK_ACC1,RCPT_KPP1,RCPT_ACCOUNT1,TYPE_OPER1,QUEUE1,REZ_ FIELD1,');
ADOQuery4.SQL.Add('PAYMENT_DETAILS1) select num_doc1,date_doc1,payment_type1,payer_inn1,payer_name1,');
ADOQuery4.SQL.Add('ibank2.payment.KPP1,AMOUNT1,PAYER_ACCOUNT1,PAYER_BANK_NAME1,' );
ADOQuery4.SQL.Add('PAYER_BANK_BIC1,PAYER_BANK_ACC1,RCPT_NAME1,RCPT_INN1,');
ADOQuery4.SQL.Add('RCPT_BANK_BIC1,RCPT_BANK_ACC1,RCPT_KPP1,RCPT_ACCOUNT1,');
ADOQuery4.SQL.Add('TYPE_OPER1,QUEUE1,REZ_FIELD1,PAYMENT_DETAILS1 FROM ');
ADOQuery4.SQL.Add('ibank2.operators,ibank2.opers2clients,ibank2.clients,ibank2.p ayment ');
ADOQuery4.SQL.Add('WHERE ibank2.clients.client_id=ibank2.opers2clients.client_id and ');
ADOQuery4.SQL.Add('ibank2.opers2clients.operator_id=ibank2.operators.operator_id and ');
ADOQuery4.SQL.Add('ibank2.clients.client_id=ibank2.payment.client_id and');
ADOQuery4.SQL.Add('ibank2.PAYMENT.status_doc=3 and');
ADOQuery4.SQL.Add('ibank2.clients.name_cln= :D ');
ADOQuery4.SQL.Add('values (:D,:d2,:e,:f,:g,:h,:j,:k,:l,:m,:n,:d1,:e1,:f1,');
ADOQuery4.SQL.Add(':g1,:h1,:j1,:k1,:l1,:m1,:n1,:v)');
ADOQuery4.Parameters.FindParam('D').Value:=DBGrid2.SelectedField.Text;
ADOQuery4.Parameters.FindParam('d2').Value:=ADOQuery1.Fields[0].Value;
ADOQuery4.Parameters.FindParam('e').Value:=ADOQuery1.Fields[1].Value;
ADOQuery4.Parameters.FindParam('f').Value:=ADOQuery1.Fields[2].Value;
ADOQuery4.Parameters.FindParam('g').Value:=ADOQuery1.Fields[3].Value;
ADOQuery4.Parameters.FindParam('h').Value:=ADOQuery1.Fields[4].Value;
ADOQuery4.Parameters.FindParam('j').Value:=ADOQuery1.Fields[5].Value;
ADOQuery4.Parameters.FindParam('k').Value:=ADOQuery1.Fields[6].Value;
ADOQuery4.Parameters.FindParam('l').Value:=ADOQuery1.Fields[7].Value;
ADOQuery4.Parameters.FindParam('m').Value:=ADOQuery1.Fields[8].Value;
ADOQuery4.Parameters.FindParam('n').Value:=ADOQuery1.Fields[9].Value;
ADOQuery4.Parameters.FindParam('d1').Value:=ADOQuery1.Fields[10].Value;
ADOQuery4.Parameters.FindParam('e1').Value:=ADOQuery1.Fields[11].Value;
ADOQuery4.Parameters.FindParam('f1').Value:=ADOQuery1.Fields[12].Value;
ADOQuery4.Parameters.FindParam('g1').Value:=ADOQuery1.Fields[13].Value;
ADOQuery4.Parameters.FindParam('h1').Value:=ADOQuery1.Fields[14].Value;
ADOQuery4.Parameters.FindParam('j1').Value:=ADOQuery1.Fields[15].Value;
ADOQuery4.Parameters.FindParam('k1').Value:=ADOQuery1.Fields[16].Value;
ADOQuery4.Parameters.FindParam('l1').Value:=ADOQuery1.Fields[17].Value;
ADOQuery4.Parameters.FindParam('m1').Value:=ADOQuery1.Fields[18].Value;
ADOQuery4.Parameters.FindParam('n1').Value:=ADOQuery1.Fields[19].Value;
ADOQuery4.Parameters.FindParam('v').Value:=ADOQuery1.Fields[20].Value;
ADOQuery4.ExecSQL;

теперь такая ошибка incorrect syntax the keyword 'values'

Desdechado (2006-12-20 16:48:00) [11]
> как нам тяжело новичкам
тяжело в учении, легко в бою ... если выживешь

читать-то научишься? а головой думать?

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1166613362&n=18
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1166604806&n=18

clickmaker (2006-12-20 15:49:00) [12]
insert into dbo.megasoft1(Field1, ..., FieldN)
select Field1, ..., FieldN from ...

ADOQuery1.Parameters.ParseSQL(ADOQuery1.Text, True);
перед ADOQuery1.Parameters.FindParam

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »