VB SqlConnection 对象丢失

Question

赢得 11 版本：10.0.22621

VS 2022 版本：17.7.4

网络。 4.8.0902

SQL Server 版本：15.0.2101.7

VS和SQL都在同一台电脑上。

我是一名老VB程序员，不知道如何通过以下方式连接到SQL Server： '将 cn 变暗为新的 SqlConnection' 智能感知不会列出连接对象。 您能否指出一些有关如何解决此问题的说明？ 谢谢您的宝贵时间。

在网上查了一下，没有找到解决办法。

Answer 1

如果启动新的 .NET Framework 4.8 控制台应用程序，以下代码应该可以工作。将

MyDatabaseName

替换为数据库名称，将

MyTableName

替换为表名称。

Imports System.Data.SqlClient

Module Module1    
  Sub Main()
    Dim connectionString = "Data Source=(local);Timeout=10;Database=MyDatabaseName;Integrated Security=True;"
    Dim strSql As String = "SELECT * FROM MyTableName"
    Dim dtb As New DataTable
    Using cnn As New SqlConnection(connectionString)
      cnn.Open()
      Using dad As New SqlDataAdapter(strSql, cnn)
        dad.Fill(dtb)
      End Using
      cnn.Close()
    End Using
    Dim firstRow = dtb.Rows(0)
    For col = 0 To dtb.Columns.Count - 1
      Dim columnName = dtb.Columns(col).ColumnName
      Dim columnValue = CStr(firstRow(columnName))
      Console.WriteLine($"{columnName}={columnValue}")
    Next col       
  End Sub    
End Module