topic-39680

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Select...SQL SOLUCIONADO
Posted: Sat Nov 28, 2020 01:55 PM

Hi.
I can do a Updatesql and Delete, but no a Select.

cPass := "drslv"

csql := oCon:SELECT(" 'codigo' , 'pass' FROM 'usuario' WHERE 'codigo' = 'cpass' ")
ocon:Execute(csql)

MsgInfo(oCon[corto])
MsgInfo(oCon[pasar])

Thank you.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: Select...SQL
Posted: Sat Nov 28, 2020 04:48 PM

Dario

Several ways you can do this .. both use RecordSets .. Rao has created a set of ADO wrappers in \source\function\AdoFuncs.prg ..

or

Code (fw): Select all Collapse

oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType     := 1        // opendkeyset
oRs:CursorLocation := 3        // local cache
oRs:LockType       := 3        // lockoportunistic

cSQL := "SELECT  [codigo] , [pass] FROM [usuario] WHERE [codigo] = 'cpass' "

TRY
   oRs:Open(cSQL,oCon )
CATCH oErr
   MsgInfo( "Error in Opening Usuario table" )
   RETURN(.F.)
END TRY

xbrowse( oRs )

oRs:Close()

Rick Lipkin

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Select...SQL
Posted: Sat Nov 28, 2020 06:18 PM

Rick, thans a lot, but I'm not use recorset.

Only tray to do a Select with WHERE to get the information of this "campos"

Thank you very much.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Select...SQL SOLUCIONADO
Posted: Sun Nov 29, 2020 04:31 PM

Gracias Marc.

Asi quedó.
FWCONNECT oCon HOST 'localhost' USER 'root' PASSWORD '' DB dbases

oRs := oCon:RowSet( "select * from usuario where idusu = &1", { cUsuario } )
? oRs:FieldGet(4)

Saludos.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

FiveTech Support Forums

Continue the discussion