FiveTech Software tech support forums

www.FiveTechSoft.com
http://forums.fivetechsoft.com/

Consulta ADO+MySQL

http://forums.fivetechsoft.com/viewtopic.php?f=6&t=10218

Page 1 of 1

Consulta ADO+MySQL

Posted: Tue Mar 04, 2008 9:45 pm
by metaldrummer
Hola tengo el siguiente código:

Code: Select all

oCon:=toleauto():new("adodb.connection")
oCon:ConnectionString:="Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.221;Port=3306;Database=database;User=user;Password=password;Option=3;"
oCon:ConnectionTimeout:=3600
oCon:Open()
oDatos:=toleAuto():New("adodb.recordset")
oDatos:CursorLocation  := adUseClient
oDatos:LockType := adLockOptimistic
oDatos:CursorType := adOpenDynamic
//oDatos:CursorType := adOpenKeySet
oDatos:Source := cCommand
oDatos:ActiveConnection(oCon)
oDatos:Open()
Si intento para cCommand:
TRUNCATE `LIBCOMP`
funciona PERFECTO.
Ahora si intento para cCommand:
"LIBCOMP" o "SELECT * FROM `LIBCOMP`"
me da el siguiente error:

Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: OPEN

Acepto todas las sugerencias.
Gracias
David Lagos S.
Coquimbo

Re: Consulta ADO+MySQL

Posted: Tue Mar 04, 2008 10:46 pm
by ruben Dario
metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all

oCon:=toleauto():new("adodb.connection")
oCon:ConnectionString:="Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.221;Port=3306;Database=database;User=user;Password=password;Option=3;"
oCon:ConnectionTimeout:=3600
oCon:Open()
oDatos:=toleAuto():New("adodb.recordset")
oDatos:CursorLocation  := adUseClient
oDatos:LockType := adLockOptimistic
oDatos:CursorType := adOpenDynamic
//oDatos:CursorType := adOpenKeySet
oDatos:Source := cCommand
oDatos:ActiveConnection(oCon)
oDatos:Open()
Si intento para cCommand:
TRUNCATE `LIBCOMP`
funciona PERFECTO.
Ahora si intento para cCommand:
"LIBCOMP" o "SELECT * FROM `LIBCOMP`"
me da el siguiente error:

Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: OPEN

Acepto todas las sugerencias.
Gracias
David Lagos S.
Coquimbo
David yo uso esta conexion y me funciona.

Code: Select all

PROCEDURE AbreConex( oConexion,oTipmod) 
Local E, STable,SField ,SField2, SWhere
 STable      := [ktipmod] 
 SField      := [estado] 
 SField2     := [nome] 
 SWhere      := SField+[="PR"]
 Try  //BEGIN SEQUENCE //  Try 
   oConexion:=CreateObject("ADODB.Connection")
   oConexion:Open :=[driver={MySQL ODBC 3.51 Driver};database=]+memvar->SDatabase+;
   [;server=]+memvar->SServer+[;uid=]+memvar->SUserID+[;pwd=]+memvar->SUserPWD+[;option=35] 
 Catch e  //RECOVER USING E // Catch e 
  MsgStop("Operacion: "+E:operation+" - "+"Descripcion..: "+E:Description+chr(10)) 
  Break E
 End //END SEQUENCE  //END TRY  End 
RETURN 

PROCEDURE AbreTabla( oConexion,oTipmod) 
Local E,bus,tbus


 Try //BEGIN SEQUENCE // Try 
  oTipmod:=CreateObject("ADODB.Recordset")   //
  oTipmod:CursorLocation   := adUseClient 
  oTipmod:CursorType       := adOpenDynamic 
  oTipmod:LockType         := adLockOptimistic 
  oTipmod:ActiveConnection := oConexion  //
  oTipmod:Source           := "Select * from ktipmod" 
  oTipmod:Open() 

? STR(oTipmod:RecordCount()) +"  "+STR(oTipmod:Fields:Count()) 

 Catch e //RECOVER USING E //Catch e 
  MsgStop("Operacion: ff "+E:operation+" - "+"Descripcion..*: "+E:Description+chr(10)) 
  Break E
End //END SEQUENCE  //End 

RETURN
Que version de FWH y harbour esta utilizando

Re: Consulta ADO+MySQL

Posted: Wed Mar 05, 2008 8:35 pm
by metaldrummer
ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all

oCon:=toleauto():new("adodb.connection")
oCon:ConnectionString:="Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.221;Port=3306;Database=database;User=user;Password=password;Option=3;"
oCon:ConnectionTimeout:=3600
oCon:Open()
oDatos:=toleAuto():New("adodb.recordset")
oDatos:CursorLocation  := adUseClient
oDatos:LockType := adLockOptimistic
oDatos:CursorType := adOpenDynamic
//oDatos:CursorType := adOpenKeySet
oDatos:Source := cCommand
oDatos:ActiveConnection(oCon)
oDatos:Open()
Si intento para cCommand:
TRUNCATE `LIBCOMP`
funciona PERFECTO.
Ahora si intento para cCommand:
"LIBCOMP" o "SELECT * FROM `LIBCOMP`"
me da el siguiente error:

Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: OPEN

