Visual Basic - validar datos repetidos

Life is soft - evento anual de software empresarial
   
Vista:

validar datos repetidos

Publicado por miguel (1 intervención) el 29/05/2008 18:35:11
como puedo hacer para que no me deje agregar datos que ya existen en una tabla de access, en realidad solo seria 1 dato a comprobar si existe o no, si el dato existe que salga un mensaje diciendo que existe el dato y que no deje guardarlo.

necesito su ayuda.

gracias
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:validar datos repetidos

Publicado por J@vier (10 intervenciones) el 29/05/2008 19:39:03
Tendras que hacer una funcion que antes de gravar db compruebe el dato si te devuelve fase gravas y si es true adviertes al usuario.
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

RE:validar datos repetidos

Publicado por miguel (6 intervenciones) el 29/05/2008 19:48:53
si, tengo muchas ideas de como hacerlo pero lo que quiero saber es algun ejemplo de cogio para saber como lo puedo hacer.

gracias
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

RE:validar datos repetidos

Publicado por J@vier (10 intervenciones) el 29/05/2008 21:10:46
te paso una manera sencilla.

copia el texto siguiente en un archivo y luego renombralo a "Form1.frm"
utiliza la base de datos que acompaña visual "BIBLIO.MDB"

--------------------
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1110
ClientLeft = 60
ClientTop = 450
ClientWidth = 2175
LinkTopic = "Form1"
ScaleHeight = 1110
ScaleWidth = 2175
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Comprueba"
Height = 255
Left = 120
TabIndex = 1
Top = 600
Width = 975
End
Begin VB.TextBox Text1
Height = 405
Left = 120
TabIndex = 0
Top = 120
Width = 1815
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:Archivos de programaMicrosoft Visual StudioVB98BIBLIO.MDB"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Authors"
Top = 165
Width = 1140
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim msg As String
If comprueba(Text1) Then
msg = " No "
Else
msg = " si "
End If

MsgBox "Dato " & msg & "valido"

End Sub
Function comprueba(dato As Long) As Boolean
Data1.RecordSource = "select * from Authors where Au_id = " & dato
Data1.Refresh

If Data1.Recordset.EOF Then
comprueba = False
Else
comprueba = True
End If

End Function

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

RE:validar datos repetidos

Publicado por miguel (6 intervenciones) el 30/05/2008 01:00:14
me merca error me dice que no se pudo encontrar el archivo isam instalable, le doy aceptar, ejecuto el formulario y me marca error me dice:

no coinciden los tipos y me marca el error aqui: If comprueba(Text1) Then
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