FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Consulta ADO+MySQL
metaldrummer
Posts: 113
Joined: Wed Jan 10, 2007 08:43 PM

Consulta ADO+MySQL

Posted: Tue Mar 04, 2008 09:45 PM
Hola tengo el siguiente c贸digo:

Code: Select all Collapse
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 Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM

Re: Consulta ADO+MySQL

Posted: Tue Mar 04, 2008 10:46 PM
metaldrummer wrote:Hola tengo el siguiente c贸digo:

Code: Select all Collapse
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 Collapse
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
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
metaldrummer
Posts: 113
Joined: Wed Jan 10, 2007 08:43 PM

Re: Consulta ADO+MySQL

Posted: Wed Mar 05, 2008 08:35 PM
ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente c贸digo:

Code: Select all Collapse
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 Collapse
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
David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl
metaldrummer
Posts: 113
Joined: Wed Jan 10, 2007 08:43 PM

Re: Consulta ADO+MySQL

Posted: Fri Mar 07, 2008 05:33 PM
ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente c贸digo:

Code: Select all Collapse
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 Collapse
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
David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl
metaldrummer
Posts: 113
Joined: Wed Jan 10, 2007 08:43 PM

Re: Consulta ADO+MySQL

Posted: Mon Mar 31, 2008 01:59 PM
metaldrummer wrote:
ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente c贸digo:

Code: Select all Collapse
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 Collapse
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
David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl
miguelmarchuet
Posts: 6
Joined: Fri Oct 21, 2005 10:04 AM

Re; Consulta ADO+MySQL

Posted: 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.

Miguel Angel Marchuet
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM

Consulta ADO+MySQL

Posted: Fri May 30, 2008 01: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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions