Tengo un problema, cuando ejecuta la aplicacion unico usurio trabaja bien, cuando tengo mas de un usuario me da un error.
Apenas me estoy iniciando con Mysql , no se si estoy equivocado , la conexion tiene que ser compartida o al abrir la tabla, alquien tiene un ejemplo.
Se problema de la conexion , es de configuracion de Mysql
Segun la prueba que hice cuando ejecuto el programa abro 15 tablas cuando se ejecuta desde 2 estaciones me genera el error. Si lo ejecuta uno solo no hay problema, hice una prueba y solo abro 3 tablas y si funciona. Que puede ser.
Este es el error.
- Code: Select all Expand view
Application
===========
Path and name: P:\plawind\plastwin.Exe (32 bits)
Size: 1,632,256 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08-07-2011, 12:13:36
Error description: Error ADODB.Recordset/6 DISP_E_UNKNOWNNAME: OPEN
Args:
[ 1] = C Select * from kgrupo
[ 2] = C driver={MySQL ODBC 5.1 Driver};database=basedatm;server=192.168.16.2;uid=root;pwd=colomp1234;Port=3306;option=35
[ 3] = N 1
[ 4] = N 3
Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:OPEN(0)
Called from: K:\PROY_H~1\PRG\adoxb.prg => ADOUSE(229)
Called from: K:\PROY_H~1\PRG\pxpmenu.prg => MAIN(324)
System
======
CPU type: Intel(R) Pentium(R) 4 CPU 2.80GHz 2800 Mhz
Hardware memory: 2040 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
Windows version: 5.1, Build 2600 Service Pack 3
Windows total applications running: 0
Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:OPEN
Param 1: C "Select * from kgrupo"
Param 2: C "driver={MySQL ODBC 5.1 Driver};database=basedatm;server=192.168.16.2;uid=root;pwd=colomp1234;Port=3306;option=35"
Param 3: N 1
Param 4: N 3
Local 1: U
Local 2: C "ADODB.Recordset"
ADOUSE
Param 1: C "kgrupo"
Param 2: U
Local 1: U
Local 2: N 3
Local 3: N 3
Local 4: N 2
MAIN
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: O Class: TCURSOR
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: U
Local 14: U
Local 15: U
Local 16: C "CATALO\"
Local 17: C "DATNOM\"
Local 18: C "DATCAR\"
Local 19: C "DATPED\"
Local 20: C "DATCONT\"
Local 21: C "DATTESO\"
Local 22: C "DATCXPA\"
Local 23: C "DATINVE\"
Local 24: C "DATCOMP\"
Local 25: C "DATSALU\"
Local 26: C "PLARPV\"
Local 27: C "DATCOTI\"
Local 28: C ".\bitmaps\"
Local 29: C "C:\TRAXLS\"
Local 30: C "FOTOOPE\"
Local 31: C "FOTOPRO\"
Local 32: U
Local 33: C "FOTONOM\"
Local 34: U
Local 35: N 200
Local 36: N 600
Local 37: U
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
DataBases in use
================
1: => B_PARSIST RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 1 .F. .F.
Indexes in use TagName
Relations in use
Classes in use:
===============
1 ERROR
2 HASHENTRY
3 HBCLASS
4 HBOBJECT
5 HBDEBUGGER
6 HBDBMENU
7 HBDBMENUITEM
8 HBDBWINDOW
9 GET
10 HBGETLIST
11 HBDBBROWSER
12 HBDBCOLUMN
13 TCALC
14 TCURSOR
15 TWINDOW
16 TDIALOG
17 TBRUSH
18 TCONTROL
19 TBITMAP
20 TOLEAUTO
21 TREG32
Memory Analysis
===============
2304 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
Codigo de Conexion
- Code: Select all Expand view
oADOConection[nConnection] := TOLEAUTO():New("ADODB.connection")
oADOStream := TOLEAUTO():New("ADODB.Stream") // oADOErrDescription := TOLEAUTO():New("ADODB.Err")
oADOIndex := TOLEAUTO():New("ADOX.Index")
oADOCatalog := TOLEAUTO():New("ADOX.Catalog")
oADOConection[nConnection]:CommandTimeOut := 200
oADOConection[nConnection]:ConnectionTimeOut := 10
oADOConection[nConnection]:CursorLocation := adUseClient
oADOConection[nConnection]:Mode := adModeShareDenyNone // adModeRead 1, adModeWrite 2, adModeReadWrite 3
oADOConection[nConnection]:Open( StrConnection )
oADOoSql := TOLEAUTO():New("ADODB.command")
oADOoSql:ActiveConnection(oADOConection[nConnection])
Codigo para Abrir la tabla
- Code: Select all Expand view
oRecordSet[nRecordSet]:CacheSize := 50
oRecordSet[nRecordSet]:CursorLocation := adUseClient
if lShared = .t.
oRecordSet[nRecordSet]:CursorType := adOpenDynamic
oRecordSet[nRecordSet]:LockType := adLockOptimistic
else
oRecordSet[nRecordSet]:CursorType := adOpenStatic
oRecordSet[nRecordSet]:LockType := adLockPessimistic
endif
oRecordSet[nRecordSet]:Open( "Select * from " + cDatabase, StrConnection, iif(lShared=.t.,3,1), 3 )
oRecordSet[nRecordSet]:CacheSize := 50
oRecordSet[nRecordSet]:PageSize := 50 // nuevo
Ruben Dario Gonzalez