Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   como modifico esta consulta. (https://www.clubdelphi.com/foros/showthread.php?t=50423)

guillox 17-11-2007 01:40:02

como modifico esta consulta.
 
Hola, tengo pocos conosimientos sobre sql y actualmente tengo un problema respecto a 2 scrip para correrlos en mi base de datos.

Estos scrip me detectan los caractereres que tienen ciertos codigos en su inv , me marcan el nombre de el caracter y el item que tiene esa parte de los codigos que seria itemSerial.

Código SQL [-]
DECLARE @Acc varchar(10), @Inv BINARY(760), @ItemSerial BINARY(3), @Item BINARY(10), @cnt INTEGER
DECLARE LISTA CURSOR LOCAL FOR
SELECT Name FROM Character
OPEN LISTA
FETCH NEXT FROM LISTA INTO @Acc
WHILE @@FETCH_STATUS = 0
BEGIN
SET @Inv = (SELECT Inventory FROM [Character] WHERE (Name=@Acc))
SET @cnt = 1
WHILE (@cnt <= (LEN(@Inv)/2))
BEGIN
SET @Item = SUBSTRING(@Inv,@cnt,10)
SET @ItemSerial = SUBSTRING(@Item,5,3)

IF (@ItemSerial = 0x000000)
BEGIN
print 'Yep! We got a 0x0 serial!'
print 'CharName: '+@Acc
print 'Item: '; print @Item
print '--------------------------'
END
SET @cnt = @cnt + 10
END
FETCH NEXT FROM LISTA INTO @Acc
END
CLOSE LISTA
DEALLOCATE LISTA

Lo que me gustaria saber es como puedo hacer para que si detecta esta @ItemSerial = 0x000000) me elimine a ese @Item = SUBSTRING(@Inv,@cnt,10

En este otro scrip tambien es similar el caso ya que necesitaria que si encuentra ese codigo elimine todo ese item.

Código SQL [-]
DECLARE @Acc varchar(10), @Inv BINARY(1200), @ItemSerial BINARY(3), @Item BINARY(10), @cnt INTEGER
DECLARE LISTA CURSOR LOCAL FOR
SELECT AccountID FROM warehouse
OPEN LISTA
FETCH NEXT FROM LISTA INTO @Acc
WHILE @@FETCH_STATUS = 0
BEGIN
SET @Inv = (SELECT items FROM [warehouse] WHERE (AccountID=@Acc))
SET @cnt = 1
WHILE (@cnt <= (LEN(@Inv)/2))
BEGIN
SET @Item = SUBSTRING(@Inv,@cnt,10)
SET @ItemSerial = SUBSTRING(@Item,5,3)

IF (@ItemSerial = 0x000000)
BEGIN
print 'Yep! We got a 0x0 serial!'
print 'Account: '+@Acc
print 'Item: '; print @Item
print '--------------------------'
END
SET @cnt = @cnt + 10
END
FETCH NEXT FROM LISTA INTO @Acc
END
CLOSE LISTA
DEALLOCATE LISTA

Se que paresco un deshubicado al pedir tal ayuda pero realmente ignoro como puedo solucionar este problema y la poca ayuda que crean poder brindarme ustedes para mi seria enorme ya que estoy muy confundido.

Desde ya les agradesco.

ContraVeneno 17-11-2007 17:34:53

Código SQL [-]
...
IF (@ItemSerial = 0x000000) BEGIN
 Delete FROM [warehouse] 
 WHERE (item = @Item)
END

...

:confused::confused::confused:


La franja horaria es GMT +2. Ahora son las 05:24:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi