
This simple program shows how to retrieve data from the FinAccounting database using DataReader and Data Commands. When the code in the program is executed, the data in the FinAccounting database is displayed in two textbox controls.
Imports System.Data.SqlClient
Public Class Form1 Inherits System.Windows.Forms.Form
´Declare and setup the Connection string
Dim str_connection As String = "Data Source=SYS1;Integrated Security=SSPI;
Initial Catalog=FinAccounting"
´Declare and build a query string
Dim str_sql_user_select As String = "SELECT * FROM Accounts"
Dim mycon As SqlConnection
Dim comUserSelect As SqlCommand
´Declaring the DataReader object
Dim myreader As SqlDataReader
Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs)
Handles MyBase.Load
´Instantiate the connection object
mycon = New SqlConnection(str_connection)
´Instantiate the command object
comUserSelect = New SqlCommand(str_sql_user_select, mycon)
TextBox1.Text = ""
TextBox2.Text = ""
´Opening a Connection with the Open() method
mycon.Open()
´Creating a DataReader object by using
´the ExecuteReader() method of the Command object.
myreader = comUserSelect.ExecuteReader
If (myreader.Read = True) Then
TextBox1.Text = myreader(0)
TextBox2.Text = myreader(1)
Else
MsgBox ("You have reached eof")
End If
End Sub
End Class
Copyright © 2011 - All Rights Reserved - VKInfotek.com