Salvare un nome in un database evitando di duplicarlo

[axsw]

Ciao a tutti ho un programmino che salva dei nomi in un database access premetto che uso ADO e VB 6
(Esempio) se l'utente salva un Nome tipo "Mario Rossi" ma dentro il dtabase Quel nome esiste già io dovrei intercettarlo e fargli cambiare nome
Posto il codice che uso per salvare
[PHP]Private Sub cmdSave_Click()
On Error Resume Next
Controllocaselle
If ControlloCaselleX = False Then
Exit Sub
End If
Rs.AddNew
Rs("nome") = txtNome.Text
End Sub[PHP]

[axsw]

Questa è la prima volta che uso il forum dopo il restyling ed ho sbagliato
Chiedo scusa intanto ringrazio tutti coloro che vorranno aiutarmi

[LMondi]

Ciao axsw,
così controlli se nome e cognome, e ecc. .. , sono presenti nel DB:

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        RSTctr.Source = "SELECT Nome, Cognome, NomeFile FROM TblAnagraficaPROF WHERE Nome='" & FrmAnagProf.TxtPr1.Text & "' And Cognome='" & FrmAnagProf.TxtPr2.Text & "' And  NomeFile= '" & NomeNF & "'"
        RSTctr.Open , Cns1
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If RSTctr.EOF = False And RSTctr.BOF = False Then
            MsgBox "Il professionista: " & FrmAnagProf.TxtPr1.Text & " " & FrmAnagProf.TxtPr2.Text & " che ha redatto il ....... " & NomeNF & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If

[axsw]

Ciao e grazie L.Mondi ho provato e modificato il codice che mi hai mandato siccome io ho solo una casella ti testo da controllare
ma non mi riconosce il file NomeFile= '" & NomeNF & "'"
questo è il mio codice

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        RSTctr.Source = "SELECT Nome, NomeFile FROM TblClienti WHERE Nome='" & FrmMain.txtnome.Text & "' And  NomeFile= '" & nome & "'"
        RSTctr.Open , Cns1
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If RSTctr.EOF = False And RSTctr.BOF = False Then
            MsgBox "Il professionista: " & FrmMain.txtnome.Text & " " & FrmMain.txtnome.Text & NomeNF & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If

Ciao e grazie

[LMondi]

Prova così:

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        Rs.Source = "SELECT nome FROM TblAnagraficaPROF WHERE nome='" & TuoFrm.txtNome.Text & "'"
        Rs.Open , Cns1   '(Cns1 nome della connessione)
        
    ' Il Professionista è presente nel DB, esce dalla routine:
        If Rs.EOF = False And Rs.BOF = False Then
            MsgBox "Il professionista: " & TuoFrm.txtNome.Text & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
            Exit Sub
        End If

[axsw]

L.Mondi non funge cmq quando esguo la procedura la connessione è già aperta
eccoti il codice forse devi spiegarmi cos'è "RSTctr "

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        RSTctr.Source = "SELECT Nome, NomeFile FROM Clienti WHERE Nome='" & FrmMain.txtnome.Text & "'"
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If RSTctr.EOF = False And RSTctr.BOF = False Then
            MsgBox "Il professionista: " & FrmMain.txtnome.Text & " " & FrmMain.txtnome.Text & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If

Comunque grazie

[LMondi]

Non è sufficiente dire non funge.
Che errore ti dà?
RSTctr è il nome dichiarato del RecordSet, che mi sembra tu chiami Rs .
Ti aggiungo anche le dichiarazioni:

Dim Cns1 As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    
    'Esegue la connessione con il DataBase TblAnagraficaPROF:
        With Cns1
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
        End With
    
    ' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        Rs.Source = "SELECT nome FROM TblAnagraficaPROF WHERE nome='" & TuoFrm.txtNome.Text & "'"
        Rs.Open , Cns1
        
    ' Il Professionista è presente nel DB, esce dalla routine:
        If Rs.EOF = False And Rs.BOF = False Then
            MsgBox "Il professionista: " & TuoFrm.txtNome.Text & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
            Exit Sub
        End If

[LMondi]

A ben guardare mi sembra che ci sia una duplicazione (in rosso):
"SELECT Nome, NomeFile FROM Clienti WHERE Nome='" & FrmMain.txtnome.Text & "'"

[axsw]

Erore= Errore di compilazione Variabile non definita
Io la connessione la apro così:
In un Modulo

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source=" & App.Path & "\Fatture.mdb"
                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub

Poi nell'vento load del Form

Private Sub Form_Load()
   Call connetti
    Rs.Open "SELECT * FROM Clienti"

Infine la procedura Salva

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
 --errore-->  RSTctr .Source = "SELECT Nome, NomeFile FROM Clienti WHERE Nome='" & FrmMain.txtnome.Text & "'"
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If RSTctr.EOF = False And RSTctr.BOF = False Then
            MsgBox "Il professionista: " & FrmMain.txtnome.Text & " " & FrmMain.txtnome.Text & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If

Ciao e grazie per la tua pazienza

[LMondi]

Scusa ma non leggi quello che scrivo.

RSTctr è il nome dichiarato del RecordSet, che mi sembra tu chiami Rs

Pertanto ti dà variabile non definita. Infatti tu dichiari: Public Rs As New ADODB.Recordset. Qundi cambia RSTctr in Rs
e poi togli , NomeFile
Leggi il post precedente.