如何在PowerBuilder中实现SQL脚本上传并保存执行结果？

当然可以实现！我之前做过类似的需求，下面给你一步步拆解实现方案，附带完整的PowerBuilder代码示例：

一、UI布局准备 #

首先在窗口上添加以下控件：

• SingleLineEdit（命名为sle_filepath）：用于显示选中的SQL文件路径
• CommandButton（命名为cb_browse）：触发文件选择对话框
• CommandButton（命名为cb_execute）：执行SQL脚本并导出结果
• MultiLineEdit（命名为mle_result，可选）：临时显示执行结果，方便调试

二、实现“浏览选择SQL文件”功能 #

在cb_browse的Clicked事件中添加以下代码：

string ls_path, ls_filename, ls_fullname
integer li_rc

// 弹出文件选择对话框，仅允许选择.sql文件
li_rc = GetFileOpenName("选择SQL脚本文件", ls_path, ls_filename, "SQL", "SQL文件 (*.sql), *.sql")
if li_rc = 1 then
    sle_filepath.Text = ls_path + "\" + ls_filename
end if

三、读取SQL脚本内容 #

在cb_execute的Clicked事件中，先读取选中的SQL文件内容：

integer li_file
string ls_sql, ls_line

// 检查是否选择了文件
if Trim(sle_filepath.Text) = "" then
    MessageBox("提示", "请先选择SQL脚本文件！")
    return
end if

// 打开文件并读取所有内容
li_file = FileOpen(sle_filepath.Text, StreamMode!, Read!, LockRead!)
if li_file < 1 then
    MessageBox("错误", "无法打开所选文件，请检查文件权限或路径！")
    return
end if

// 逐行读取并拼接SQL内容（保留换行符，保证脚本格式正确）
do while FileReadLine(li_file, ls_line) > 0
    ls_sql += ls_line + "~r~n"
loop
FileClose(li_file)

四、执行SQL脚本并捕获结果 #

继续在cb_execute的Clicked事件中添加执行逻辑，这里要区分查询语句（返回结果集）和非查询语句（如增删改）：

string ls_result, ls_col_names
integer li_col_count, i, j
long ll_rows

ls_result = "=== SQL脚本执行结果 ===" + "~r~n~r~n"
ls_result += "执行时间：" + String(Now(), "yyyy-mm-dd hh:mm:ss") + "~r~n~r~n"

// 使用Dynamic SQL处理动态SQL语句
DECLARE cur_dyn DYNAMIC CURSOR FOR SQLSA ;
PREPARE SQLSA FROM :ls_sql ;
OPEN DYNAMIC cur_dyn ;

if SQLCA.SQLCode = 0 then
    // 处理查询结果集
    li_col_count = SQLSA.NumberOfColumns
    // 拼接列名
    for i = 1 to li_col_count
        ls_col_names += SQLSA.Describe("#" + String(i) + ".Name") + "~t"
    next
    ls_result += ls_col_names + "~r~n"
    
    // 逐行读取结果
    do while True
        FETCH cur_dyn INTO DESCRIPTOR SQLSA ;
        if SQLCA.SQLCode <> 0 then exit
        
        for j = 1 to li_col_count
            ls_result += SQLSA.GetDynamicString("#" + String(j)) + "~t"
        next
        ls_result += "~r~n"
        ll_rows += 1
    loop
    CLOSE cur_dyn ;
    ls_result += "~r~n=== 共读取 " + String(ll_rows) + " 行数据 ==="
elseif SQLCA.SQLCode = -1 then
    // 查询执行失败，尝试执行非查询语句
    EXECUTE IMMEDIATE :ls_sql ;
    if SQLCA.SQLCode = 0 then
        ls_result += "=== SQL执行成功！影响行数：" + String(SQLCA.RowsAffected) + " ==="
    else
        ls_result += "=== SQL执行失败！错误信息：" + "~r~n" + SQLCA.SQLErrText + " ==="
    end if
else
    ls_result += "=== SQL执行完成，无结果集返回 ==="
end if

// 把结果显示到多线编辑框（可选）
mle_result.Text = ls_result

五、将结果保存为文本文件 #

最后在cb_execute的Clicked事件末尾添加保存逻辑：

string ls_save_path, ls_save_filename, ls_full_save_path
integer li_save_rc, li_save_file

// 弹出保存文件对话框
li_save_rc = GetFileSaveName("保存执行结果", ls_save_path, ls_save_filename, "TXT", "文本文件 (*.txt), *.txt")
if li_save_rc = 1 then
    ls_full_save_path = ls_save_path + "\" + ls_save_filename
    // 创建并写入文件
    li_save_file = FileOpen(ls_full_save_path, StreamMode!, Write!, LockWrite!, Replace!)
    if li_save_file > 0 then
        FileWrite(li_save_file, ls_result)
        FileClose(li_save_file)
        MessageBox("成功", "执行结果已保存到：~r~n" + ls_full_save_path)
    else
        MessageBox("错误", "无法创建保存文件，请检查路径权限！")
    end if
end if

六、注意事项 #

• 多语句脚本处理：如果你的SQL脚本包含多个用分号分隔的语句，上面的代码只能执行第一个。需要额外添加逻辑拆分SQL语句（按分号分割，注意处理字符串中的分号），逐个执行并拼接结果。
• 权限问题：确保PowerBuilder程序有读取SQL文件和写入结果文件的系统权限。
• 大文件/大结果集：如果脚本或结果集很大，建议边读取边写入文件，避免内存占用过高。
• 特殊字符处理：如果结果中包含特殊字符（如中文、制表符），确保使用正确的编码（PB默认是ANSI，如需UTF-8可以调整文件打开模式）。

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