Una pregunta un poco simple!
Hola como estas!
¿Me estoy conectando remotamente a MySql con ayuda del CursorAdapter pero solamente me muestra los 100 primeros registros de la tabla que se encuentra en la instrucción select... Me puedes decir como hago para que me muestre toda la cantidad de registros que tenga la tabla?
Te adjunto el código...
*----------------------------------------------------------------------------------------------------*
Public oCA As CursorAdapter
Local oConn As ADODB.Connection
Local oRS As ADODB.Recordset
Local oException As Exception
Local cConnString
cConnString = [Driver={MySQL ODBC 3.51 Driver};Server=***.**.***.***;Database=*****;User=root; Password=*****;]
Try
oConn = Createobject('ADODB.Connection')
oConn.Open(cConnString)
oRS = Createobject("ADODB.Recordset")
oRS.Datasource.CursorLocation = 3
oRS.Datasource.LockType = 3
oRS.ActiveConnection = oConn
oCA=Createobject("CursorAdapter")
oCA.DataSourceType = "ADO"
oCA.Datasource = oRS
oCA.MapBinary = .T.
oCA.MapVarchar = .T.
oCA.Alias = "Tanqueos"
oCA.SelectCmd = "SELECT * FROM logfinger"
If !oCA.CursorFill()
Local laError
Dimension laError[1]
Aerror(laError)
Messagebox(laError[2])
Else
Local laFlds,lcStr,lnFldCount,i
Dimension laFlds[1]
lnFldCount=Afields(laFlds)
lcStr=""
For i = 1 To lnFldCount
lcStr = lcStr + laFlds[m.i,1] + ","
Endfor
oCA.UpdatableFieldList = lcStr
Browse Normal Nowait
Endif
oConn.Close()
Catch To oException
Messagebox(oException.Message)
Endtry
*----------------------------------------------------------------------------------------------------*
¿Me estoy conectando remotamente a MySql con ayuda del CursorAdapter pero solamente me muestra los 100 primeros registros de la tabla que se encuentra en la instrucción select... Me puedes decir como hago para que me muestre toda la cantidad de registros que tenga la tabla?
Te adjunto el código...
*----------------------------------------------------------------------------------------------------*
Public oCA As CursorAdapter
Local oConn As ADODB.Connection
Local oRS As ADODB.Recordset
Local oException As Exception
Local cConnString
cConnString = [Driver={MySQL ODBC 3.51 Driver};Server=***.**.***.***;Database=*****;User=root; Password=*****;]
Try
oConn = Createobject('ADODB.Connection')
oConn.Open(cConnString)
oRS = Createobject("ADODB.Recordset")
oRS.Datasource.CursorLocation = 3
oRS.Datasource.LockType = 3
oRS.ActiveConnection = oConn
oCA=Createobject("CursorAdapter")
oCA.DataSourceType = "ADO"
oCA.Datasource = oRS
oCA.MapBinary = .T.
oCA.MapVarchar = .T.
oCA.Alias = "Tanqueos"
oCA.SelectCmd = "SELECT * FROM logfinger"
If !oCA.CursorFill()
Local laError
Dimension laError[1]
Aerror(laError)
Messagebox(laError[2])
Else
Local laFlds,lcStr,lnFldCount,i
Dimension laFlds[1]
lnFldCount=Afields(laFlds)
lcStr=""
For i = 1 To lnFldCount
lcStr = lcStr + laFlds[m.i,1] + ","
Endfor
oCA.UpdatableFieldList = lcStr
Browse Normal Nowait
Endif
oConn.Close()
Catch To oException
Messagebox(oException.Message)
Endtry
*----------------------------------------------------------------------------------------------------*
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1