FiveTech Software tech support forums

... 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!

... 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 := "" oSay:SetText( LTRIM( ...

... 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 DECIMALS TO 2 // Unicode ...

... 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 ) RETURN .F. END ...

... 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 ) RETURN .F. END ...

... 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\' , ; lAds := .F. , ; cRevised ...

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

... accDb is in the same folder ... xPROVIDER := "Microsoft.Jet.OLEDB.4.0" xSOURCE := cLocation+"\Groom.mdb" // legacy ms access xPASSWORD := "xxxxxxxxx" xSTRING := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Jet OLEDB:Database Password='+xPASSWORD Rick Lipkin

if I used function
oCon := FW_OpenAdoConnection( xSOURCE + "," + xPASSWORD)

the database opened good, but the function FW_OpenRecordSet can't open the table

cSQL:="select idklienta, nazwa, adres, nip from Klienci"
oRes := FW_OpenRecordSet( oCon, cSQL )

best regards
kajot

Please use:
oCon := FW_OpenAdoConnection( { xSOURCE, xPASSWORD } )

or

oCon := FW_OpenAdoConnection( xSOURCE + "," + xPASSWORD)

thanks for answer but if I use cPath := cFilePath( ExeName() ) xSOURCE := cPATH+"waga.mdb" xPASSWORD := "123456" oCon := FW_OpenAdoConnection( xSOURCE,xPASSWORD) cSQL:="select idklienta, nazwa, adres, nip from Klienci" oRes := FW_OpenRecordSet( ...

... 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. Can I use same oSql ...

... * 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)) ) oLbx:Disable() ...

... 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()