ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Непонятно.....
2 сообщений из 2, страница 1 из 1
Непонятно.....
    #33784998
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valerii
Участник
Народ, вот пытаюсь 27 полей из временного курсора воткнуть в таблицу MSSQL server 2000, все перепробовал, не хочет инсертиться, сцуко...
Вот код
Код: plaintext
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.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
Clear

gnConnHandle =  SQLSTRINGCONNECT("Driver=SQL Server;Server=HOME;Database=BankSia;") 

IF gnConnHandle <= 0
   = MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
   RETURN
ELSE
   = MESSAGEBOX('Connection made', 48, 'SQL Connect Message')
ENDIF



SELECT * FROM SALES INTO CURSOR ToMSSQL
GO TOP

str1 = "INSERT INTO Sales (Data, ean13, articul, Vat, quantity, SalePrice,;
						   To_pay, Paid_MDL, rec_ref, discount, VIP,branch,;
						   id_staff, nr_orders, curency, exch_rate, to_PayMDL,;
						   id_goods, id_suplier, IsMark, BasePrice, TypeChk,;
						   wpd, cc,comission, mdt, mm)" 
str2 = " VALUES (?pData, ?pEan13, ?pArticul, ?pVat, ?pQuantity, ?pSalePrice, ;
				 ?pTo_pay, ?pPaid_MDL, ?pRec_ref, ?pDiscount, ?pVIP, ?pBranch,;
				 ?Pid_staff, ?pNr_orders, ?pCurency, ?pExch_rate, ?pTo_PayMDL,;
				 ?pid_goods, ?pid_suplier, ?pIsMark,"
str3 = " ?pBasePrice, ?pTypeChk, ?pwpd, ?pcc, ?pcomission, ?pMdt, ?pMm)"
SqlExecString = str1 + str2 + str3

SCAN
	SCATTER MEMVAR
		pData 		= m.Data
		pEan13 		= m.ean13
		particul 	= m.articul  
		pVat 		= m.Vat      
		pquantity 	= m.quantity 
		pSalePrice 	= m.SalePrice
		pTo_pay 	= m.To_pay   
		pPaid_MDL 	= m.Paid_MDL 
		prec_ref 	= m.rec_ref  
		pdiscount 	= m.discount 
		pVIP 		= m.VIP      
		pbranch 	= m.branch   
		pid_staff 	= m.id_staff 
		pnr_orders 	= m.nr_orders 
		pcurency 	= m.curency  
		pexch_rate 	= m.exch_rate 
		pto_PayMDL 	= m.to_PayMDL 
		pid_goods 	= m.id_goods 
		pid_suplier = m.id_suplier 
		pIsMark 	= IIF(m.Mark,1,0)  
		pBasePrice 	= m.BasePrice 
		pTypeChk 	= IIF(m.TypeChk,1,0)  
		pwpd 		= m.wpd      
		pcc 		= IIF(m.cc,1,0)         
		pcomission 	= IIF(m.comission,1,0)   
		pmdt 		= m.mdt      
		pmm 		= IIF(m.mm,1,0)        
		lSucces = SQLEXEC(gnConnHandle, SqlExecString)
		? lSucces
ENDSCAN
= SQLCOMMIT(gnConnHandle)  && Commit changes

= SQLEXEC(gnConnHandle, "SELECT * FROM sales",'SqlSales')

= SQLDISCONNECT(gnConnHandle)

SELECT SqlSales
BROW 
RETURN

Пришлось строку рубить на три куска - фокс ругается, видно ему длина строки не нравиться...
Кто подскажет что не верно... Коннект есть я из этой таблицы могу сделать выборку.... Типы данных тоже вроде верны, но я и так и сяк перепробовал с логическими значениями....
Всем спасибо...
...
Рейтинг: 0 / 0
10.06.2006, 17:26
| Ответить | Цитировать | Написать  
Непонятно.....
    #33785020
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valerii
Участник
ValeriiНарод, вот пытаюсь 27 полей из временного курсора воткнуть в таблицу MSSQL server 2000, все перепробовал, не хочет инсертиться, сцуко...
Вот код
Код: plaintext
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.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
Clear

