So vermeiden Sie doppelte Einträge in der Zugriff von vb6?

Bin ich mit Vb6 und Access 2007. Ich bin hinzufügen von Datensätzen in der access-Tabelle namens "subjectcode" von vb6. Die details des subjectcode Tabelle unten.

Subjectcode Tabelle : Position(Grad,Zweig,Year1,Year2,Semester,Subjectcode,Subjectname,Theory_Practical, Major_Allied_Elective) values (Bsc,computerscience,2001,2004,1,RACS1,Vb6 Programmierung,Theorie,Dur)

Anmerkung :Der Primärschlüssel in der Tabelle oben ist Grad,Zweig,Year1,Year2,Semester,Subjectcode
Und der code, den ich verwendet, um zu Eintrag hinzufügen zu der access-Tabelle aus vb6 sind unten angegeben :

    If degree = "" Or branch1 = "" Or year1 = "" Or year2 = "" Or semester = "" Or subcode.Text = "" Or subname.Text = "" Or theory.Text = "" Or major.Text = "" Then
    MsgBox "Fields can't be empty ! All are mandatory!"
    Else
    rs.Open "select * from subjectcode", con, 1, 3
    rs.AddNew
    rs!degree = degree
    rs!branch = branch1
    rs!year1 = year1
    rs!year2 = year2
    rs!semester = semester
    rs!Subjectcode = subcode.Text
    rs!Subjectname = subname.Text
    rs!Theory_Practical = theory.Text
    rs!Major_Allied_Elective = major.Text
    rs.Update
    MsgBox "Successfully Saved !", vbOKOnly + vbInformation, "info"
    rs.Close
    End If

Und den screenshot der form Hinzufügen von vb6 ist hier: http://tinypic.com/r/w7c7if/6
Der Datensatz wird Hinzugefügt, wenn der gleiche Eintrag ist nicht vorhanden. Und wenn der Datensatz bereits vorhanden ist, es sollte sagen, "Datensatz Bereits vorhanden" und ich weiß nicht, wie das zu tun. Könnten Sie Jungs geben mir die Idee bitte.

InformationsquelleAutor Jack Rathore | 2013-01-20

Schreiben Sie eine save-Methode zum speichern Ihrer Aufzeichnung, und eine Methode zum Abfragen der Datenbank und prüfen Sie, ob ein vorhandener Datensatz, bevor Sie die Daten sichern.

Public Sub SaveSubjectCode(ByVal vDegree As String, ByVal vBranch As String, ByVal vYear1 As Integer, ByVal vYear2 As Integer, ByVal vSemester As Integer, ByVal Subjectcode...)

    If (DoesRecordExist(vDegree, vBranch, vYear1, vYear2, vSemester, vSubjectcode) = True Then
        ' Warn the user
        MessageBox("I'm sorry Dave I can't do that. The record already exists.")
    Else
        ' Save the record
    End If

End Sub

Private Function DoesRecordExist(ByVal vDegree as String, ByVal vBranch As String, ByVal vYear1 As Integer, ByVal vYear2 As Long, ByVal vSemester As Integer, ByVal vSubjectcode As String) As Boolean

    RecordSet = query 'Query the database for the existing record
    If RecordSet.BOF And RecordSet.EOF Then
        DoesRecordExist = False
    Else
        DoesRecordExist = True
    End If

End Function

Außerdem möchten Sie vermeiden, die die Select * Abfrage, wählt jeder Datensatz, es sei denn, Sie wirklich brauchen, weil es wahrscheinlich zu langsam sein, und langsamer als die Anzahl der Datensätze wachsen. Wenn Sie möchten, um ein recordset einfach zu verwenden, um einen neuen Datensatz hinzufügen können Sie eine Where-Klausel, die keine Datensätze zurückgegeben "select * from subjectcode WHERE 1 = 2, con, adOpenKeyset, adLockOptimistic

Danke, dass Sie so viel Beaner Freund... ja sicher Freund, den ich vermeiden, wählen Sie * query n nochmal danke Freund 🙂

InformationsquelleAutor jac

2

Beim erstellen ein Feld in einer Tabelle geben Sie an, ob Duplikate zulässig sind oder nicht. Dann ein angreifender hinzufügen oder aktualisieren, wird eine exception geworfen.

Den SQL-DML sieht wie folgt aus:
```
ALTER TABLE tblCustomers
    ADD CONSTRAINT CustomerNames UNIQUE
    ([Last Name], [First Name])
```
Und es gibt auch andere leistungsstarke Funktionen wie check-Constraints, als auch:
```
ALTER TABLE tblInvoices
    ADD CONSTRAINT CheckAmount
    CHECK (Amount > 0)
```
Einer der Vorteile von constraints ist, dass die Datenbank die Integrität ist nicht Geisel von rogue-Anwendungen, die möglicherweise nicht gesprächig pre-Qualifikation Abfragen (oder nicht ordnungsgemäß umsetzen, Sie richtig). Ein weiteres ist die Verbesserung der Leistung über gesprächig Techniken und die Tatsache, dass wenn mehrere Update-Programme die Datenbank ändern kann zwischen pre-qual abzufragen und zu aktualisieren.
- Ich benutze diese Methode auch auf SQL-Datenbanken, aber war sich nicht sicher, ob Access unterstützt es. Ich benutze immer noch die query-Methode bei der überprüfung auf Duplikate, obwohl, so dass ich vermeiden, dass zu übersetzen DB-Fehler, und wenn ich muss kann ich geben dem Benutzer feedback über den vorhandenen Datensatz.
- Danke Bob Freund, für die Antwort.Er arbeitete auch und nochmals vielen Dank so viel Freund !
- Manchmal sind diese Dinge sind situationsabhängig. Zum Beispiel eine Datenbank ermöglichen könnten dups auf ein Feld, aber nicht für ein bestimmtes Programm oder eine bestimmte Aktivität. Damit Sie beide Ihren Platz haben, obwohl ich denke, dass "probe-dann-posten" ist heikel, es sei denn, Sie verwenden die richtige Verriegelung.
InformationsquelleAutor Bob77

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.