22,207
社区成员
发帖
与我相关
我的任务
分享
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim cn As SqlConnection
Dim da As SqlDataAdapter
Dim dt As DataTable
Dim cnStr As String = "Data Source=.\sqlserver2014;Initial Catalog=master;Integrated Security=True"
cn = New SqlConnection(cnStr)
da = New SqlDataAdapter("select count(1) as cnt from dbo.spt_values", cn)
dt = New DataTable()
da.Fill(dt)
Console.WriteLine(dt.Rows.Count)
Console.Read()
End Sub
End Module