vb6.0连接postgresql 13

遇到的问题记录一下。

1.首先是安装pgssql，我安装的是13版本的。
2.安装完成之后，安装navicat工具，便于查询，数据库到这边就装完了，
3.还原之前的数据库。。。
4.下载odbc驱动 https://www.postgresql.org/ftp/odbc/versions/msi/
直接安装即可。

5.打开 控制面板–>管理工具–>ODBC数据源（64位）–>添加–>输入账号密码 可以进行测试test


6.你可能在这边数据的ip地址连接失败。只能用localhost连接，这时候需要修改pgsql文件 pg_hba.conf
添加一行代码

7.此时再来测试连接，发现就成功了，然后save。
8.配置好odbc之后 来到vb界面， 我这边直接把vb的方法放出来
其中Driver后面的字符串，必须是上面驱动中的名称

Public adoConn As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Private Sub Form_Load()

Set adoConn = New ADODB.Connection
'adoConn.Open "provider=SQLOLEDB;password=11;PersistSecurity Info=true;User ID=uto;Initial Catalog=UTODB;Data Source=127.0.0.1"      '连接mssql数据库
adoConn.Open "Driver=PostgreSQL Unicode;Server=127.0.0.1;Port=5432;Database=gqw;Uid=postgres;Pwd=123;"    '连接pgsql数据库

Set adoRs = New ADODB.Recordset '新建一个实例

adoRs.Open "SELECT KHGL_KHBM,KHGL_KHMC,KHGL_KHJC from khgl WHERE 1=1 AND KHGL_GSID='2000' ORDER BY khgl_khbm", adoConn, 1, 3  '后面的3是确定读写权限的
 Set DataGrid1.DataSource = adoRs
 
 DataGrid1.Columns(0).Caption = "编号"
 DataGrid1.Columns(1).Caption = "客户名称"
  DataGrid1.Columns(2).Caption = "客户简称"
 
    'adoRs.Close
End Sub

9.到这一步其实正常是可以完工了，但是我遇到了数据库架构不同的问题，这个数据表不在默认架构public下，还得继续调整。

找到一个连接字符串工具
https://www.connectionstrings.com/postgresql-odbc-driver-psqlodbc/

10.百度找了个解决办法，但是不管用

11.最后只能修改用户的默认架构了
ALTER USER postgres SET search_path to 'gqw_db’

12.收工！