Pytanie : Sprawdzać jeżeli istniejący rejestr w baza danych?

Cześć.  I próbować czy projekt imię już istnieć w the baza danych.  I używać SQL serwer 2005 jako the baza danych koniec z MS Dostęp the początkowy.  The kod dołączać iść, i być właśnie ciekawy dokąd i iść źle.  Twój rada być 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 Okręt podwodny Command96_Click ()
Ciemnawy db Jako DAO.Database '**** prąd baza danych
Ciemnawy r Jako DAO.Recordset
Ciemnawy sSQL Sznurek
Ciemnawy strCheck Sznurek
Ciemnawy str1 Sznurek
Ciemnawy str2 Sznurek

Set db = DBEngine ((0)) ((0))
strCheck = txtCheck.Value
MsgBox strCheck

sSQL = "WYBIÓRKA "Projekt Imię" od Projekt DOKĄD ID = "" + strCheck + "" "

Set r = db.OpenRecordset (sSQL)

Jeżeli r.EOF I r.BOF Wtedy

Inny
    str1 = r.Fields ("Projekt Imię"). Wartość
Kończyć Jeżeli
     
MsgBox str1

jeżeli str1 = strCheck
	msgbox "Projekt Imię istnieć w baza danych"
inny
	msgbox "Rodzajowy Wiadomość ono iść przez"
kończyć jeżeli

kończyć okręt podwodny

Odpowiedź : Sprawdzać jeżeli istniejący rejestr w baza danych?

Być być może zawrzeć w niektóre inny zbiornik także.  The vs2008 snipet pracować dla w 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:

Społeczeństwo Klasowy Form1

    Intymny Okręt podwodny Form1_Load (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się MyBase.Load
        GroupBox1.Visible = Prawdziwy
        GroupBox2.Visible = Fałszywy
    Końcówka Okręt podwodny

    Intymny Okręt podwodny RadioButtonBox1_CheckedChanged (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się RadioButtonBox1.CheckedChanged
        Jeżeli RadioButtonBox1.Checked = Prawdziwy Wtedy
            GroupBox1.Visible = Prawdziwy
            GroupBox2.Visible = Fałszywy
        Inny
            GroupBox1.Visible = Fałszywy
            GroupBox2.Visible = Prawdziwy
        Kończyć Jeżeli
    Kończyć Okręt podwodny

    Intymny Okręt podwodny RadioButtonBox2_CheckedChanged (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się RadioButtonBox2.CheckedChanged
        Jeżeli RadioButtonBox1.Checked = Prawdziwy Wtedy
            GroupBox1.Visible = Prawdziwy
            GroupBox2.Visible = Fałszywy
        Inny
            GroupBox1.Visible = Fałszywy
            GroupBox2.Visible = Prawdziwy
        Kończyć Jeżeli
    Kończyć Okręt podwodny
Kończyć Klasa
Inne rozwiązania  
 
programming4us programming4us