Frage : Demoprojekte benötigen, die Sichtgewinde-Fenster des studio-2010 vorführen.

Ich bin zu multi-threading neu und Wold mögen mit Sichtstudio 2010 herum spielen und es ist Gewinde-Fenster.  So hat jemand eine Demo (oder zwei), das ich dann herunterladen kann erhalte, dieses Teil des IDE zu erfahren?

Thanks,
newbieweb

Antwort : Demoprojekte benötigen, die Sichtgewinde-Fenster des studio-2010 vorführen.

Sie können diesen Code versuchen -- aber Sie können die strConn Variable zwicken müssen, um die Anschlussschnur für den genauen Fahrer zu errichten, den Sie benutzen werden.

Um ihn zu verwenden die Funktion einfach benennen und in die erforderlichen Parameter überschreiten.  Auch Sie können müssen Ihre TNSNAMES.ORA Akte aktualisieren lassen.
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
Funktion ConnectOracleTable (strTblName als Schnur, _
                sServer als Schnur, sUID als Schnur, sPWD als Schnur) wie Boolesch

Auf Störung Goto- Connect_Err

    Schwaches strConn als Schnur
    Schwaches DB als Datenbank
    Schwaches tbl als TableDef
    
    Einstellen DB = CurrentDb ()
        
    strConn = „ODBC; “
    strConn = strConn u. „DRIVER= {Fahrer Microsoft-ODBC für Oracle}; “
    strConn = strConn u. „Server=“ u. sServer u.“; „
    strConn = strConn u. „UID=“ u. sUID u.“; „
    strConn = strConn u. „PWD=“ u. sPWD u.“; „
    
    Wenn (DoesTblExist (strTblName) = falsch) dann
        Tbl = db.CreateTableDef (strTblName, _ einstellen
                      dbAttachSavePWD, strTblName, _
                      strConn)
        db.TableDefs.Append tbl
    Sonst
        Tbl = db.TableDefs (strTblName) einstellen
        tbl. Anschließen = strConn
        tbl.RefreshLink
    Beenden wenn
    ConnectOracleTable = richten aus

Connect_Exit:
    Tbl einstellen = nichts
    Einstellen DB = nichts
    Funktion herausnehmen

Connect_Err:
    ConnectOracleTable = falsch
    MsgBox irren sich u. „-“ u. Störung u. vbCrLf u. „die verlassene Tabellenbefestigung.“
    Zusammenfassung Connect_Exit
    
Enden-Funktion

'***************************************************************
'Die DoesTblExist Funktion validiert das Bestehen von einem TableDef
'Gegenstand in der gegenwärtigen Datenbank. Das Resultat stellt wenn fest
'Gegenstand sollte angefügt werden, oder sein das erneuerte Eigentum anschließen.
'***************************************************************

Funktion DoesTblExist (strTblName als Schnur) wie Boolesch
   Auf Störungs-Zusammenfassung zunächst
   Schwaches DB als Datenbank, tbl als TableDef
   Einstellen DB = CurrentDb
   Tbl = db.TableDefs (strTblName) einstellen
   Wenn Err.Number = dann '   Einzelteil 3265 nicht gefunden.
      DoesTblExist = falsch
      Funktion herausnehmen
   Beenden wenn
   DoesTblExist = richten aus
   Tbl einstellen = nichts
   Einstellen DB = nichts
Funktion beenden
Weitere Lösungen  
 
programming4us programming4us