Vraag : Controle als bestaand verslag in gegevensbestand?

Hallo.  Ik probeer om te controleren of een projectnaam reeds in het gegevensbestand bestaat.  Ik gebruik SQL server 2005 als gegevensbestand naherfst met MS-Access die het vooreind zijn.  De code is hieronder in bijlage, ben ik enkel nieuwsgierig waar ik verkeerd ga.  Uw raad is appreciated.
" codeBody " 
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 SubCommand96_Click ()
Schemerige db als huidig gegevensbestand van DAO.Database '****
Schemerig r als DAO.Recordset
Schemerige sSQL als Koord
Schemerige strCheck als Koord
Schemerige str1 als Koord
Schemerige str2 als Koord

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

sSQL = de „UITGEZOCHTE „Naam van het Project“ van Projecten WAAR identiteitskaart = „“ + strCheck + „“ „

Vastgesteld r = db.OpenRecordset (sSQL)

Als r.EOF en r.BOF toen

Anders
    str1 = r.Fields (de „Naam van het Project“). Waarde
Eind als
     
MsgBox str1

als str1 = strCheck
	msgbox „Naam van het Project er bestaat in gegevensbestand“
anders
	msgbox het „Generische te bevestigen Bericht zal het door“ gaan
beëindig als

beëindig sub

Antwoord : Controle als bestaand verslag in gegevensbestand?

Zijn zij misschien eveneens inbegrepen in één of andere andere container.  Inbegrepen snipet werkt voor me 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:

Openbare Klasse Form1

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Form1_Load MyBase.Load
        GroupBox1.Visible = Waar
        GroupBox2.Visible = Vals
    Sub van het eind

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten RadioButtonBox1_CheckedChanged RadioButtonBox1.CheckedChanged
        Als RadioButtonBox1.Checked = Waar toen
            GroupBox1.Visible = Waar
            GroupBox2.Visible = Vals
        Anders
            GroupBox1.Visible = Vals
            GroupBox2.Visible = Waar
        Eind als
    Sub van het eind

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten RadioButtonBox2_CheckedChanged RadioButtonBox2.CheckedChanged
        Als RadioButtonBox1.Checked = Waar toen
            GroupBox1.Visible = Waar
            GroupBox2.Visible = Vals
        Anders
            GroupBox1.Visible = Vals
            GroupBox2.Visible = Waar
        Eind als
    Sub van het eind
De Klasse van het eind
Andere oplossingen  
 
programming4us programming4us