ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / из foxpro в delphi
20 сообщений из 20, страница 1 из 1
из foxpro в delphi
    #39722302
TsYekaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
24.10.2018, 16:38
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722308
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
TsYekaterinaкак 3 последние строки перенести в delphi?

Просто добавить к первой insert into.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
24.10.2018, 16:45
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722597
TsYekaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TsYekaterina
Гость
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:15
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722598
Tactical Nuclear Penguin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tactical Nuclear Penguin
Участник
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:35
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722604
TsYekaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TsYekaterina
Гость
Tactical Nuclear Penguin,

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

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

уже же писали - добавить insert into
...
Рейтинг: 0 / 0
25.10.2018, 09:01
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722609
TsYekaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TsYekaterina
Гость
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:05
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722611
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
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:07
| Ответить | Цитировать | Написать  
из foxpro в delphi
    #39722614
Tactical Nuclear Penguin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tactical Nuclear Penguin
Участник
TsYekaterina,

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

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

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

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

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

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

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

спасибо, все получилось!
Provider=VFPOLEDB.1;Data Source=D:\...;Password="";Collating Sequence=MACHINE
...
Рейтинг: 0 / 0
25.10.2018, 12:24
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / из foxpro в delphi
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&tid=2040230]:
 0ms
get settings:
 5ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 235ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 2ms
others: 203ms
total:  556ms
созд. / загр.: 556ms
x
x
Закрыть


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