各位，怎样才能在最快最省事的把一个数据库（DBF格式）打印出来？？？

2001-01-17 08:45:00 188 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Flink CDC 实战：5分钟搞定PostgreSQL数据实时同步（附避坑指南）本文详细介绍了如何使用Flink CDC实现PostgreSQL数据的实时同步，包括环境配置、逻辑复制槽创建、Flink环境搭建及实战验证。通过5分钟快速指南，帮助开发者高效搭建实时数据管道，并提供了常见问题排查和生产环境优化建议。阅读详情

我用的是ADODB连接的数据库，因为动态查询的结果需要打印，大家帮帮偶吧！！！

...全文

Dify工作流构建案例：迭代驱动的多维深度搜索为了克服这些挑战，我们可以设计一个能够智能协同内部知识库与外部互联网搜索，并最终由大型语言模型（LLM）进行深度整合与精准回答的高级工作流。阅读详情

xpwang

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

xpwang 2001-01-19

打赏
举报

谢谢了，已经搞定了

xpwang 2001-01-18

打赏
举报

Isee_you@263.net <Isee_you@263.net>

你的信箱是不是有问题哦
给我退回来了

我的数据表最多时有字段40个，我在打印是让用户选择需要的字段打印，当用户选择完后便在基础表（有40个字段的表）上
形成一张打印表，而这张打印表需要转换到能够打印的控件里，如果你有原代码的话，麻烦你发一份给我，谢谢了!!!
mailto:xpwang7@163.net
xpwang@chinese.com
> 你可以导出到EXCEL表里再打，我就是那么做的。
> 这里我以前粘过一篇文章，那个文章里有一个源程序下载的联接，如果下载不过给我发EMAIL，我可以给你EMAIL过去。
> http://www.csdn.net/develop/read_article.asp?id=2226

这是我的部分原代码
Private Sub Print_Click()
Temp = 0
For i = 0 To List1.ListCount - 1
If (List1.Selected(i) = True) Then
FieldName(Temp) = List1.List(i)
Temp = Temp + 1
End If
Next i
FieldStr = FieldName(0)
If Temp > 0 Then
i = 0
For i = 1 To Temp - 1
FieldStr = FieldStr & "," & FieldName(i)
Next i
End If
Dim sql As String
RS.Close
On Error Resume Next
Connect.Execute ("drop table Print")
Connect.Execute ("select " & FieldStr & " into Print from query")‘该表有40个字段
RS.Open "select * from Print", Connect, adOpenStatic, adLockOptimistic’该表字段数为用户选择个数，<=40个
’*********************************************
‘下面需要将Print.dbf转换到可以打印的载体中进行打印
’*********************************************
Unload Form1
End Sub

michaelpeng7799 2001-01-17

打赏
举报

你可以导出到EXCEL表里再打，我就是那么做的。
这里我以前粘过一篇文章，那个文章里有一个源程序下载的联接，如果下载不过给我发EMAIL，我可以给你EMAIL过去。
http://www.csdn.net/develop/read_article.asp?id=2226

无言无忌 2001-01-17

打赏
举报

用DataReport可以，也挺快的。

各位，怎样才能在最快最省事的把一个数据库（DBF格式）打印出来？？？

相关推荐