gnConnHandle =  SQLSTRINGCONNECT("Driver=SQL Server;Server=HOME;Database=BankSia;") 

IF gnConnHandle <= 0
   = MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
   RETURN
ELSE
   = MESSAGEBOX('Connection made', 48, 'SQL Connect Message')
ENDIF



SELECT * FROM SALES INTO CURSOR ToMSSQL
GO TOP

str1 = "INSERT INTO Sales (Data, ean13, articul, Vat, quantity, SalePrice,;
						   To_pay, Paid_MDL, rec_ref, discount, VIP,branch,;
						   id_staff, nr_orders, curency, exch_rate, to_PayMDL,;
						   id_goods, id_suplier, IsMark, BasePrice, TypeChk,;
						   wpd, cc,comission, mdt, mm)" 
str2 = " VALUES (?pData, ?pEan13, ?pArticul, ?pVat, ?pQuantity, ?pSalePrice, ;
				 ?pTo_pay, ?pPaid_MDL, ?pRec_ref, ?pDiscount, ?pVIP, ?pBranch,;
				 ?Pid_staff, ?pNr_orders, ?pCurency, ?pExch_rate, ?pTo_PayMDL,;
				 ?pid_goods, ?pid_suplier, ?pIsMark,"
str3 = " ?pBasePrice, ?pTypeChk, ?pwpd, ?pcc, ?pcomission, ?pMdt, ?pMm)"
SqlExecString = str1 + str2 + str3

SCAN
	SCATTER MEMVAR
		pData 		= m.Data
		pEan13 		= m.ean13
		particul 	= m.articul  
		pVat 		= m.Vat      
		pquantity 	= m.quantity 
		pSalePrice 	= m.SalePrice
		pTo_pay 	= m.To_pay   
		pPaid_MDL 	= m.Paid_MDL 
		prec_ref 	= m.rec_ref  
		pdiscount 	= m.discount 
		pVIP 		= m.VIP      
		pbranch 	= m.branch   
		pid_staff 	= m.id_staff 
		pnr_orders 	= m.nr_orders 
		pcurency 	= m.curency  
		pexch_rate 	= m.exch_rate 
		pto_PayMDL 	= m.to_PayMDL 
		pid_goods 	= m.id_goods 
		pid_suplier = m.id_suplier 
		pIsMark 	= IIF(m.Mark,1,0)  
		pBasePrice 	= m.BasePrice 
		pTypeChk 	= IIF(m.TypeChk,1,0)  
		pwpd 		= m.wpd      
		pcc 		= IIF(m.cc,1,0)         
		pcomission 	= IIF(m.comission,1,0)   
		pmdt 		= m.mdt      
		pmm 		= IIF(m.mm,1,0)        
		lSucces = SQLEXEC(gnConnHandle, SqlExecString)
		? lSucces
ENDSCAN
= SQLCOMMIT(gnConnHandle)  && Commit changes

= SQLEXEC(gnConnHandle, "SELECT * FROM sales",'SqlSales')

= SQLDISCONNECT(gnConnHandle)

SELECT SqlSales
BROW 
RETURN

Пришлось строку рубить на три куска - фокс ругается, видно ему длина строки не нравиться...
Кто подскажет что не верно... Коннект есть я из этой таблицы могу сделать выборку.... Типы данных тоже вроде верны, но я и так и сяк перепробовал с логическими значениями....
Всем спасибо...

Отбой, разобрался... ;-)))
...
Рейтинг: 0 / 0
10.06.2006, 18:02
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Непонятно.....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=251&tid=1591432]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 303ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 209ms
total:  627ms
созд. / загр.: 627ms
x
x
Закрыть


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