Postgresql 为什么我使用 VBA 只能从 postgres 获得 10 行

发布于12月16日

有一项任务是从VBA获取PostgreSQL数据库中的一些行. 我用手提出了一个请求，我确定表中有大约200行.但如果我将其设置为VBA脚本，则UBound会说我的记录中只有10行，并且try 访问第11行会导致超出范围的错误. 我肯定有10多条线，有10多条限价，但总是有10条线. 是的，我可以使用Offset来完成，但我想减少查询的数量.

Sub main()

Dim query As String

'Create Connection
Set conn = CreateObject("ADODB.Connection")
strCnx = "Driver={PostgreSQL Unicode};Server=10.84._._;Port=5432;Database=_;UID=_;PWD=_;"
conn.Open strCnx

'Query the Database
Set rs = CreateObject("ADODB.recordset")
rs.Open "SELECT id, FROM dbo.orders ORDER BY tid DESC LIMIT 100", conn
Record = rs.GetRows()
Worksheets("index").Columns("A").ClearContents
Cells(1, 1) = Record(0, 10)
rs.Close