Question : Need demo projects that show off Visual Studio 2010 Thread Window.

I am new to multi-threading and wold like to play around with Visual Studio 2010 and it's Thread Window.  So does anyone have a demo (or two) I can download then get to experience this part of the IDE?

Thanks,
newbieweb

Answer : Need demo projects that show off Visual Studio 2010 Thread Window.

You can try this code -- but you may need to tweak the strConn variable to build the connection string for the exact driver that you're going to use.

To use it just call the function, passing in the required parameters.  Also, you may need to have your TNSNAMES.ORA file updated.
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:

Function ConnectOracleTable(strTblName As String, _
                sServer As String, sUID As String, sPWD As String) As Boolean

On Error GoTo Connect_Err

    Dim strConn As String
    Dim db As Database
    Dim tbl As TableDef
    
    Set db = CurrentDb()
        
    strConn = "ODBC;"
    strConn = strConn & "DRIVER={Microsoft ODBC Driver for Oracle};"
    strConn = strConn & "Server=" & sServer & ";"
    strConn = strConn & "UID=" & sUID & ";"
    strConn = strConn & "PWD=" & sPWD & ";"
    
    If (DoesTblExist(strTblName) = False) Then
        Set tbl = db.CreateTableDef(strTblName, _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        db.TableDefs.Append tbl
    Else
        Set tbl = db.TableDefs(strTblName)
        tbl.Connect = strConn
        tbl.RefreshLink
    End If
    ConnectOracleTable = True

Connect_Exit:
    Set tbl = Nothing
    Set db = Nothing
    Exit Function

Connect_Err:
    ConnectOracleTable = False
    MsgBox Err & " - " & Error & vbCrLf & "Table attach failed."
    Resume Connect_Exit
    
End Function

'***************************************************************
'The DoesTblExist function validates the existence of a TableDef
'object in the current database. The result determines if an
'object should be appended or its Connect property refreshed.
'***************************************************************

Function DoesTblExist(strTblName As String) As Boolean
   On Error Resume Next
   Dim db As Database, tbl As TableDef
   Set db = CurrentDb
   Set tbl = db.TableDefs(strTblName)
   If Err.Number = 3265 Then   ' Item not found.
      DoesTblExist = False
      Exit Function
   End If
   DoesTblExist = True
   Set tbl = Nothing
   Set db = Nothing
End Function
Random Solutions  
 
programming4us programming4us