Microsoft KB Archive/301075

= How to connect to a database and run a command by using ADO.NET and Visual Basic .NET =

Article ID: 301075

Article Last Modified on 3/19/2007

-

APPLIES TO


 * Microsoft ADO.NET 1.1
 * Microsoft ADO.NET 1.0
 * Microsoft Visual Basic .NET 2003 Standard Edition
 * Microsoft Visual Basic .NET 2002 Standard Edition

-



This article was previously published under Q301075



For a Microsoft Visual C# .NET version of this article, see 306636.

For a Microsoft Visual J# .NET version of this article, see 322045.



For a Microsoft Visual Basic 6.0 version of this article, see 168336.

This article refers to the following Microsoft .NET Framework Class Library namespaces:
 * System.Data
 * System.Data.SqlClient

IN THIS TASK
SUMMARY
 * Requirements
 * How to run a command
 * How to use parameters
 * Complete code listing

REFERENCES



SUMMARY
This article describes how to use ADO.NET to connect to a database and to run a command (such as the UPDATE, the INSERT, or the DELETE command) by using a Visual Basic .NET console application.

back to the top

Requirements
The following list outlines the recommended hardware, software, network infrastructure, and service packs that are required:
 * Microsoft Windows XP, Microsoft Windows Server 2003, Microsoft Windows 2000 Professional, Microsoft Windows 2000 Server, Microsoft Windows 2000 Advanced Server, or Microsoft Windows NT 4.0 Server
 * Microsoft Visual Studio .NET

This article assumes that you are familiar with the following topics:
 * Database terminology
 * Structured Query Language (SQL)

back to the top

How to run a command
Commands are issued against databases to take actions against data stores and to include any statement that can be issued against a database. You can use the OleDbCommand or the SqlCommand classes to get a command to your data store, and OleDbCommand can be specific to the data store. This article demonstrates both the SqlClient class (to connect to a computer that is running Microsoft SQL Server) and the OleDb class (for any database that has an OLE DB or ODBC driver available) within ADO.NET. However, the code is generally the same for both.

With ADO, you can issue commands through the Command, the Connection, or the Recordset object. In ADO.NET, only the Command objects (SqlCommand or OleDbCommand) run commands.

To run a command, follow these steps:  Follow these steps to create a new console application in Visual Basic .NET:  Start Visual Studio .NET. On the File menu, point to New, and then click Project. In the New Project dialog box, click Visual Basic Projects under Project Types, and then click Console Application under Templates.  Make sure that your project contains a reference to the System.Data namespace, and add a reference if it does not.</li>  Use the Imports statement on the System and System.Data namespaces so that you do not have to qualify declarations in those namespaces later in your code. You can also include System.Data.SqlClient or System.Data.OleDb, depending on which one you are using. Imports System Imports System.Data Imports System.Data.SqlClient </li>  Before you can create a connection to a database, you must have a connection string. Connection strings contain all of the information that you need to establish a database connection, including the server name, the database name, the user ID, and the password. For example, the following connection string points to a local computer that is running SQL Server with a strong password for the account:

For OleDb connections: Provider=SQLOLEDB.1;User ID= ;Password= ;Initial Catalog=pubs;Data Source=(local) For SqlClient connections: User ID= ;Password= ;Initial Catalog=pubs;Data Source=(local) NOTE: If you need more assistance determining the connection string for your database, search for &quot;ConnectionString&quot; in the Microsoft Developer Network (MSDN) Library at the following Microsoft Web site:

http://search.microsoft.com/us/dev/default.asp

</li>  Visual Studio creates a module and an empty Main procedure. Declare a string variable, and store the appropriate connection string for your database in this procedure: Sub Main Dim sConnectionString As String _ = &quot;User ID= ;Password= ;Initial Catalog=pubs;Data Source=(local)&quot; End Sub </li>  Using this connection string, create a new OleDbConnection or SqlConnection object, and call its Open method to establish a connection to your database: Dim objConn As New SqlConnection(sConnectionString) objConn.Open </li>  Create a SqlCommand or OleDbCommand object, and pass in the command that you want to run and the connection object that you created in the previous step. The following sample code passes in the INSERT statement: Dim sSQL As String = &quot;INSERT INTO Employee &quot; & _ &quot;(emp_id, fname, minit, lname, job_id, job_lvl, pub_id, hire_date)&quot; & _ &quot;VALUES ('MSD12923F', 'Duncan', 'W', 'Mackenzie', &quot; & _           &quot;10, 82,'0877','2001-01-01')&quot; Dim objCmd As New SqlCommand(sSQL, objConn) </li>  After you create the SqlCommand or the OleDbCommand object, you can call the ExecuteNonQuery method to run the command that it represents. ExecuteNonQuery is designed for commands that do not return any results (such as the DELETE, the UPDATE, and the INSERT statements). If the Execute statement runs without throwing an exception (see the following code), the command has been executed successfully against the database. objCmd.ExecuteNonQuery </li> Save your project. On the Debug menu, click Start to run your command against the database.</li></ol>

