Visual Basic - no insertar registros existentes

Life is soft - evento anual de software empresarial
   
Vista:

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,,
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

RE:no insertar registros existentes

Publicado por Christian (666 intervenciones) el 28/11/2009 00:45:07
Eso lo solucionas desde el mismo access , ponele indexado (sin duplicado) al campo que no queres que se repita y listo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar