VPF::Dbedit -не дает редактировать запись

Гость_Viktor

Дата 8.4.2005, 14:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//with Query1 do begin
//  with SQL do begin
    DbEdit1.ReadOnly:=false;
    Query1.SQL.Clear;
    Query1.SQL.Add('exec ValIra '+Edit1.Text+',1');
    Query1.Open;
    Query2.SQL.Clear;
    Query2.SQL.Add('exec ValIra '+Edit1.Text+',23');
    Query2.Open;
    Query3.SQL.Clear;
    Query3.SQL.Add('exec ValIra '+Edit1.Text+',457');
    Query3.Open;
end;

1значит подключаюсь к серверу Msmsql 2000 исполню процедуру хранимую. Потом хочу отредактировать запись а не дает. В чем ошибка?

и 2 вопрос а есть ли в Делфи 7 фаст репорт или quick report чтобі отпечататать єто все дело на принтерере или надо компонент доставлять.
Спасибо!

Это сообщение отредактировал(а) Alex - 10.4.2005, 18:30

Vit

Дата 8.4.2005, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Это значит что запрос не редактируемый, или настройки или запрос такой. Код SQL в студию! Кстати запрос через BDE или ADO?

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Гость_Viktor

Дата 8.4.2005, 17:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


if object_id('valIra') is not NULL
drop proc valIra
Go

create proc ValIra
@Number int,
@dates int
as

select b.id,b.debitname,c.Name, b.Purpose Назначение,b.CreditCode as Счет,
 b.MainAmount,cv.info,cl.id as dates
into ##valk1  
from bills b, amounts a, clients c, connotationvalues cv,connotationList cl where 
(b.id=@Number) and (b.creditid=a.id) --увязка таблицы билз и эмаунтс
and (a.Clientcode=c.code) --увязка таблиц амаунтс с клиентс
and (c.id=cv.ownerid)--клиентс с конотайшин валюс
and (cv.kind=cl.id) 
and (cl.id=@dates)
select * from ##valk1

drop table ##valk1

P.S. Использую Ms SQL 2000

Это сообщение отредактировал(а) Vit - 8.4.2005, 18:21

Гость_Viktor

Дата 8.4.2005, 17:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Работаю через BDE
Спасибо

Vit

Дата 8.4.2005, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Этот запрос должен только создать хранимую процедуру, выполнять её он не будет...

Совет: переходите на ADO

--------------------

Гость_Viktor

Дата 8.4.2005, 18:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Query1.SQL.Add('exec ValIra '+Edit1.Text+',1');

А это что такое? вроде должен исполнить

Vit

Дата 8.4.2005, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Упс.. точно! Недосмотрел... Сейчас погляжу
Добавлено @ 18:46
Попробуй Query.RequestLive:=true

--------------------

Гость_Viktor

Дата 8.4.2005, 19:10 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А ка сделать так чтобы результат запроса передать Edit1 вместо DBEdit

DbEdit1.ReadOnly:=false;
Query1.SQL.Clear;
Query1.SQL.Add('exec ValIra '+Edit1.Text+',1');
edit2.text:=Inttostr(Query1.SQL.Add('exec ValIra '+Edit1.Text+',1'));

вместо фамилии 1 выводит

Vit

Дата 8.4.2005, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Код


Query1.SQL.Add('exec ValIra '+Edit1.Text+',1');
Query1.Active:=true;
edit2.text:=Query1.fieldbyname('ИмяПоляКотороеНадоВывести').asString;

--------------------

Guest

Дата 9.4.2005, 21:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо заработало! провавить дает если перенес в EDIT

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »