数据库-使用DataReader的简单实例(两种办法)

ADO.NET包含两种类库:

1. SQLOLEDB
2. SQL

程序界面

程序清单

 

 1 Imports System.Data
 2 Imports System.Data.OleDb
 3 Imports System.Data.SqlClient
 4 Public Class Form1
 5     Dim strConnect As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=lzTest;Data Source=SVCTAG-4T7582X" '连接字符串编写借助了udl文件
 6 
 7     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 8         '使用SQLOLEDB方式
 9         '连接对象是OleDBConnection对象
         'Command对象是OleDBCommand对象
         'DataReader对象是OleDBDataReader对象
         Dim myConnect As New OleDbConnection()
         myConnect.ConnectionString = strConnect
         Try
             myConnect.Open() '打开数据库
             Dim myCommand As New OleDbCommand("select * from employees", myConnect) '打开表
             Dim myDataReader As OleDbDataReader
             myDataReader = myCommand.ExecuteReader()
             ListBox1.Items.Clear()
             While (myDataReader.Read())
                 ListBox1.Items.Add(myDataReader.GetString(1)) 'ps:姓名列是第二列,列序号从0开始,所以这里填1
             End While
         Catch ex As Exception
             MsgBox(ex.ToString(), MsgBoxStyle.AbortRetryIgnore, "出现异常")
         Finally
             If myConnect.State = ConnectionState.Open Then
                 myConnect.Close()
             End If
         End Try
     End Sub
 
     Dim strConn2 As String = "server=SVCTAG-4T7582X;Integrated Security=SSPI;Persist Security Info=False;database=lzTest"
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         '使用SqlConnection类库,需要先引入System.data.SqlClient
         'PS: 连接字符串不需要Provider值,其他关键字也不同
         '连接对象是SQLConnection对象
         'Command对象是SQLCommand对象
         'DataReader对象是SQLDataReader对象
         Dim myConn As SqlConnection = New SqlConnection()
         myConn.ConnectionString = strConn2
         Try
             myConn.Open()
             Dim command1 As SqlCommand = New SqlCommand("select * from employees", myConn)
             Dim DataReader1 As SqlDataReader
             DataReader1 = command1.ExecuteReader()
             ListBox1.Items.Clear()
             While (DataReader1.Read())
                 ListBox1.Items.Add(DataReader1.GetValue(1).ToString())
             End While
         Catch ex As Exception
             MsgBox(ex.ToString())
         Finally
             If myConn.State = ConnectionState.Open Then
                 myConn.Close()
             End If
         End Try
     End Sub
 End Class