未找到PostgreSQL ODBC连接VB.NET数据源名称，也未指定默认驱动程序

Question

我在尝试使用ODBC连接连接到PostgreSQL DB 时收到以下错误

Error: {"ERROR [IM002] [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"}

• IDE:Visual Studio 2019
• 语言：Visual Basic.Net
• PostgreSQL数据库10.0版

[PostgreSQL ODBC连接][1]
我已经用64位ODBC适配器创建了一个成功的64位连接到我的PostgreSQL。

我测试连接的代码：

Imports System.Data.Odbc
Module Module1
Sub Main()
Dim connectionString As String = ""
connectionString = "Driver={PostgreSQL}; Server=localhost; Port=5432; Database=dvdrental2; Uid=postgres; Pwd=xxxxxx"
Dim cnn As OdbcConnection
cnn = New OdbcConnection(connectionString)
Try
cnn.Open()
MsgBox("Connection Open!")
cnn.Close()
Catch ex As Exception
MsgBox("Can not open connection!")
End Try
End Sub
End Module

我知道ODBC连接不是连接PostgreSQL数据库的最佳方式；然而，我对实现这种类型的连接很好奇

Answer 1

Module Module1
Sub Main()
Dim connectionString As String = ""
connectionString = "DSN=PostgreSQL; Server=localhost; Port=5432; Database=dvdrental; Uid=postgres; Pwd=your_pwd"
Dim cnn As OdbcConnection
cnn = New OdbcConnection(connectionString)
Try
cnn.Open()
Dim sql As String = "Select * From city"
Dim ds As DataSet = GetTableData(connectionString, SQL)
MsgBox("Connection Open!")
cnn.Close()
Catch ex As Exception
MsgBox("Can not open connection!")
End Try
End Sub
Public Function GetTableData(ByVal i_cs As String, ByVal sql As String) As DataSet
' Create and Initialize as Dataset 
Dim ds As DataSet = New DataSet()
' Create a OdbcConnection
Using conn As OdbcConnection = New OdbcConnection(i_cs)
Try
' Open the OdbcConnection
conn.Open()
' Create a read object of type OdbcDataAdapter
Dim read As OdbcDataAdapter = New OdbcDataAdapter(sql, conn)
' Fill the DataSet using OdbcDataAdapter
read.Fill(ds)
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
' Close the Connection
conn.Close()
End Try
End Using
Return ds
End Function
End Module