back to the top

How to use parameters
When you run commands against a database (such as the UPDATE, the INSERT, and the DELETE statements or calls to stored procedures), these commands are frequently parameterized. This allows the command to be created one time but executed multiple times with different values that are inserted instead of parameters. Consider the corresponding DELETE statement to the INSERT statement that is used in the previous section: Dim sSQL As String = &quot;DELETE FROM Employee WHERE emp_id = @emp_id&quot; The parameter name (&quot;@emp_id&quot;) in this DELETE statement represents a parameter than you can replace with different values each time you run the command.

To use parameters with your command, follow these steps:  Create your OleDbConnection or SqlConnection object, as you did in the &quot;How to Run a Command&quot; section.</li> Replace the values with placeholders (for example, &quot;@emp_id&quot; or &quot;@fname&quot;) so that your command text uses parameters. See the DELETE statement before these steps for an example.</li> Create your OleDbCommand or SqlCommand object, and pass in the connection object that you created in the first step and the command text that contains the parameter placeholders.</li>  For each parameter, add a parameter object to the command object's parameters collection. For each parameter, you must specify a name and data type. objCmd.Parameters.Add(&quot;@emp_id&quot;, SqlDbType.Char, 9) </li>  Stored procedures can have parameters that return values and output parameters. You must also set a value for each input parameter before you can run the query: objCmd.Parameters.Item(&quot;@emp_id&quot;).Value = &quot;MSD12923F&quot; </li>  Run the query as follows: Try objCmd.ExecuteNonQuery Console.WriteLine(&quot;Record Deleted&quot;) Catch e As Exception Console.WriteLine(e.ToString) End Try Console.WriteLine(&quot;Record Deleted&quot;) Console.Read </li></ol>

back to the top

Complete code listing
Imports System Imports System.Data Imports System.Data.SqlClient

Module Module1 Sub Main AddRecord RemoveRecord Pause End Sub

Sub Pause Console.WriteLine(&quot;Press Enter To Continue...&quot;) Console.ReadLine End Sub

Sub AddRecord Dim sConnectionString As String _ = &quot;User ID= ;Password= ;Initial Catalog=pubs;Data Source=(local)&quot; Dim objConn As New SqlConnection(sConnectionString) objConn.Open Dim sSQL As String = &quot;INSERT INTO Employee &quot; & _ &quot;(emp_id, fname, minit, lname, job_id, job_lvl, pub_id, hire_date)&quot; & _ &quot;VALUES ('MSD12923F', 'Duncan', 'W', 'Mackenzie', &quot; & _                  &quot;10, 82,'0877','2001-01-01')&quot;

Dim objCmd As New SqlCommand(sSQL, objConn) Try objCmd.ExecuteNonQuery Catch e As Exception Console.WriteLine(e.Message) End Try Console.WriteLine(&quot;Record Added&quot;) End Sub

Sub RemoveRecord Dim sConnectionString As String _ = &quot;User ID= ;Password= ;Initial Catalog=pubs;Data Source=(local)&quot; Dim objConn As New SqlConnection(sConnectionString) objConn.Open Dim sSQL As String = &quot;DELETE FROM Employee WHERE emp_id = @emp_id&quot; Dim objCmd As New SqlCommand(sSQL, objConn)

objCmd.Parameters.Add(&quot;@emp_id&quot;, SqlDbType.Char, 9) objCmd.Parameters.Item(&quot;@emp_id&quot;).Value = &quot;MSD12923F&quot;

Try objCmd.ExecuteNonQuery Console.WriteLine(&quot;Record Deleted&quot;) Catch e As Exception Console.WriteLine(e.ToString) End Try Console.WriteLine(&quot;Record Deleted&quot;) Console.ReadLine End Sub

End Module back to the top

<div class="references_section">