Pregunta Mysql al Abrir la misma tabla desde 2 PC
Posted: Fri Jul 08, 2011 5:18 pm
Saludos a todos.
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.
Codigo de Conexion
Codigo para Abrir la tabla
Ruben Dario Gonzalez
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