Acepto todas las sugerencias.
Gracias
David Lagos S.
Coquimbo
David yo uso esta conexion y me funciona.

Code: Select all

PROCEDURE AbreConex( oConexion,oTipmod) 
Local E, STable,SField ,SField2, SWhere
 STable      := [ktipmod] 
 SField      := [estado] 
 SField2     := [nome] 
 SWhere      := SField+[="PR"]
 Try  //BEGIN SEQUENCE //  Try 
   oConexion:=CreateObject("ADODB.Connection")
   oConexion:Open :=[driver={MySQL ODBC 3.51 Driver};database=]+memvar->SDatabase+;
   [;server=]+memvar->SServer+[;uid=]+memvar->SUserID+[;pwd=]+memvar->SUserPWD+[;option=35] 
 Catch e  //RECOVER USING E // Catch e 
  MsgStop("Operacion: "+E:operation+" - "+"Descripcion..: "+E:Description+chr(10)) 
  Break E
 End //END SEQUENCE  //END TRY  End 
RETURN 

PROCEDURE AbreTabla( oConexion,oTipmod) 
Local E,bus,tbus


 Try //BEGIN SEQUENCE // Try 
  oTipmod:=CreateObject("ADODB.Recordset")   //
  oTipmod:CursorLocation   := adUseClient 
  oTipmod:CursorType       := adOpenDynamic 
  oTipmod:LockType         := adLockOptimistic 
  oTipmod:ActiveConnection := oConexion  //
  oTipmod:Source           := "Select * from ktipmod" 
  oTipmod:Open() 

? STR(oTipmod:RecordCount()) +"  "+STR(oTipmod:Fields:Count()) 

 Catch e //RECOVER USING E //Catch e 
  MsgStop("Operacion: ff "+E:operation+" - "+"Descripcion..*: "+E:Description+chr(10)) 
  Break E
End //END SEQUENCE  //End 

RETURN
Que version de FWH y harbour esta utilizando
Rubén veo tu ejemplo hoy y te cuento mañana.


Gracias por tu ayuda

Re: Consulta ADO+MySQL

Posted: Fri Mar 07, 2008 5:33 pm
by metaldrummer
ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all

oCon:=toleauto():new("adodb.connection")
oCon:ConnectionString:="Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.221;Port=3306;Database=database;User=user;Password=password;Option=3;"
oCon:ConnectionTimeout:=3600
oCon:Open()
oDatos:=toleAuto():New("adodb.recordset")
oDatos:CursorLocation  := adUseClient
oDatos:LockType := adLockOptimistic
oDatos:CursorType := adOpenDynamic
//oDatos:CursorType := adOpenKeySet
oDatos:Source := cCommand
oDatos:ActiveConnection(oCon)
oDatos:Open()
Si intento para cCommand:
TRUNCATE `LIBCOMP`
funciona PERFECTO.
Ahora si intento para cCommand:
"LIBCOMP" o "SELECT * FROM `LIBCOMP`"
me da el siguiente error:

Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: OPEN

Acepto todas las sugerencias.
Gracias
David Lagos S.
Coquimbo
David yo uso esta conexion y me funciona.

Code: Select all

PROCEDURE AbreConex( oConexion,oTipmod) 
Local E, STable,SField ,SField2, SWhere
 STable      := [ktipmod] 
 SField      := [estado] 
 SField2     := [nome] 
 SWhere      := SField+[="PR"]
 Try  //BEGIN SEQUENCE //  Try 
   oConexion:=CreateObject("ADODB.Connection")
   oConexion:Open :=[driver={MySQL ODBC 3.51 Driver};database=]+memvar->SDatabase+;
   [;server=]+memvar->SServer+[;uid=]+memvar->SUserID+[;pwd=]+memvar->SUserPWD+[;option=35] 
 Catch e  //RECOVER USING E // Catch e 
  MsgStop("Operacion: "+E:operation+" - "+"Descripcion..: "+E:Description+chr(10)) 
  Break E
 End //END SEQUENCE  //END TRY  End 
RETURN 

PROCEDURE AbreTabla( oConexion,oTipmod) 
Local E,bus,tbus


 Try //BEGIN SEQUENCE // Try 
  oTipmod:=CreateObject("ADODB.Recordset")   //
  oTipmod:CursorLocation   := adUseClient 
  oTipmod:CursorType       := adOpenDynamic 
  oTipmod:LockType         := adLockOptimistic 
  oTipmod:ActiveConnection := oConexion  //
  oTipmod:Source           := "Select * from ktipmod" 
  oTipmod:Open() 

