Imports System.Data.SqlClient '添加引用 Imports System.Data.DataSet Dim strConn As String = "Data Source=local;Initial Catalog=Northwind; UserId=sa;Pwd=" Dim conn As New SqlConnection conn.ConnectionString = strConn conn.Open() Dim comm As New SqlCommand comm.CommandText = "Select * from mstcategory" Dim da As New SqlDataAdapter Dim ds As New Data.DataSet da.Fill(ds)
Imports System.Data.DataSet
Dim strConn As String = "Data Source=local;Initial Catalog=Northwind; UserId=sa;Pwd="
Dim conn As New SqlConnection
conn.ConnectionString = strConn
conn.Open()
Dim comm As New SqlCommand
comm.CommandText = "Select * from mstcategory"
Dim da As New SqlDataAdapter
Dim ds As New Data.DataSet
da.Fill(ds)
if(ds.table[0].Rows.Count<1)
{
Response.Write("不有得数据");
}