Dim tempConnection As SqlConnection
Dim tempAdapter As SqlDataAdapter
tempConnection = New SqlConnection()
'设置连接字符串
tempConnection.ConnectionString = "server=192.168.0.1;uid=sa;pwd=;database=Northwind"
'打开一个连接
tempConnection.Open()
'执行一个查询
tempAdapter = New SqlDataAdapter("select * from region", tempConnection)
dim tempDataSet as new DataSet()
'将查询结果保存至一个DataSet
tempAdapter.Fill(tempDataSet)
tempConnection.Close()
Dim tempAdapter As SqlDataAdapter
tempConnection = New SqlConnection()
'设置连接字符串
tempConnection.ConnectionString = "server=192.168.0.1;uid=sa;pwd=;database=Northwind"
'打开一个连接
tempConnection.Open()
'执行一个查询
tempAdapter = New SqlDataAdapter("select * from region", tempConnection)
dim tempDataSet as new DataSet()
'将查询结果保存至一个DataSet
tempAdapter.Fill(tempDataSet)
tempConnection.Close()
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货