? STR(oTipmod:RecordCount()) +"  "+STR(oTipmod:Fields:Count()) 

 Catch e //RECOVER USING E //Catch e 
  MsgStop("Operacion: ff "+E:operation+" - "+"Descripcion..*: "+E:Description+chr(10)) 
  Break E
End //END SEQUENCE  //End 

RETURN
Que version de FWH y harbour esta utilizando
Rubén:
Funcionó OK...al parecer se presenta un problema con toleauto + el odbc de mysql (utilizo la última versión) sobre win vista.

Ahora mi pregunta es la siguiente si es que me puedes ayudar u alguien más:
Cuál es el mejor tipo de datos para manejar números positivos y negativos?

Gracias
David

Re: Consulta ADO+MySQL

Posted: Mon Mar 31, 2008 1:59 pm
by metaldrummer
metaldrummer wrote:
ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all

oCon:=toleauto():new("adodb.connection")
oCon:ConnectionString:="Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.221;Port=3306;Database=database;User=user;Password=password;Option=3;"
oCon:ConnectionTimeout:=3600
oCon:Open()
oDatos:=toleAuto():New("adodb.recordset")
oDatos:CursorLocation  := adUseClient
oDatos:LockType := adLockOptimistic
oDatos:CursorType := adOpenDynamic
//oDatos:CursorType := adOpenKeySet
oDatos:Source := cCommand
oDatos:ActiveConnection(oCon)
oDatos:Open()
Si intento para cCommand:
TRUNCATE `LIBCOMP`
funciona PERFECTO.
Ahora si intento para cCommand:
"LIBCOMP" o "SELECT * FROM `LIBCOMP`"
me da el siguiente error:

Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: OPEN

Acepto todas las sugerencias.
Gracias
David Lagos S.
Coquimbo
David yo uso esta conexion y me funciona.

Code: Select all

PROCEDURE AbreConex( oConexion,oTipmod) 
Local E, STable,SField ,SField2, SWhere
 STable      := [ktipmod] 
 SField      := [estado] 
 SField2     := [nome] 
 SWhere      := SField+[="PR"]
 Try  //BEGIN SEQUENCE //  Try 
   oConexion:=CreateObject("ADODB.Connection")
   oConexion:Open :=[driver={MySQL ODBC 3.51 Driver};database=]+memvar->SDatabase+;
   [;server=]+memvar->SServer+[;uid=]+memvar->SUserID+[;pwd=]+memvar->SUserPWD+[;option=35] 
 Catch e  //RECOVER USING E // Catch e 
  MsgStop("Operacion: "+E:operation+" - "+"Descripcion..: "+E:Description+chr(10)) 
  Break E
 End //END SEQUENCE  //END TRY  End 
RETURN 

PROCEDURE AbreTabla( oConexion,oTipmod) 
Local E,bus,tbus


 Try //BEGIN SEQUENCE // Try 
  oTipmod:=CreateObject("ADODB.Recordset")   //
  oTipmod:CursorLocation   := adUseClient 
  oTipmod:CursorType       := adOpenDynamic 
  oTipmod:LockType         := adLockOptimistic 
  oTipmod:ActiveConnection := oConexion  //
  oTipmod:Source           := "Select * from ktipmod" 
  oTipmod:Open() 

? STR(oTipmod:RecordCount()) +"  "+STR(oTipmod:Fields:Count()) 

 Catch e //RECOVER USING E //Catch e 
  MsgStop("Operacion: ff "+E:operation+" - "+"Descripcion..*: "+E:Description+chr(10)) 
  Break E
End //END SEQUENCE  //End 

RETURN
Que version de FWH y harbour esta utilizando
Rubén:
Funcionó OK...al parecer se presenta un problema con toleauto + el odbc de mysql (utilizo la última versión) sobre win vista.

Ahora mi pregunta es la siguiente si es que me puedes ayudar u alguien más:
Cuál es el mejor tipo de datos para manejar números positivos y negativos?

Gracias
David
Bueno todo ok hasta que.....
al colocar una ip a la parte del server en el string de conexión me presenta el mismo error.
Cambié server=localhost; por server=192.168.0.221 y se cae.
Acepto sugerencias.
Gracias

Re; Consulta ADO+MySQL

Posted: Fri May 30, 2008 11:51 am
by miguelmarchuet
Eso te ocurre por almacenar un valor incorrecto en algún campo.

Corrige el valor y ya no se producirá mas dicho error.

Posted: Fri May 30, 2008 1:24 pm
by Armando
David:

Tal vez los tiros van por aquí:

Sabes que existen dos tipos de IPs, la IP fija y la IP diámica, al conectar el servidor a Internet se asigna una IP dinámica, a menos de que hayas contratado una IP fija, por lo que cada vez que apagas y prendes el servidor la IP será diferente (a eso se refiere con dinámica).

Viendo tu ejemplo me doy cuenta que tienes la IP en forma constante, eso te obliga a conocer la IP que ahora tiene el servidor, cambiar tú código y volver a compilar.

Si ese es el caso, contáctame que hay solución.

Saludos
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited