Procedure Name | Type | Description |
(Declarations) | Declarations | Declarations and private variables for the modADOSQLServer module. |
SSConstraintExists | Procedure | Checks the SQL Server System tables to determine whether a named Constraint exists in the SQL Server database pointed to in the current connection. |
SSDefaultExists | Procedure | Checks the SQL Server System tables to determine whether a named Default constraint exists in the SQL Server database pointed to in the current connection. |
SSPrimaryKeyExists | Procedure | Checks the SQL Server System tables to determine whether a named PrimaryKey constraint exists in the SQL Server database pointed to in the current connection. |
SSStoredProcExists | Procedure | Checks the SQL Server System tables to determine whether a named stored procedure exists in the SQL Server database pointed to in the current connection. |
SSTableExists | Procedure | Checks the SQL Server System tables to determine whether a named table exists in the SQL Server database pointed to in the current connection. |
SSViewExists | Procedure | Checks the SQL Server System tables to determine whether a named view exists in the SQL Server database pointed to in the current connection. |
' Example of modADOSQLServer ' ' To use this example, create a new module and paste this code into it. ' Then run the procedure by putting the cursor in the procedure and pressing: ' F5 to run it, or ' F8 to step through it line-by-line (see the Debug menu for more options) Private Sub Example_modADOSQLServer() ' Comments: Example of using the modADOSQLServer module to work with SQL Server via ADO in VBA and VB6. ' Update the connection string to your data source Const cstrConnect As String = "Provider=SQLOLEDB;Data Source=MyHost;Initial Catalog=pubs;User ID=sa;password=" Dim cnn As ADODB.Connection Set cnn = New ADODB.Connection cnn.Open cstrConnect ' Example of SSConstraintExists If SSConstraintExists(cnn, "CK_emp_id") Then Debug.Print "CK_emp_id constraint exists" Else Debug.Print "CK_emp_id constraint does not exist" End If ' Example of SSDefaultExists If SSDefaultExists(cnn, "DF__authors__phone__09DE7BCC") Then Debug.Print "DF__authors__phone__09DE7BCC Default exists" Else Debug.Print "DF__authors__phone__09DE7BCC Default does not exist" End If ' Example of SSPrimaryKeyExists If SSPrimaryKeyExists(cnn, "PK_Emp_ID") Then Debug.Print "PK_Emp_ID PrimaryKey exists" Else Debug.Print "PK_Emp_ID PrimaryKey does not exist" End If ' Example of SSStoredProcExists If SSStoredProcExists(cnn, "byroyalty") Then Debug.Print "byroyalty StoredProc exists" Else Debug.Print "byroyalty StoredProc does not exist" End If ' Example of SSViewExists If SSViewExists(cnn, "titleview") Then Debug.Print "titleview View exists" Else Debug.Print "titleview View does not exist" End If ' Example of SSTableExists If SSTableExists(cnn, "author") Then Debug.Print "author Table Table exists" Else Debug.Print "author Table Table does not exist" End If Set cnn = Nothing End Sub
The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.
Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!
Supports Access/Office 2016, 2013, 2010 and 2007, and Visual Basic 6.0!
"The code is exactly how I would like to write code and the algorithms used are very efficient and well-documented."
Van T. Dinh, Microsoft MVP