SQL - no me inserta los registros

   
Vista:

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.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder