Dim con As New SqlClient.SqlConnection
Dim myAdapter As New SqlClient.SqlDataAdapter
Dim DS As New DataSet
Dim str As String
con.ConnectionString = "server=ITD;database=test;uid=sa;pwd=sa"
str = "pr_test"
myAdapter.SelectCommand = New SqlClient.SqlCommand
myAdapter.SelectCommand.Connection = con
myAdapter.SelectCommand.CommandText = str'存储过程名
myAdapter.SelectCommand.CommandType = CommandType.StoredProcedure'定义为存储过程
With myAdapter.SelectCommand.Parameters'传递参数给存储过程
.Add(New SqlClient.SqlParameter("@NO", SqlDbType.Int))
.Item("@NO").Value = CType(Me.TextBox1.Text, Integer)
End With
myAdapter.Fill(DS)
DataGrid1.DataSource = DS.Tables(0)