FiveTech Software tech support forums

Armondo Here is a simple listbox look up program I use .. xPROVIDER := "SQLOLEDB" xSOURCE := "YOURSERVER" xCATALOG := "DATABASENAME" xUSERID := "SQLUSER" xPASSWORD := "PASSWORD" //-- grpslct.prg // // STATIC oDLG,oLBX #INCLUDE "FIVEWIN.CH" //---------------------- ...

... := 3 // lockoportunistic cSQL := "SELECT * FROM MTRPOOL where AGENEID = '"+xAGENEID+"' order by AGENCY,MTRPOOL" TRY oRsMTP:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening MTRPOOL ...

Michel Here is some specific code and listbox for MS Sql server .. note the connection string .. : // public defined in Main.prg: xPROVIDER := "SQLOLEDB" xSOURCE := "MSSQL01" xCATALOG := "PCAS" xUSERID := "pcasuser" xPASSWORD := "pcas" // grpbrow.prg // #INCLUDE "FIVEWIN.CH" STATIC oBROW,oGRP ...

... 3 // local cache oRs:LockType := 3 // lockoportunistic cSQL := "SELECT * FROM utility WHERE progid ='"+xPROGID+"'" TRY oRS:Open(cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening UTILITY ...

... := 3 // local cache oRs:LockType := 3 // lockoportunistic cSQL := "SELECT * FROM USERINFO order by USERID" TRY oRs:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening USERINFO ...

... ) oRs:CursorType := 1 // opendkeyset oRs:CursorLocation := 3 // local cache oRs:LockType := 3 // lockoportunistic TRY oRs:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening CERT ...