Frage : Überprüfen ob vorhandene Aufzeichnung in der Datenbank?

Hallo.  Ich versuche, zu überprüfen, ob ein Projektname bereits in der Datenbank existiert.  Ich benutze SQL-Server 2005 als das Datenbank-hintere Ende mit dem Mitgliedstaat-Zugang, der die Vorderseite ist.  Der Code wird unten angebracht, ich sind gerade neugierig, wo ich falsch gehe.  Ihr Rat ist appreciated. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Private VorCommand96_Click ()
Schwaches DB als DAO.Database '**** Stromdatenbank
Schwaches r als DAO.Recordset
Schwaches sSQL als Schnur
Schwaches strCheck als Schnur
Schwaches str1 als Schnur
Schwaches str2 als Schnur

Einstellen DB = DBEngine (0) (0)
strCheck = txtCheck.Value
MsgBox strCheck

sSQL = „WÄHLEN „Projekt-Namen“ von den Projekten vor, WO Identifikation = „“ + strCheck + „“ „

Einstellen r = db.OpenRecordset (sSQL)

Wenn r.EOF und r.BOF dann

Sonst
    str1 = r.Fields („Projekt-Name“). Wert
Beenden wenn
     
MsgBox str1

wenn str1 = strCheck
	msgbox „Projekt-Name existiert in der Datenbank“
sonst
	msgbox „die generische Mitteilung, zum es zu bestätigen läuft“ durch
beenden wenn

Unterseeboot beenden

Antwort : Überprüfen ob vorhandene Aufzeichnung in der Datenbank?

Sind sie einschlossen möglicherweise in irgendeinem anderem Behälter außerdem.  Das enthaltene snipet arbeitet für mich in VS2008
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Allgemeine Kategorie Form1

    Privates Unterseeboot Form1_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load
        GroupBox1.Visible = ausrichten en
        GroupBox2.Visible = falsch
    Enden-Unterseeboot

    Privates Unterseeboot RadioButtonBox1_CheckedChanged (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt RadioButtonBox1.CheckedChanged
        Wenn RadioButtonBox1.Checked = dann ausrichten
            GroupBox1.Visible = ausrichten en
            GroupBox2.Visible = falsch
        Sonst
            GroupBox1.Visible = falsch
            GroupBox2.Visible = ausrichten en
        Beenden wenn
    Unterseeboot beenden

    Privates Unterseeboot RadioButtonBox2_CheckedChanged (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt RadioButtonBox2.CheckedChanged
        Wenn RadioButtonBox1.Checked = dann ausrichten
            GroupBox1.Visible = ausrichten en
            GroupBox2.Visible = falsch
        Sonst
            GroupBox1.Visible = falsch
            GroupBox2.Visible = ausrichten en
        Beenden wenn
    Unterseeboot beenden
Kategorie beenden
Weitere Lösungen  
 
programming4us programming4us