Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Help for update-SQL command
Message
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01448856
Message ID:
01448860
Vues:
79
This message has been marked as the solution to the initial question of the thread.
Use alias here, not the table name.
Update QF;
	tgiren= CRS_StockBalance.giren,;
	tcikan= CRS_StockBalance.cikan,;
	tmevcut=CRS_StockBalance.kalan;
	From CRS_Stock QF;
	inner Join CRS_StockBalance On QF.skodu==CRS_StockBalance.skodu
>Hi All,
>i've a problem about Update-SQL command ,
>as you'll see below i want to update records from one cursor to another cursor
>
>like
>Crs_StockBalance.giren -> Crs_Stock.tgiren
>Crs_StockBalance.cikan -> Crs_Stock.tcikan
>Crs_StockBalance.kalan -> Crs_Stock.tmevcut
>
>codes working but updating with the same value each records.
>
>any suggestion would be very appreciated
>Thanks
>
>
>
>CreateCursor_CRS_Stock()
>CreateCursor_CRS_StockBalance()
>
>Update CRS_Stock Set ;
>	tgiren= CRS_StockBalance.giren,;
>	tcikan= CRS_StockBalance.cikan,;
>	tmevcut=CRS_StockBalance.kalan;
>	From CRS_Stock QF;
>	inner Join CRS_StockBalance On QF.skodu==CRS_StockBalance.skodu
>
>Select CRS_Stock
>Browse Normal
>
>
>*------------------------------------------------------------------------------
>Procedure CreateCursor_Crs_StockBalance
>	Local lcData, lcTemp
>	lcTemp = Sys(2015)+'.tmp'
>	TEXT TO m.lcData noshow
> "A-0098","GRM 30 W E27 SİPRAL 6400","01","MERKEZ",0,10,-10
>"A-0110","GENERAL 18 W DÜZ AMPUL","01","MERKEZ",0,6,-6
>"A-0464","İMTAŞ 1x40 TMS ARMATÜR","01","MERKEZ",0,12,-12
>"B-0110","NORM BUAT","01","MERKEZ",0,100,-100
>"B-0207","14 LÜK BOY BORU","01","MERKEZ",0,900,-900
>"B-0208","18 LİK BOY BORU","01","MERKEZ",0,100,-100
>"B-0209","26 LIK BOY BORU","01","MERKEZ",0,15,-15
>"B-0210","14 LÜK KANGAL BORU","01","MERKEZ",0,200,-200
>"B-0348","KAİM START BUTUN KONTAĞI","01","MERKEZ",0,1,-1
>"B-0353","ACİL STOP BUTONU","01","MERKEZ",0,1,-1
>"I-0318","ÇAY KAHVE MAKİNASİ","01","MERKEZ",0,2,-2
>"K-0269","SAYPORT 25 A KONTAKTÖR","01","MERKEZ",0,10,-10
>"K-0273","SAYPORT 65 A KONTAKTÖR","01","MERKEZ",0,4,-4
>"K-0672","K.KUŞ  6 NO ÇİVİLİ KROŞE","01","MERKEZ",0,3,-3
>"K-1525","SAYPORT 10 KVAr KONDANSATÖR","01","MERKEZ",0,3,-3
>"K-1527","SAYPORT 15 KVAr KONDANSATÖR","01","MERKEZ",0,4,-4
>"K-1528","SAYPORT 25 KVAr KONDANSATÖR","01","MERKEZ",0,1,-1
>"K-1531","SAYPORT 50 KVAr KONDANSATÖR","01","MERKEZ",0,3,-3
>"O-0003","NA-DE 3001 ANH. MERDİVEN OTOMATİĞİ","01","MERKEZ",0,1,-1
>"O-0007","NA-DE 3004 M. B.LU DÖKÜM KAPI OTOMATİĞİ","01","MERKEZ",0,1,-1
>"O-0217","SAYPORT 1P 6 A W OTOMAT","01","MERKEZ",0,13,-13
>"O-0218","SAYPORT 1P 10 A W OTOMAT","01","MERKEZ",0,179,-179
>"O-0219","SAYPORT 1P 16 A W OTOMAT","01","MERKEZ",0,166,-166
>"O-0227","SAYPORT 3P 10 A C OTOMAT","01","MERKEZ",0,7,-7
>"O-0228","SAYPORT 3P 16 A C OTOMAT","01","MERKEZ",0,4,-4
>"O-0229","SAYPORT 3P 20 A C OTOMAT","01","MERKEZ",0,3,-3
>"O-0230","SAYPORT 3P 25 A C OTOMAT","01","MERKEZ",0,25,-25
>"O-0231","SAYPORT 3P 32 A C OTOMAT","01","MERKEZ",0,7,-7
>"O-0232","SAYPORT 3P 40 A C OTOMAT","01","MERKEZ",0,16,-16
>"O-0234","SAYPORT 3P 63 A C OTOMAT","01","MERKEZ",0,1,-1
>"P-0242","ÇP 304 PANO","01","MERKEZ",0,1,-1
>"R-0057","KRG 6A REAKTİF GÜÇ.KONT.RÖLESİ","01","MERKEZ",0,1,-1
>"R-0130","BOŞ","01","MERKEZ",0,20,-20
>"R-0136","SAYPORT 4P 40/30 A HK RÖLESİ","01","MERKEZ",0,1,-1
>"R-0143","BOŞ","01","MERKEZ",0,1,-1
>"S-0303","3x10(60)A TRİF. ELEKT. SAYAÇ","01","MERKEZ",0,20,-20
>"S-0307","X5 TRİF. DİJ. SAYAÇ KOMBİ","01","MERKEZ",0,1,-1
>"T-0092","SAYPORT 150/5 A.TRAFOSU","01","MERKEZ",0,3,-3
>"T-0093","SAYPORT 200/5 A.TRAFOSU","01","MERKEZ",0,3,-3
>"T-0095","SAYPORT 300/5 A.TRAFOSU","01","MERKEZ",0,7,-7
>"T-0409","3TF 47 TAMİR TAKIMI","01","MERKEZ",0,5,-5
>
>	ENDTEXT
>
>	Strtofile(m.lcData,m.lcTemp)
>
>	Create Cursor Crs_StockBalance ;
>		( ;
>		skodu C(20,0)  Not  Null  ;
>		,SADI C(50,0)  Not  Null  ;
>		,DEPOKODU C(3,0)  Not  Null  ;
>		,DEPOADI C(10,0)  Not  Null  ;
>		,giren N(10,0)  Null  ;
>		,cikan N(10,0)  Null  ;
>		,kalan N(10,0)  Null  ;
>		)
>
>	Append From (m.lcTemp) Type Delimited
>	Erase (m.lcTemp)
>Endproc
>*--------------------------------------
>
>Procedure CreateCursor_CRS_Stock
>	Local lcData, lcTemp
>	lcTemp = Sys(2015)+'.tmp'
>	TEXT TO m.lcData noshow
> "P-0242","ÇP 304 PANO",0,0,0
>"R-0057","KRG 6A REAKTİF GÜÇ.KONT.RÖLESİ",0,0,0
>"A-0110","GENERAL 18 W DÜZ AMPUL",0,0,0
>"B-0353","ACİL STOP BUTONU",0,0,0
>"O-0007","NA-DE 3004 M. B.LU DÖKÜM KAPI OTOMATİĞİ",0,0,0
>"O-0003","NA-DE 3001 ANH. MERDİVEN OTOMATİĞİ",0,0,0
>"A-0098","GRM 30 W E27 SİPRAL 6400",0,0,0
>"S-0303","3x10(60)A TRİF. ELEKT. SAYAÇ",0,0,0
>"S-0307","X5 TRİF. DİJ. SAYAÇ KOMBİ",0,0,0
>"B-0207","14 LÜK BOY BORU",0,0,0
>"B-0208","18 LİK BOY BORU",0,0,0
>"B-0209","26 LIK BOY BORU",0,0,0
>"B-0210","14 LÜK KANGAL BORU",0,0,0
>"B-0110","NORM BUAT",0,0,0
>"T-0092","SAYPORT 150/5 A.TRAFOSU",0,0,0
>"T-0093","SAYPORT 200/5 A.TRAFOSU",0,0,0
>"T-0095","SAYPORT 300/5 A.TRAFOSU",0,0,0
>"K-0672","K.KUŞ  6 NO ÇİVİLİ KROŞE",0,0,0
>"O-0218","SAYPORT 1P 10 A W OTOMAT",0,0,0
>"O-0219","SAYPORT 1P 16 A W OTOMAT",0,0,0
>"O-0227","SAYPORT 3P 10 A C OTOMAT",0,0,0
>"O-0228","SAYPORT 3P 16 A C OTOMAT",0,0,0
>"O-0229","SAYPORT 3P 20 A C OTOMAT",0,0,0
>"O-0230","SAYPORT 3P 25 A C OTOMAT",0,0,0
>"O-0231","SAYPORT 3P 32 A C OTOMAT",0,0,0
>"O-0232","SAYPORT 3P 40 A C OTOMAT",0,0,0
>"O-0234","SAYPORT 3P 63 A C OTOMAT",0,0,0
>"O-0217","SAYPORT 1P 6 A W OTOMAT",0,0,0
>"R-0136","SAYPORT 4P 40/30 A HK RÖLESİ",0,0,0
>"K-0269","SAYPORT 25 A KONTAKTÖR",0,0,0
>"K-1525","SAYPORT 10 KVAr KONDANSATÖR",0,0,0
>"K-1527","SAYPORT 15 KVAr KONDANSATÖR",0,0,0
>"K-1528","SAYPORT 25 KVAr KONDANSATÖR",0,0,0
>"K-1531","SAYPORT 50 KVAr KONDANSATÖR",0,0,0
>"K-0273","SAYPORT 65 A KONTAKTÖR",0,0,0
>"A-0464","İMTAŞ 1x40 TMS ARMATÜR",0,0,0
>"R-0143","BOŞ",0,0,0
>"R-0130","BOŞ",0,0,0
>"B-0348","KAİM START BUTUN KONTAĞI",0,0,0
>"I-0318","ÇAY KAHVE MAKİNASİ",0,0,0
>"T-0409","3TF 47 TAMİR TAKIMI",0,0,0
>
>	ENDTEXT
>
>	Strtofile(m.lcData,m.lcTemp)
>
>	Create Cursor CRS_Stock ;
>		( ;
>		skodu C(20,0)  Not  Null  ;
>		,SADI C(50,0)  Not  Null  ;
>		,tgiren N(10,0)  Not  Null  ;
>		,tcikan N(10,0)  Not  Null  ;
>		,tmevcut N(10,0)  Not  Null  ;
>		)
>
>	Append From (m.lcTemp) Type Delimited
>	Erase (m.lcTemp)
>Endproc
>
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform