Consulta ADO+MySQL

metaldrummer · Post by **metaldrummer** » Tue Mar 04, 2008 9:45 pm

Hola tengo el siguiente código:

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

ruben Dario · Post by **ruben Dario** » Tue Mar 04, 2008 10:46 pm

metaldrummer wrote:Hola tengo el siguiente código:
Code: Select all | Expand
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 | Expand

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

metaldrummer · Post by **metaldrummer** » Wed Mar 05, 2008 8:35 pm

ruben Dario wrote:

metaldrummer wrote:Hola tengo el siguiente código:
Code: Select all | Expand
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 | Expand

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

metaldrummer · Post by **metaldrummer** » Fri Mar 07, 2008 5:33 pm

ruben Dario wrote:

metaldrummer wrote:Hola tengo el siguiente código:
Code: Select all | Expand
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 | Expand

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

metaldrummer · Post by **metaldrummer** » Mon Mar 31, 2008 1:59 pm

metaldrummer wrote:

ruben Dario wrote:

metaldrummer wrote:Hola tengo el siguiente código:
Code: Select all | Expand
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 | Expand

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

miguelmarchuet · Post by **miguelmarchuet** » Fri May 30, 2008 11:51 am

Eso te ocurre por almacenar un valor incorrecto en algún campo.

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

Armando · Post by **Armando** » Fri May 30, 2008 1:24 pm

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

FiveTech Software tech support forums

Consulta ADO+MySQL

Consulta ADO+MySQL

Re: Consulta ADO+MySQL

Re: Consulta ADO+MySQL

Re: Consulta ADO+MySQL

Re: Consulta ADO+MySQL

Re; Consulta ADO+MySQL