使用数据读取器类SqlDataReader

Sub main()
Dim com As New SqlConnection()
com.ConnectionString = "server=(local);database=test;uid=sa;pwd=;"
Dim str As String = "select hotel_name,hotel_phone from main"
Dim cmd As New SqlCommand(str, com)
Try
com.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader() '通过调用命令的 ExecuteReader 方法（例如 ExecuteReader）返回行
While reader.Read() '使 SqlDataReader 前进到下一条记录
Dim myInt As Int32
Dim myString As String
myInt = reader.GetInt32(0) '获取指定列的 32 位有符号整数形式的值
myString = reader.GetString(1).ToString() '获取以本机格式表示的列的值。
End While
reader.Close()
Finally
com.Close()
End Try

End Sub
End Class