FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Consulta ADO+MySQL

Post a reply

Consulta ADO+MySQL

Postby metaldrummer » Tue Mar 04, 2008 9:45 pm

Hola tengo el siguiente código:

Code: Select all  Expand view  RUN
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
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile
Top

Re: Consulta ADO+MySQL

Postby ruben Dario » Tue Mar 04, 2008 10:46 pm

metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all  Expand view  RUN
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 view  RUN
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
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top

Re: Consulta ADO+MySQL

Postby metaldrummer » Wed Mar 05, 2008 8:35 pm

ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all  Expand view  RUN
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 view  RUN
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
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile
Top

Re: Consulta ADO+MySQL

Postby metaldrummer » Fri Mar 07, 2008 5:33 pm

ruben Dario wrote:
metaldrummer wrote:Hola tengo el siguiente código:

Code: Select all  Expand view  RUN
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 view  RUN
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
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile
Top

Re: Consulta ADO+MySQL

Postby 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 view  RUN
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 view  RUN
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
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile
Top

Re; Consulta ADO+MySQL

Postby 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.
Miguel Angel Marchuet
miguelmarchuet
 
Posts: 6
Joined: Fri Oct 21, 2005 10:04 am
Location: Sabadell
Top

Postby 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
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
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 39 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group