Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / из foxpro в delphi / 20 сообщений из 20, страница 1 из 1
24.10.2018, 16:38
    #39722302
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
на фоксе такой запрос:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
select pkr.ods, pkr.oup, unr.obm, unei.oei, ;
round (iif (unr.pan=" ", unr.unr1*pkr.plo*unei.k, ;
(iif (unr.pan="A" or unr.pan="А", unr.unr1*pkr.plo*pkr.tol*unei.k, ;
(iif (unr.pan="P" or unr.pan="Р", unr.unr1*pkr.plo*pkr.tol*unei.k*1.667*1.006,
   unr.unr1*pkr.plo*pkr.tol*unei.k*1.006))))),9) as nor, ;
 pkr.tpr, unr.pan, pkr.prs, unr.pm, unr.di, unr.pri, unr.izw ;
from pkr, unr, unei, n112 ;
where unr.tpr=pkr.tpr and pkr.anod!=0 and unr.kets=unei.kets and n112.ods=pkr.ods into cursor tadd

sele norma1

append from dbf ('tadd')

use in tadd


как 3 последние строки перенести в delphi?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2018, 16:45
    #39722308
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterinaкак 3 последние строки перенести в delphi?

Просто добавить к первой insert into.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 08:15
    #39722597
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Dimitry Sibiryakov,

так пишет: syntax error
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
with PodetalNorma.Raschet.RaschetQuery do begin
sql.Clear;
sql.Add('insert into sele norma1');
try ExecSQL;
  except
    on E:Exception do begin
        ShowMessage(E.Message);
        exit;
      end;
  end;
end;
with PodetalNorma.Raschet.RaschetQuery do begin
sql.Clear;
sql.Add('append from dbf (''tadd'')');
try ExecSQL;
  except
    on E:Exception do begin
        ShowMessage(E.Message);
        exit;
      end;
  end;
end;
 with PodetalNorma.Raschet.RaschetQuery do begin
sql.Clear;
sql.Add('use in tadd');
try ExecSQL;
  except
    on E:Exception do begin
        ShowMessage(E.Message);
        exit;
      end;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 08:35
    #39722598
Tactical Nuclear Penguin
Tactical Nuclear Penguin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterinaна фоксе такой запрос:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
select pkr.ods, pkr.oup, unr.obm, unei.oei, ;
round (iif (unr.pan=" ", unr.unr1*pkr.plo*unei.k, ;
(iif (unr.pan="A" or unr.pan="А", unr.unr1*pkr.plo*pkr.tol*unei.k, ;
(iif (unr.pan="P" or unr.pan="Р", unr.unr1*pkr.plo*pkr.tol*unei.k*1.667*1.006,
   unr.unr1*pkr.plo*pkr.tol*unei.k*1.006))))),9) as nor, ;
 pkr.tpr, unr.pan, pkr.prs, unr.pm, unr.di, unr.pri, unr.izw ;
from pkr, unr, unei, n112 ;
where unr.tpr=pkr.tpr and pkr.anod!=0 and unr.kets=unei.kets and n112.ods=pkr.ods into cursor tadd

sele norma1

append from dbf ('tadd')

use in tadd


как 3 последние строки перенести в delphi?

перенести нужно первый запрос
остальное не нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 08:56
    #39722604
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Tactical Nuclear Penguin,

если перенести только первый запрос, то данные не добавляются в таблицу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:01
    #39722605
Tactical Nuclear Penguin
Tactical Nuclear Penguin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterinaTactical Nuclear Penguin,

если перенести только первый запрос, то данные не добавляются в таблицу.

уже же писали - добавить insert into
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:05
    #39722609
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Tactical Nuclear Penguin,

ошибка: syntax error
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
with PodetalNorma.Raschet.RaschetQuery do begin
sql.Clear;
sql.Add('insert into select pkr.ods, pkr.oup, unr.obm, unei.oei, ');
 sql.Add('round (iif (unr.pan=" ", unr.unr1*pkr.plo*unei.k, ');
 sql.Add('(iif (unr.pan="A" or unr.pan="А", unr.unr1*pkr.plo*pkr.tol*unei.k, ');
 sql.Add('(iif (unr.pan="P" or unr.pan="Р", unr.unr1*pkr.plo*pkr.tol*unei.k*1.667*1.006, unr.unr1*pkr.plo*pkr.tol*unei.k*1.006))))),9) as nor, ');
 sql.Add('pkr.tpr, unr.pan, pkr.prs, unr.pm, unr.di, unr.pri, unr.izw ');
 sql.Add('from pkr, unr, unei, n112 ');
 sql.Add('where unr.tpr=pkr.tpr and pkr.anod!=0 and unr.kets=unei.kets and n112.ods=pkr.ods into cursor tadd');
try ExecSQL;
  except
    on E:Exception do begin
        ShowMessage(E.Message);
        exit;
      end;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:07
    #39722611
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterina,

батенька, да ты совсем SQL не знаешь

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
Insert Into Table(поле, поле, поле, поле.....)
select pkr.ods, pkr.oup, unr.obm, unei.oei, ;
round (iif (unr.pan=" ", unr.unr1*pkr.plo*unei.k, ;
(iif (unr.pan="A" or unr.pan="А", unr.unr1*pkr.plo*pkr.tol*unei.k, ;
(iif (unr.pan="P" or unr.pan="Р", unr.unr1*pkr.plo*pkr.tol*unei.k*1.667*1.006,
   unr.unr1*pkr.plo*pkr.tol*unei.k*1.006))))),9) as nor, ;
 pkr.tpr, unr.pan, pkr.prs, unr.pm, unr.di, unr.pri, unr.izw ;
from pkr, unr, unei, n112 ;
where unr.tpr=pkr.tpr and pkr.anod!=0 and unr.kets=unei.kets and n112.ods=pkr.ods into cursor tadd
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:16
    #39722614
Tactical Nuclear Penguin
Tactical Nuclear Penguin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterina,

если у вас BDE то запрос все равно работать не будет, там нет IIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:20
    #39722616
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Tactical Nuclear Penguin,
не BDE, а ADO.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:20
    #39722617
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterina,

но все равно не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:23
    #39722618
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
defecator,

vfp 6.0 не понимает insert into select.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:32
    #39722624
Близнец1980
Близнец1980
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
defecatorTsYekaterina,


Код: sql
1.
 into cursor tadd


это не надо

[quot TsYekaterina],
vfp 6.0 не понимает insert into select.

а если установить Visual FoxPro OLEDB Provider 9.0 и через него подключаться ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:34
    #39722625
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterina,

ндааа. А какая целевая база данных? Программа на Delphi подключена к какой БД, ну типа dbf через BDE или MS Acesss или ещё что-нибудь? Везде же разный SQL диалект. А вам не итоговый SQL дают, а шаблоны которые еще надо доделать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:39
    #39722628
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterinadefecator,

vfp 6.0 не понимает insert into select.
значит, не судьба
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:44
    #39722631
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Кроик Семён,

к сожалению, это не бд, а просто dbf-таблицы, не связанные между собой. программа на delphi подключена через ADO.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:45
    #39722632
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Близнец1980,

к сожалению, здесь нет vfp 9.0.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 09:53
    #39722635
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
всем спасибо! еще подумаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 11:54
    #39722723
Близнец1980
Близнец1980
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
TsYekaterinaБлизнец1980,

к сожалению, здесь нет vfp 9.0.

Не нужно никакого vfp 9.0, а нужно вот это: https://www.microsoft.com/en-us/download/details.aspx?id=14839 установить.
Потом строка подключения будет что-то типа
Код: pascal
1.
ADOCon.ConnectionString:='Provider=VFPOLEDB.1;Data Source='+ здесь путь к папке с таблицами +';Password="";Collating Sequence=MACHINE';


У вас какая строка подключения в ConnectionString?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2018, 12:24
    #39722741
TsYekaterina
TsYekaterina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из foxpro в delphi
Близнец1980,

спасибо, все получилось!
Provider=VFPOLEDB.1;Data Source=D:\...;Password="";Collating Sequence=MACHINE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / из foxpro в delphi / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 425ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2040230]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 163ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 195ms
total:  425ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]