社区
多媒体
帖子详情
小问题,但很急,请高手向助!!!!!
agp
2003-07-01 08:41:52
我想把数据库中一个表的一些记录直接输出到EXCEL模板中(我已经建了一个模板),记录数不到确定有多少.请各位指点
...全文
108
2
打赏
收藏
小问题,但很急,请高手向助!!!!!
我想把数据库中一个表的一些记录直接输出到EXCEL模板中(我已经建了一个模板),记录数不到确定有多少.请各位指点
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wynbfqny
2003-07-01
打赏
举报
回复
【VB与数据库应用一例:生成EXCEL表】
这个程序可以将下图表格中(mshflexgrid控件)的数据生成一个excel表,这样可以省去用vb来编写打印排版程序的麻烦。想一想自已动手用vb或delphi写一个像excel的排版功能一样的东东,是多么的恐怖!!。所以,嘿嘿。。
原程序下载:
因为我用的是access2000的样本数据库---northwind.mdb 所以安了office2000的可以下载下面这个:(不代northwind.mdb,下载后请将office2000里那个copy到这个程序的目录中就行)
go.163.com/~chunpeng/project/printexcela.zip
没有northwind.mdb的可以下载这个:
go.163.com/~chunpeng/project/printexcel.zip
高手可以直接看下面,如果用vb做过数据库应用的朋友给点意见,这种方法我曾在多个mis系统中见过,只不过生成的是word文档。这是一种比较典型的方法。
public withevents rs as adodb.recordset
dim conn as adodb.connection
dim mypanel as panel
private sub form_load()
set rs = new adodb.recordset
set conn = new adodb.connection
conn.cursorlocation = aduseclient
conn.open "provider=microsoft.jet.oledb.4.0;data source=" + app.path + "\northwind.mdb;"
rs.open "select *from 产品", conn, adopenstatic, adlockoptimistic
set msgrid1.datasource = rs
statusbar1.panels.clear
set mypanel = statusbar1.panels.add(, "record")
mypanel.autosize = sbrcontents
mypanel.text = "总共有" & " " & rs.recordcount & " " & "条记录"
end sub
private sub form_resize()
with msgrid1
.left = 0
.top = toolbar1.height
.width = me.scalewidth - 10
.height = me.scaleheight - (statusbar1.height + 700)
end with
end sub
private sub print_cmd_click()
form2.show
dim myexcel as new excel.application, i, j, k as integer, col as string
with myexcel
on error goto excle
.application.visible = false
.workbooks.add
’***********画字段************
j = 0
’example: b2 ----g2 ’列 本程序从b列,和第2行开始
for i = 66 to (66 + rs.fields.count - 1) ’从rs中头一个字段到最后一个
col = chr(i) & "2" ’chr(66)就是b
’debug.print col
range(col).select
activecell.formular1c1 = rs.fields(j).name ’
j = j + 1
next i
’****************************
’*************以先横后竖顺序画表***************
k = 0
rs.movefirst
doevents
for j = 3 to 3 + rs.recordcount ’本程序从b3开始,所以用3
k = 0
for i = 66 to (66 + rs.fields.count - 1)
col = chr(i) & cstr(j) ’得到目标表格的值如 c3
range(col).select
activecell.formular1c1 = rs.fields(k)
k = k + 1
next i
on error resume next
form2.probar.value = form2.probar.value + 1
rs.movenext
if rs.eof = true then
unload form2
.application.visible = true
end if
next j
’************************************
end with
exit sub
excle:
msgbox ("您没有安装excle2000,请先安装excel2000")
end sub
摘自:IT365 时间:2001年3月2日
zwbhyy
2003-07-01
打赏
举报
回复
查找的记录数计算出来不就可以了
select count(*) from table where ......
Excel实现GPT::上下文越大,预测越准 -「上下文窗口」Excel 演示
「LLM那些事」系列第 4 篇《上下文窗口的边界》,文章连接:https://blog.csdn.net/houwenjin/article/details/163999753。 演示什么:在「预测」Sheet 的黄色格子里输入一句话(默认「来泡一杯」),四个「模型」——分别只统计最后 1 / 2 / 3 / 4 个字的 n-gram 查表——同时预测下一个字。同一个输入,看的上下文越长,候选越少、预测越确定: ┌────────────────┬──────────┬───────────────┬──────┐ │ 只看最后几个字 │ 用的前缀 │ 候选下一字数 │ 预测 │ ├────────────────┼──────────┼───────────────┼──────┤ │ 1 个 │ 杯 │ 3(茶/子/水) │ 模糊 │ ├────────────────┼──────────┼───────────────┼──────┤ │ 2 个 │ 一杯 │ 2(茶/水) │ 收窄 │ ├────────────────┼──────────┼───────────────┼──────┤ │ 3 个 │ 泡一杯 │ 1(茶) │ 确定 │ ├────────────────┼──────────┼───────────────┼──────┤ │ 4 个 │ 来泡一杯 │ 1(茶) │ 确定 │ └────────────────┴──────────┴───────────────┴──────┘
运动场馆预约小程序源码-下载即用.zip
代码下载链接: https://pan.quark.cn/s/9b9011ebc861 一款主要用于城市运动预约的工具类程序——运动场馆预约小程序,其核心服务面向20至45岁的运动爱好者群体。该程序提供前后端完整的代码实现,内容涵盖场馆最新动态、运动相关知识普及以及多种场地与设施预约功能,具体包括羽毛球场地、足球场地、篮球场地、健身房、乒乓球场地、游泳场地和网球场地的预约服务。使用者可根据自身运营状况,对提供的场馆类型进行选择性采纳或增添新的场地种类。此程序设计兼具通用性与灵活性,既可满足大型综合性文体中心的需求,也能够适配于羽毛球馆、健身房、乒乓球馆等单一类型的运动场馆。基于腾讯平台提供的技术支持,运动场馆预约小程序能够有效提升城市运动资源的预约与管理效率。
Python DenseNet121 CIFAR-10 十类图像分类
Python DenseNet121 CIFAR-10 十类图像分类 在 CIFAR-10 上训练 DenseNet121 分类模型,输出混淆矩阵、history.csv 与损失曲线,数据自动下载。 功能: · CIFAR-10 十类 · DenseNet121 密集连接 · 混淆矩阵 · 损失曲线 · 自动下载数据 · 打包时预跑 output/preview 压缩包含可运行源码、依赖与说明,按 README 安装后即可复现。
LED灯锁螺丝包装线.rar
LED灯锁螺丝包装线.rar
西南科技大学数电实验Multisim仿真合集
数电实验仿真合集,欢迎补充
多媒体
807
社区成员
8,274
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章