Vraag : De manifestatieprojecten van de behoefte die met het Visuele Venster van de Draad van de Studio 2010 pronken.

Ik ben nieuw tot multi-threading en wold als om rond met Visuele Studio 2010 te spelen en het is het Venster van de Draad.  Zo heeft iedereen een manifestatie (of twee) ik kan dan krijgt om dit deel van winde te ervaren downloaden?

Thanks,
newbieweb

Antwoord : De manifestatieprojecten van de behoefte die met het Visuele Venster van de Draad van de Studio 2010 pronken.

U kunt deze code proberen -- maar u kunt de strConnvariabele moeten knijpen om het verbindingskoord voor de nauwkeurige bestuurder te bouwen dat u gaat gebruiken.

Om te gebruiken roept het enkel de functie, die in de vereiste parameters overgaan.  Ook, kunt u moeten uw Bijgewerkt tnsnames.ora- dossier hebben.
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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

Functie ConnectOracleTable (strTblName als Koord, _
                sServer als Koord, sUID als Koord, sPWD als Koord) zoals Van Boole

Op Fout GoTo Connect_Err

    Schemerige strConn als Koord
    Schemerige db als Gegevensbestand
    Schemerige tbl als TableDef
    
    Vastgesteld db = CurrentDb ()
        
    strConn = „ODBC; “
    strConn = strConn & „DRIVER= {de Bestuurder van Microsoft ODBC voor Oracle}; “
    strConn = strConn & „Server=“ & sServer &“; „
    strConn = strConn & „UID=“ & sUID &“; „
    strConn = strConn & „PWD=“ & sPWD &“; „
    
    Als (DoesTblExist (strTblName) = Vals) toen
        Reeks tbl = db.CreateTableDef (strTblName, _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        db.TableDefs.Append tbl
    Anders
        Reeks tbl = db.TableDefs (strTblName)
        tbl. Verbind = strConn
        tbl.RefreshLink
    Beëindig als
    ConnectOracleTable = Waar

Connect_Exit:
    Reeks tbl = niets
    Vastgesteld db = niets
    De Functie van de uitgang

Connect_Err:
    ConnectOracleTable = Vals
    MsgBox vergist zich & „-“ & maken de Fout & vbCrLf & de „Lijst ontbroken.“ vast
    Hervat Connect_Exit
    
Beëindig Functie

'***************************************************************
De 'functie DoesTblExist bevestigt het bestaan van een TableDef
'voorwerp in het huidige gegevensbestand. Het resultaat bepaalt als
het 'voorwerp zou moeten worden toegevoegd of zijn Connect bezit verfrist.
'***************************************************************

Functie DoesTblExist (strTblName als Koord) zoals Van Boole
   Op Fout hervat daarna
   Verduister db als Gegevensbestand, tbl als TableDef
   Plaats db = CurrentDb
   Plaats tbl = db.TableDefs (strTblName)
   Als Err.Number = toen '   gevonden niet Punt 3265.
      DoesTblExist = Vals
      De Functie van de uitgang
   Eind als
   DoesTblExist = Waar
   Reeks tbl = niets
   Vastgesteld db = niets
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us