Foros del web, para los que viven de bits

'visual basic 6.0 con mysql
'--------------------------

'----------------------------------------------------------------------------------------

USANDO EL VISUAL BASIC 6 CON EL MYSQL 5.0
el problema es el siguiente:

COMO PUEDO ENVIAR UN PARAMETRO NULO AL PARAMETRO DE MYSQL
EN ESPECIAL POR LA FECHA, TEXTO Y TODOS LOS TIPOS !!
INTENTE CON DBNULL , NULL , EMPTY , ..............

E INTENTADO DE TODO PERO NADA QUE VER........ POR FAVOR AYUDENME ME ESTA TOMANDO MUCHO
TIEMPO EN RESOLVERLO......


ESTE ES PARTE DEL CODIGO:



FORMULARIO CON EL
boton aceptar PARA PROCESAR EL INGRESO DE DATOS
POR EJEMPLO DE ARTICULOS, SE DARA EL CASO QUE TENGAN QUE EXISTIR CAMPOS NULOS
EN ESA "TABLA"

PRIVATE SUB CMDACEPTAR_CLICK()
--------------------------------------------------------------------------------------------------------------
'nombre de procedimiento y cadena de parametros

CADENA = "'" & TXTCODIGO.Text & "','" & TXTDESCRIPCION.Text & "'," & dbnull & "," & x.value
Call RunProcedure("AGREGAR_ARTICULO", CADENA)

'EL EJEMPLO DE CADENA A REGISTRAR MEDIANTE EL PROCEDURE SERIA: "'A0001','PENTIUM IV 3.2 GHZ",NULL,NULL)
'PERO ESTO FALLA AL QUERER GUARDAR

'-------------------------------------------------------------------------------------------------
END SUB




Sub RunProcedure(ByVal procedimiento As String, ByVal cadenadeparametros As String)

'Declara Variables
Dim Comando As New ADODB.Command
Dim Conjunto As New ADODB.Recordset
Dim CadenaSQL As String
'Termina declara Variables

'solo si la conexion a la bd es satisfactoria ...
If CONECTAR_DB("pymes", "localhost", "", "root", "mysql") = True Then

CadenaSQL = "CALL " & procedimiento & " (" & cadenadeparametros & ")"

Set Comando = New ADODB.Command
Comando.ActiveConnection = conn
Comando.CommandType = adCmdText
Comando.CommandText = CadenaSQL

'Aqui ejecutamos el SP y obtenemos los datos
Set Conjunto = Comando.Execute

'Conjunto.Close
Set Comando = Nothing
conn.Close
Set conn = Nothing

End If

end sub


'-------------------------------------------------------------------------------------------
'en mySQL tengo el siguiente procedimiento almacenado

DELIMITER $$

DROP PROCEDURE IF EXISTS `pymes`.`AGREGAR_ARTICULO` $$
CREATE DEFINER=`root`@`localhost` PROCEDURE `AGREGAR_ARTICULO`(
IN CODART VARCHAR(12),
IN NOMART VARCHAR(45),
IN CODFAM VARCHAR (12),
IN FECHAALTA DATE
)
BEGIN

INSERT INTO ARTICULOS
(CODART,NOMART,CODFAM,FECHAALTA)
VALUES
(CODART,NOMART,CODFAM,
FECHAALTA);

END $$

DELIMITER ;


GRACIAS POR SU ATENCION !!!

CADENA = "'" & TXTCODIGO.Text & "','" & TXTDESCRIPCION.Text & "',''," & x.value
Call RunProcedure("AGREGAR_ARTICULO", CADENA)

mandando únicamente comillas te podría ayudar..

nos vemos...