很简单:
'Dim SqlConn As New SqlClient.SqlConnection("Persist Security Info=True;User ID=materialadmin;Initial Catalog=material;Data Source=10.63.208.71")
'Dim SqlData As New SqlClient.SqlDataAdapter("select * from man ", SqlConn)
'Dim ds As New DataSet
'SqlData.Fill(ds, "man")
'DataGrid1.DataSource = ds
随便找的:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'打开数据库连接
Dim OrdersConnection As New SqlConnection("Server=(local)\NetSDK;Database=northwind;Trusted_Connection=yes")
'得到订单和订单详细信息
Dim OrderAdapter As New SqlDataAdapter("Select * from Orders; select OrderID ,Products.ProductName,[order Details].Unitprice,[order Details].Quantity,[order Details].discount from [order Details],Products where [Order Details].ProductId=Products.ProductID", OrdersConnection)
'在基于OrderID字段的两个表之间建立父子关系
Dim Parent As DataColumn = OrderDataSet.Tables("Orders").Columns("OrderID")
Dim Child As DataColumn = OrderDataSet.Tables("Order Details").Columns("OrderID")
Dim OrderRelation As DataRelation = New DataRelation("OrderRelation", Parent, Child, False)
string commandText = "select id from sysobjects where name = '" + tableName + "'";
SqlDataAdapter adapter = new SqlDataAdapter(commandText, Connection);
DataSet ds = new DataSet();
adapter.Fill(ds);