no insertar registros existentes
Publicado por valente (6 intervenciones) el 27/11/2009 10:03:22
Hola agradezco de antemano cualquier idea o ayuda.
tengo un programa en vb6, acces 97, y uso data.
tengo el siguiente 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
SQLtmp = "Insert Into tabla1 SELECT * FROM tabla2 where CAMPO= '0'"
'Db será una base de datos:
Dim Db As Database 'Variable para las Bases de Datos
Set Db = OpenDatabase("nombre de la base.mdb")
On Error Resume Next
Db.Execute SQLtmp, dbFailOnError
If Err Then
MsgBox "Se ha producido un error al ejecutar la orden:" & vbCrLf & SQLtmp
End If
End If
End If
LO QUE HAGO ES QUE SI TEXT5=0, SALE UN MENSAJE DICIENDO QUE NO HAY STOCK Y SI LO QUIERO AGREGAR A TABLA1, SI CLIKEO (SI) ME INSERTA TODOS LOS REGISTROS DE LA TABLA2 DONDE CAMPO=0, HASTA ACA FUNCIONA OK,
LO QUE QUIERO HACER ES QUE SI EL REGISTRO YA EXISTE EN TABLA1, NO ME LO VUELVO A INSERTAR, DE ESTA MANERA CADA VEZ QUE CLIKEO EN (SI) ME VUELVE A CARGAR TODOS LOS REGISTROS DE TABLA 2 DON DE CAMPO=0, EN TABLA1 AUNQUE YA EXISTA..
BUENO AGRADEZCO CUALQUIER AYUDA, YA HACE TIEMPO QUE RENIEGO CONESTO, GRACIAS SALUDOS,,
tengo un programa en vb6, acces 97, y uso data.
tengo el siguiente 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
SQLtmp = "Insert Into tabla1 SELECT * FROM tabla2 where CAMPO= '0'"
'Db será una base de datos:
Dim Db As Database 'Variable para las Bases de Datos
Set Db = OpenDatabase("nombre de la base.mdb")
On Error Resume Next
Db.Execute SQLtmp, dbFailOnError
If Err Then
MsgBox "Se ha producido un error al ejecutar la orden:" & vbCrLf & SQLtmp
End If
End If
End If
LO QUE HAGO ES QUE SI TEXT5=0, SALE UN MENSAJE DICIENDO QUE NO HAY STOCK Y SI LO QUIERO AGREGAR A TABLA1, SI CLIKEO (SI) ME INSERTA TODOS LOS REGISTROS DE LA TABLA2 DONDE CAMPO=0, HASTA ACA FUNCIONA OK,
LO QUE QUIERO HACER ES QUE SI EL REGISTRO YA EXISTE EN TABLA1, NO ME LO VUELVO A INSERTAR, DE ESTA MANERA CADA VEZ QUE CLIKEO EN (SI) ME VUELVE A CARGAR TODOS LOS REGISTROS DE TABLA 2 DON DE CAMPO=0, EN TABLA1 AUNQUE YA EXISTA..
BUENO AGRADEZCO CUALQUIER AYUDA, YA HACE TIEMPO QUE RENIEGO CONESTO, GRACIAS SALUDOS,,
Valora esta pregunta
0
