FiveTech Software tech support forums

... Here is my sample code establishing connection. oCn := FW_OpenAdoConnection( "MSSQL,"+xSOURCE+","+xDATABASE2+","+xUSERID+","+XPASSWORD, .T. ) if oCn == nil ? "Failed to connect to Server" return nil endif Thank you!

... := 3 // lock opportunistic // Init xCONNECT := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD aImages := Directory( cCft + "*.*" ) FOR nX1=1 TO LEN(aImages) cTemp := aImages[nX1,1] cItem := "" ...

... cTitle := "CDM Web Freight Data Integration" xPROVIDER := "SQLOLEDB" xSOURCE := "x" xDATABASE := "x" xUSERID := "x" xPASSWORD := "x" // Init... SET DATE FORMAT TO 'mm/dd/yyyy' SET EPOCH TO 1980 SET EXCLUSIVE OFF SET DELETED ON SET ...

... BY [DateCreated] DESC" TRY oSqlLoad:Open( cSqlLoad, 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oError MsgInfo("Failed to Connect to the Database" + cEol + cSqlLoad + cEol + oError:Description, Ptitle ...

... BY [DateCreated] DESC" TRY oSqlLoad:Open( cSqlLoad, 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oError MsgInfo("Failed to Connect to the Database" + cEol + cSqlLoad + cEol + oError:Description, Ptitle ...

... := 3 // lock opportunistic // Init... xSQL := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD // Message.. oSay:SetText( "Checking for CBP ACE AES Response Messages . . ." ) Sysrefresh() // USCS... cMask ...

... , ; xPROVIDER := "SQLOLEDB" , ; xSOURCE := "9.9.9.9" , ; xDATABASE := "DB-NAME" , ; xUSERID := "USERID" , ; xPASSWORD := "PASSWORD" , ; cOperations := "<operations@cdmsoft.com>" , ; cPath := 'c:\data\' ...

... using the following string. xPROVIDER := "SQLOLEDB" xDATABASE := "MobileFrame" , ; xSOURCE := "192.168.1.11" xUSERID := "DOMAIN\UserName" xPASSWORD := "Password" xSQL := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User ...

... * FROM SalesOrderHeader" TRY oSql:Open( cSql, 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oError MsgWait("Failed to Connect to the Database") RETURN (.F.) END MsgInfo( oSql:RecordCount ) 2. ...

... cSql := "SELECT * FROM mr" TRY oSql:Open( cSql, 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oError MsgWait("Failed to Connect to the Database") RETURN .F. END MsgWait( LTRIM(STR(oSql:RecordCount,9)) ...

... de busqueda: // ----------------------------------------------------------------------- FUNCTION Buscaparam(xtipo, xvalor, xorden, xvta, xcododes, XUSERID) local olbx, odlg local obt1, obt2, obt3, xrta local xok LOCAL oString LOCAL XBUSCA, OBUSCA LOCAL OFNTARIAL local xorden1, oorden1, xloncc, ...

... := 3 // lockoportunistic TRY oRsProj:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening PROJECT table" ) oDlg:End() RETURN(.F.) END TRY SysReFresh() oDLG:END()

... := 3 // lockoportunistic TRY oRsProj:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening PROJECT table" ) oDlg:End() RETURN(.F.) END TRY

... * FROM USERINFO order by USERID" TRY oRsuser:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening USERINFO table" ) oDlg1:End() RETURN(.F.) END TRY xREAD := 'Y' xWRITE := 'N' ...

... .. I think the tns name is 'efis.world' .. The schema is 'suntrack' .. so my guess will be to use : xPROVIDER := "MSDAORA" xSOURCE := "EFIS.world" xUSERID := "me" xPASSWORD := "mypassword" oRs := TOleAuto():New( "ADODB.Recordset" ) oRs:CursorType := 1 // opendkeyset oRs:CursorLocation := 3 // local ...