FiveTech Software tech support forums

... oError
MsgStop( "No se ha podido crear el OBJETO"+ oError:Description )
RETURN .F.
END

oRSet:CursorLocation:=adUseClient;oRSet:LockType:=adLockReadOnly;oRSet:CursorType:=adOpenForwardOnly;oRSet:ActiveConnection( oConnection )

sSQLQuery := "SELECT * FROM CONSULMARKET"
TRY
oRSet:Open ...

... not useful for us)
3. adUseClient : This is the only choice we have

LockType:
1. adLockUnspecified (not to be used for new recordsets)
2. adLockReadOnly : This is not what you want when you want to make changes. (Note: This is useful when you read data not to be modified)
3. adLockPessimistic ...

... not useful for us)
3. adUseClient : This is the only choice we have

LockType:
1. adLockUnspecified (not to be used for new recordsets)
2. adLockReadOnly : This is not what you want when you want to make changes. (Note: This is useful when you read data not to be modified)
3. adLockPessimistic ...

... record by record and then copy into your own memory, I suggest the following way:

Open serverside recordset with adOpenForwardOnly and adLockReadOnly. Keep reading the recordset as and when you need and copy to your memory ( array or whatever you were using with ODBC ). This is the fastest ...

... para buscar datos o generar informes. Las incorporaciones, cambios o eliminaciones que hacen otros usuarios no son visibles.
Tipo de bloqueo: adLockReadOnly, Predeterminado. Sólo lectura- no puede modificar los datos
AdLockPessimistic, Bloqueo pesimista, registro a registro: el provedor hace lo ...

... cSQL:="SELECT COUNT(*) as num FROM tables WHERE code='"+alltrim(cCode)+"'"
oRs:Open( cSQL, "Provider=sqloledb;Data Source="+alltrim(instancia)+";Initial Catalog="+alltrim(bbdd)+";User Id=user;Password=***;", adOpenForwardOnly, adLockReadOnly )
nNum:=oRs:Fields("num"):Value
oRs:Close()

Un Saludo.

HO FATTO:

#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3

#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
local cDsn := "cDsn"
Local cName := "cName"
Local cPass := "cPass"
LOCAL oRs ...

... CH

// Cursor Type
#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3

// Lock Types
#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4

// Field Types
#define adEmpty 0
#define adTinyInt 16 ...

... all you can see are the records that matched your search at the point in time when the query was executed

( second parameter )

(1) adlockReadOnly
(2) adlockPessimistic
(3) adlockOptomistic
(4) adlockBatchOptomistic

How to Open a recordset .. this example is for MS Access .mdb

oRs ...

... visualizarlo con un browse:



#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3

#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
#define adUseServer 2
#define adUseClient 3 ...

... CreateObject(C_VFPCOMCLASS)
oRecordSet = CreateObject('ADODB.RECORDSET')
oRecordSet.CursorType = 3 && adOpenStatic
oRecordSet.LockType = 1 && adLockReadOnly
oRecordSet.Open('SELECT * FROM AUTHORS', + ;
'Provider=sqloledb;Server=MYSQL1;' + ;
'Initial Catalog= pubs;UId=sa;PWD=; ')
oEvents ...

// My First MySQL Program

#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3

#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4



FUNCTION Main()
LOCAL cQuery := "SELECT * FROM MyTable ...

... oDp:cIp+"; Port=3306; Database="+oDp:cDsnData+"; Uid="+oDp:cLogin+"; Pwd="+oDp:cPass+";"

oRs:Open( cSql ,;
cCon ,;
adOpenForwardOnly, adLockReadOnly )

oRs:Save( cFileXml , adPersistXML )

oRs:Close()

IF lOpen
ShellExecute( 0, "open", cFileXml)
ENDIF

Juan,

y si fuera por ejemplo un ...

... Driver={MySQL ODBC 3.51 Driver}; Server="+oDp:cIp+"; Port=3306; Database="+oDp:cDsnData+"; Uid="+oDp:cLogin+"; Pwd="+oDp:cPass+";"

oRs:Open( cSql ,;
cCon ,;
adOpenForwardOnly, adLockReadOnly )

oRs:Save( cFileXml , adPersistXML )

oRs:Close()

IF lOpen
ShellExecute( 0, "open", cFileXml)
ENDIF

... define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3


//---- LockTypeEnum Values ----
#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4


//---- CursorLocationEnum Values ----
#define ...