Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Llamar Funcion MYSQL Desde Gambas(SOLUCIONADO)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Llamar Funcion MYSQL Desde Gambas(SOLUCIONADO) 
 
Buenas gente, la duda es como llamo a una funcion hecha en mysql desde gambas! Ejemplo tengo esto

Public Function CONSECUTIVOBARCO() As String
  
  Dim ResultadoS As String    
  Dim Resultado As Result
  
  ResultadoS = "SELECT FN_GEN_COD_BARCO ()"    
  Try Resultado = MOD.$Con.Exec(ResultadoS)    
  ResultadoS = Resultado!  'Aquí es lo que no se como retornarlo, osea no se que es lo que tengo que poner como parámetro ya que es una función que retorna algo!  
  Return ResultadoS
  

End

Gracias !
 



 
última edición por acero el Martes, 04 Octobre 2011, 20:26; editado 1 vez 
acero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Llamar Funcion MYSQL Desde Gmabas 
 
Hola antes que nada un saludo bueno yo para visualizar los resultados de una consulta.. realizo lo siguiente...
PRIVATE SUB buscaproduc()
  DIM $query AS String
  DIM $rstgobe AS Result
  $query = "SELECT * FROM productos WHERE codi_prod='" & TextBox4.Text & "'"
  TRY $rstgobe = Conexiones.$coNn.Exec($query)
  IF ERROR THEN
    Message.Error(Error.Text)  'manejo un cachador de error por si existe uno para que no se pasme y saber cual es el error
  ELSE
    IF $rstgobe.Available THEN
      TextBox5.Text = $rstgobe!desc_prod     'obtengo el resultado de la siguiente manera
      TextBox6.Text = Format(CInt($rstgobe!unid_prod), "0.000")
      TextBox4.ReadOnly = TRUE
      TextBox7.ReadOnly = FALSE
      TextBox7.SetFocus
    ELSE
      Mensajes.vlorerron
      TextBox4.Text = ""
      TextBox4.SetFocus
    ENDIF
  ENDIF
END


espero te resuelva la duda o te de una idea un saludo desde Mexico...
 



 
RodSanRey - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Llamar Funcion MYSQL Desde Gmabas 
 
Muchas gracias por la rápida respuesta, es que el problema es que digamos no es una consulta si no lo que estoy llamando es una función que hice en MYSQL, la cual me va a devolver un valor, entonces lo que quiero saber es como tomo ese valor pero en gambas ya que no puedo aplicar un Result!parametro porque no es una tabla lo que llamo si no una función!  GRacias

PD: Esto es lo que estoy intentando llamar

DELIMITER $$

DROP FUNCTION IF EXISTS `CECI_BD`.`FN_GEN_COD_BARCO`$$
CREATE DEFINER=`root`@`localhost` FUNCTION `FN_GEN_COD_BARCO`() RETURNS varchar(7) CHARSET latin1
BEGIN

 DECLARE CANT INTEGER DEFAULT 0;
 DECLARE CONSECUTIVO VARCHAR(7);
    
 SET CANT=(SELECT COUNT(NUM_MAT_BAR)+1 from BARCO);
 SET CONSECUTIVO=(CONCAT("BA-",CANT));
    
 RETURN CONSECUTIVO; //ESTO LO QUE ME VA A RETORNAR ES ALGO COMO BA-1 (CONSECUTIVO) ERO NO SE COMO APLICARLO EN gambas

END$$

DELIMITER ;

GRACIAS DE NUEVO!!
 



 
acero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Llamar Funcion MYSQL Desde Gmabas 
 
si tienes razon bueno el detalle estaa en la consulta buieno algo asi seria no soy muy bueno pero se me ocurre algo asi

SELECT funcion() AS resfunc

y ya para obtener el resultado

      TextBox5.Text = $rstgobe!resfun

espero que este si te de una ideo saludos.
 



 
RodSanRey - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Llamar Funcion MYSQL Desde Gmabas 
 
FUCKKKKKKKKKKKKKKKKKKKKKK MEN ERES MI NUEVO HEROE!!!!!!!!!!!!!!!!!!!!!!!!!!!

MUCHAS GRACIAS COLEGA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

SALUDOS!!!!!!

DE NUEVO MUCHAS GRACIAS!!!!!
 



 
acero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Llamar Funcion MYSQL Desde Gmabas 
 
No soy especialista en bases de datos, pero creo que si cambias tu Query añadiendo la clausula AS, podrías usar el alias desde gambas:


Public Function CONSECUTIVOBARCO() As String

Dim ResultadoS As String
Dim Resultado As Result

ResultadoS = "SELECT FN_GEN_COD_BARCO () AS codbarco"
Try Resultado = MOD.$Con.Exec(ResultadoS)
If Resultado.Available Then
    ResultadoS = Resultado!codbarco  ' <---- usamos el alias. tambien se puede escribir: Resultado["codbarco"]
    Return ResultadoS
End If
End


No lo he probado pero debería funcionar.

Saludos

Edito: se me adelantaron a la respuesta!!
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Devolver El Valor De Un Campo De Un Result... fua General 3 Viernes, 25 Junio 2010, 07:57 Ver último mensaje
bies88
No hay nuevos mensajes Existe La Funcion SendKeys En Gambas[SOLUC... aratar79 General 1 Jueves, 22 Agosto 2013, 02:35 Ver último mensaje
aratar79
No hay nuevos mensajes Se Puede Llamar Desde Un Form A Un Menupop... v3ctor General 6 Martes, 03 Diciembre 2013, 09:06 Ver último mensaje
jsbsan
No hay nuevos mensajes Llamar Por Telefono Desde Gambas. hertux General 6 Lunes, 27 Febrero 2017, 06:28 Ver último mensaje
razaAztk
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron