Code: Select all
cConn := "Server=MYSERVER\TECHNOTEL;Database=monica;Uid=sa;Pwd=Admin2012;";network=dbmssocn;
oConn := FW_OpenAdoConnection( cConn, FALSE )
IF HB_IsNil( oConn )
MsgStop( "Acceso al servidor de datos no fue posible." )
ENDIF
oRS := KRecordSet( oConn, "SELECT * FROM TABLA")
IF oRS <> NIL
xbrowse( oRS )
ENDIF
oRS:Close()
oConn:Close()
Code: Select all
FUNCTION KRecordSet( oConn, cSQL, nCursorLocation, nCursorType, nLockType )
LOCAL oRS, oRST
DEFAULT nCursorLocation := adUseClient, ;
nCursorType := adOpenStatic, ;
nLockType := adLockOptimistic
IF HB_IsObject( oConn )
IF oConn:State == adStateOpen
oRST := TOleAuto():New( "ADODB.RecordSet" )
WITH OBJECT oRST
:ActiveConnection := oConn
:Source := cSQL
:CursorLocation := nCursorLocation
:CursorType := nCursorType
:LockType := nLockType
END
TRY
CursorWait()
oRST:Open()
CursorArrow()
CATCH
CursorArrow()
FW_ShowAdoError( oConn )
oRST := NIL
END
ENDIF
ENDIF
RETURN oRS
Code: Select all
#include "fivewin.ch"
Function Main()
Local cConn, oConn, oRx, FALSE := .F., cConnection
Local oCon := TOleAuto():New( "ADODB.Connection" )
/* oDL = CreateObject( "Datalinks" ):PromptNew()
if ! Empty( oDL )
cConnection = oDL:ConnectionString
endif
MsgInfo( cConnection ) */
cConnString := "Provider=MSDASQL.1;Password=xxxxxxxx;Persist Security Info=True;User ID=sa;Data Source=xxxxxxx;Initial Catalog=XXXX"
* oConn := FW_OpenAdoConnection( cConnection, .t. )
oConn := FW_OpenAdoConnection( cConnString, .f. )
IF HB_IsNil( oConn )
MsgStop( "Acceso al servidor de datos no fue posible." )
Else
MsgInfo( "Acceso al servidor de datos fue concedido." )
cTable := "iw_tprod"
oRs := TOleAuto():New( "ADODB.Recordset" )
try
oRs:Open( "SELECT * FROM iw_tprod" , oConn )
catch oError
MsgInfo( oError:Description )
end
/* oRS := KRecordSet( oConn, "SELECT * FROM iw_tprod")
IF oRS <> NIL
xbrowse( oRS )
oRS:Close()
ENDIF
*/
oConn:Close()
ENDIF
Return ( Nil )
