FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour mariadb
Posts: 37
Joined: Tue May 12, 2009 08:45 PM
mariadb
Posted: Sun May 16, 2021 04:11 PM

Buen dia...
Una consulta como puedo eliminar un registro pero que cumpla la condicion
bcodi es en nombre de un campo de la tabla cont0500

oRs := oCn:RowSet( "cont0500" ) // "lecturas" es una tabla de cDatabasename
oRs:GoTop()
Whil !oRs:Eof()
If Subs(oRs:bcodi,1,1)="1"
oRs:Delete();oRs:Save()
Endi
oRs:Skip(1)
End
XBROWSER oRs FASTEDIT

Posts: 37
Joined: Tue May 12, 2009 08:45 PM
Re: mariadb
Posted: Wed May 19, 2021 08:16 PM

Hola nadie sabe como eliminar un registro?
en mariadb

Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: mariadb
Posted: Thu May 20, 2021 12:09 AM

Hola te recomiendo que uses codigo nativo de SQL.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: mariadb
Posted: Thu May 20, 2021 12:12 AM

/ oRs := oCn:RowSet( "cont0500" ) // "lecturas" es una tabla de cDatabasename
oRs:GoTop()
Whil !oRs:Eof()
If Subs(oRs:bcodi,1,1)="1"
oRs:Delete();oRs:Save()
Endi
oRs:Skip(1)
/

cQry := "DELETE FROM cont0500" + CLRF
cQry += "WHERE bcodi=" + ClipValue2SQL( "1" )
oCn:Execute( cQry )

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: mariadb
Posted: Thu May 20, 2021 12:15 AM

cQry := "DELETE FROM cont0500" + CLRF
cQry += "WHERE SUBSTRING(bcodi,1,1)=" + ClipValue2SQL( "1" )
oCn:Execute( cQry )

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: mariadb
Posted: Thu May 20, 2021 01:25 PM
Dioni wrote:Buen dia...
Una consulta como puedo eliminar un registro pero que cumpla la condicion
bcodi es en nombre de un campo de la tabla cont0500

oRs := oCn:RowSet( "cont0500" ) // "lecturas" es una tabla de cDatabasename
oRs:GoTop()
Whil !oRs:Eof()
If Subs(oRs:bcodi,1,1)="1"
oRs:Delete();oRs:Save()
Endi
oRs:Skip(1)
End
XBROWSER oRs FASTEDIT


Code (fw): Select all Collapse
oCn:Execute( "DELETE FROM `cont0500` WHERE `bcodi` LIKE '1%'" )
oRs := oCn:RowSet( "cont0500" )
XBROWSER oRs FASTEDIT
Regards



G. N. Rao.

Hyderabad, India
Posts: 37
Joined: Tue May 12, 2009 08:45 PM
Re: mariadb
Posted: Sat May 22, 2021 03:00 AM

Excelente amigos Gracias por la ayuda Funciono

si busco, y quiero eliminar todos los registros que cumplan un acondision
bcodi:='102125225212252'

If Subs(oRs:bcodi,4,2)="1" asi se hace en archivos dbf's

y en mariadb seria asi ?
oCn:Execute( "DELETE FROM cont0500 WHERE bcodi LIKE '12%'" )

como le digo que subs(bcodi,4,2)='12'

soy nuevo en mariadb gracias

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: mariadb
Posted: Sat May 22, 2021 03:39 AM

"WHERE bcodi LIKE '12%'" is same as "SUBSTR( bcodi, 1, 2 ) = '12'"
"WHERE bcode LIKE '___12%'" is same as "SUBSTR( bcodi, 4, 2 ) = '12'"

LIKE is case insensitive

The percentage ( % ) wildcard matches any string of zero or more characters.
The underscore ( _ ) wildcard matches any single character.

Regards



G. N. Rao.

Hyderabad, India

Continue the discussion