Help for update-SQL command

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Help for update-SQL command

Message

11/02/2010 17:30:49

Soykan Ozcelik
Soykansoft
Tekirdag, Turquie

11/02/2010 17:17:42

Naomi Nosonovsky
Wisconsin, États-Unis

Information générale

Forum:

Visual FoxPro

Catégorie:

Base de données, Tables, Vues, Index et syntaxe SQL

Titre:

Re: Help for update-SQL command

Versions des environnements

Visual FoxPro:

VFP 9 SP2

OS:

Windows 7

Database:

Visual FoxPro

Application:

Desktop

Divers

Thread ID:

01448856

Message ID:

01448863

Vues:

>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
>>

Thanks Naomi,
i missed this detail :)

Soykan OZCELIK
http://twitter.com/soykanozcelik
Fox4um.com | The Home Of The Visual FoxPro Experts of Turkey

Répondre

Fil

Voir

Click here to load this message in the networking platform