如何在LibreOffice BASIC中复用LibreOffice Base的PostgreSQL连接？

当然可以复用你在Base里创建的PostgreSQL连接！不用再重新写JDBC连接串，LibreOffice BASIC可以直接调用Base已经配置好的数据源，下面是具体的实现步骤和代码示例：

1. 获取已配置的Base数据源 #

Base里创建的.odb连接文件其实是把数据源配置注册到了LibreOffice的全局数据源上下文里，我们可以通过这个上下文直接获取已有的连接实例。

2. 打开连接并执行SQL #

拿到数据源对象后，就可以打开连接、执行SQL查询，最后处理结果。

基础实现代码示例 #

Sub UseExistingBaseConnection()
    Dim oDataSourceCtx As Object
    Dim oDataSource As Object
    Dim oConnection As Object
    Dim oStatement As Object
    Dim oResultSet As Object
    Dim sDataSourceName As String
    
    ' 替换成你在Base里创建的数据源名称（可在「工具->数据源管理」里查看）
    sDataSourceName = "你的PostgreSQL连接名称"
    
    ' 获取数据源上下文
    oDataSourceCtx = CreateUnoService("com.sun.star.sdb.DatabaseContext")
    ' 根据名称获取目标数据源
    oDataSource = oDataSourceCtx.getByName(sDataSourceName)
    
    ' 打开连接：如果需要密码，用getConnectionWithCompletion()会弹出密码框，更安全
    oConnection = oDataSource.getConnectionWithCompletion()
    
    ' 创建SQL语句对象
    oStatement = oConnection.createStatement()
    
    ' 执行查询（替换成你的SQL语句）
    Dim sSQL As String
    sSQL = "SELECT * FROM 你的表名"
    oResultSet = oStatement.executeQuery(sSQL)
    
    ' 遍历并输出结果示例
    While oResultSet.next()
        ' 可以用列索引或列名获取值，比如oResultSet.getString("username")
        Print "第一列值：" & oResultSet.getString(1)
    Wend
    
    ' 关闭资源，避免内存泄漏
    oResultSet.close()
    oStatement.close()
    oConnection.close()
End Sub

3. 关键注意事项 #

• 数据源名称要准确：你可以打开LibreOffice后，通过工具->数据源管理查看所有已配置的数据源名称，确保代码里的名称和它完全一致。
• 密码安全处理：不要在代码里硬写数据库密码，使用getConnectionWithCompletion()会弹出系统原生的密码输入框，既安全又符合LibreOffice的设计规范。
• 错误捕获：实际使用时建议加上错误处理，避免因连接失败、SQL语法错误等导致程序崩溃，示例如下：

Sub UseConnectionWithErrorHandling()
    Dim oDataSourceCtx As Object
    Dim oDataSource As Object
    Dim oConnection As Object
    Dim oStatement As Object
    Dim oResultSet As Object
    Dim sDataSourceName As String
    
    On Error GoTo ErrorHandler
    
    sDataSourceName = "你的PostgreSQL连接名称"
    oDataSourceCtx = CreateUnoService("com.sun.star.sdb.DatabaseContext")
    oDataSource = oDataSourceCtx.getByName(sDataSourceName)
    oConnection = oDataSource.getConnectionWithCompletion()
    
    oStatement = oConnection.createStatement()
    Dim sSQL As String
    sSQL = "SELECT * FROM 你的表名"
    oResultSet = oStatement.executeQuery(sSQL)
    
    While oResultSet.next()
        Print oResultSet.getString("你的列名")
    Wend

Cleanup:
    ' 确保所有资源都被关闭
    If Not IsNull(oResultSet) Then oResultSet.close()
    If Not IsNull(oStatement) Then oStatement.close()
    If Not IsNull(oConnection) Then oConnection.close()
    Exit Sub

ErrorHandler:
    MsgBox "运行出错：" & Err.Description, vbCritical
    Resume Cleanup
End Sub

原理说明 #

LibreOffice Base的所有连接配置都由UNO API的DatabaseContext组件统一管理，不管是Base界面还是BASIC代码，都是通过这个组件来访问数据源的。所以你在Base里配置好的PostgreSQL连接，本质上是注册到了这个上下文里，BASIC代码直接调用就能复用所有已有的配置（包括JDBC驱动、主机地址、数据库名等），不用重复配置。

内容的提问来源于stack exchange，提问作者TheLovelySausage