no me inserta los registros
Publicado por valente (1 intervención) el 25/11/2009 09:04:40
Hola aclaro que soy nuevo en esto, tengo un problema para copiar registros.
uso vb6 y acces.
lo que quiero hacer es copiar un registro que cumpla con un criterio de una tabla a otra tabla, mi codigo es el siguiente:
ACLARO LAS DOS TABLAS TIENEN LA MISMA ESTRUCTURA.
TENGO UN TEXT CONECTADO A UN CAMPO DE (TABLA1) QUE ME MUESTRA QUE CANTIDAD TENGO EN STOCK, QUIERO HACER QUE SI EL STOCK ES (CERO), ME SALTE UN MENSAJE DICIENDOME SI QUIERO AGREGAR ESTE REGISTRO A (TABLA2), SI LO DOY (YES) QUE ME AGREGUE DICHO REGISTRO EN (TABLA2).
CODIGO:
If Text5.Text = "0" Then
MsgBox "Para: '" & Text11 & "'" & " No hay stock", vbExclamation, "¡EN ESTE MOMENTO NO HAY STOCK!"
m = MsgBox("desea agregar", vbYesNo, "agregar")
If m = vbYes Then
SQL = "Insert Into TABLA2 SELECT * FROM TABLA1 where campo like '*" & 0 & "*'"
End If
End If
bueno agradezco cualquier idea o ayuda gracias saludos.....
uso vb6 y acces.
lo que quiero hacer es copiar un registro que cumpla con un criterio de una tabla a otra tabla, mi codigo es el siguiente:
ACLARO LAS DOS TABLAS TIENEN LA MISMA ESTRUCTURA.
TENGO UN TEXT CONECTADO A UN CAMPO DE (TABLA1) QUE ME MUESTRA QUE CANTIDAD TENGO EN STOCK, QUIERO HACER QUE SI EL STOCK ES (CERO), ME SALTE UN MENSAJE DICIENDOME SI QUIERO AGREGAR ESTE REGISTRO A (TABLA2), SI LO DOY (YES) QUE ME AGREGUE DICHO REGISTRO EN (TABLA2).
CODIGO:
If Text5.Text = "0" Then
MsgBox "Para: '" & Text11 & "'" & " No hay stock", vbExclamation, "¡EN ESTE MOMENTO NO HAY STOCK!"
m = MsgBox("desea agregar", vbYesNo, "agregar")
If m = vbYes Then
SQL = "Insert Into TABLA2 SELECT * FROM TABLA1 where campo like '*" & 0 & "*'"
End If
End If
bueno agradezco cualquier idea o ayuda gracias saludos.....
Valora esta pregunta
0