Escribir registros en la base de datos y validar

[elvaleehdj]

Hola gente, como estan?

Estoy recien empezando en el mundo de Vb 6 y queria saber como puedo hacer para que cuando escriba en la base de datos acces (2007), antes compruebe si existe algun registro con el mismo nombre..

Acá dejo mi codigo..

Código:

Option Explicit

Private Sub Command1_Click()
Set Data1 = New ADODB.Connection
    With Data1
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source = " & App.Path & "\agenda.accdb"
        .Open
    End With
    
'-----------------------------------------------------------------------------------------------------------------------------

If nombreagr.Text = "" Then MsgBox "Ingrese usuario", vbInformation, "ERROR": nombreagr.SetFocus: Exit Sub
If passagr.Text = "" Then MsgBox "Ingrese la contraseña", vbInformation, "ERROR": passagr.SetFocus: Exit Sub

'-----------------------------------------------------------------------------------------------------------------------------

Data1.Execute "Insert into Usuarios(Id, Pass) Values('" & nombreagr.Text & "', '" & passagr.Text & "')"

End If
End Sub

[KenMasters]

Pues, para darte una idea, primero realizas una consulta que revise si el nombreagr.text ya se encuentra en la DB, algo asi


Primero declara en laparte superior de la ventana, arriba de todos los sub's lo siguiente

Código vb:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
dim rs2 as new adodb.recordset
 

Luego en el evento donde quieras puede ser en un command va lo siguiente

Código vb:

Private Sub Command2_Click()
Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source = " & App.Path & "\agenda.accdb"
        .Open
    End With
 
 
Set rs = New Recordset
rs.Open "select id from usuarios where id=" & nombreagr.text & "", cn, adOpenDynamic, adLockOptimistic
 If rs.RecordCount <> 0 Then
  ' aqui va lo que quieres que haga si es que existe el registro
  msgbox "el registro ya existe por favor intente con otro"
  end
 else
  ' aqui va el codigo para guardar en la DB osea seria otro rs2, en donde haces el insert.
 Set rs2 = New Recordset
 rs2.Open "Insert.... consulta de insert", cn, adOpenDynamic, adLockOptimistic
 end if
 
End Sub