-
等级
本版专家分：0结帖率 91.67% -
MSHFlexGrid1如何将sql数据库中的数据全部显示出来？如何将显示出来的数据进行导出，导出到excel？展开阅读全文
-
等级
本版专家分：70
-
超过65335会死的！！！
-
等级
本版专家分：0
-
最多就几千条，不会超过1万的，放心！
MSHFlexGrid1如何将sql数据库中的数据全部显示出来？如何将显示出来的数据进行导出，导出到excel？
-
等级
本版专家分：27986勋章
-
-
红花
2008年10月 VB大版内专家分月排行榜第一
2008年9月 VB大版内专家分月排行榜第一
2008年8月 VB大版内专家分月排行榜第一
2008年7月 VB大版内专家分月排行榜第一
-
-
'这个是增加至ListView中的.
Private Sub Command1_Click()
Dim Item As ListItem
ListView1.View = lvwReport
For i = 1 To MSHFlexGrid1.Cols - 1
ListView1.ColumnHeaders.Add , , "第" & i & "列"
Next
For i = 1 To MSHFlexGrid1.Rows - 1
Set Item = ListView1.ListItems.Add(, , MSHFlexGrid1.TextMatrix(i, 1))
For j = 2 To MSHFlexGrid1.Cols - 1
Item.SubItems(j - 1) = MSHFlexGrid1.TextMatrix(i, j)
Next
Next
End Sub
'这个是增加至List1中的,因List1中只能有一列,所以就只增加MSHFlexGrid1的第一列
Private Sub Command2_Click()
For i = 1 To MSHFlexGrid1.Rows - 1
list1.AddItem MSHFlexGrid1.TextMatrix(i, 1)
Next
End Sub
-
等级
本版专家分：0
-
你搞错了，我是要把sql数据库中的所有数据都在MSHFlexGrid1中全部显示出来？然后将显示出来的数据进行导出，导出到excel？看明白了吧？
-
等级
本版专家分：39410勋章
-
- 蓝花 2007年9月 VB大版内专家分月排行榜第三
-
-
连接数据库之后,打开数据表,一条记录一条记录读,然后按照字段逐个填到GRID里面去.
导出的话么,用EXCEL对象,再按照GRID一格一格写进EXCEL再保存,看明白了吧?
这些东西论坛上都有现成的代码的.楼主自己稍微花点力气搜索一下就有了
-
等级
本版专家分：0
-
连接数据库之后,打开数据表,一条记录一条记录读,然后按照字段逐个填到GRID里面去.
导出的话么,用EXCEL对象,再按照GRID一格一格写进EXCEL再保存,请问代码怎么写，好人做到底，谁能告诉我啊？
-
等级
本版专家分：554 -
显示应该很简单三，用一个adodc控件连接数据表，MSHFlexGrid1的datasource设成adodc就ok了。导出麻烦点，先创建一个excel对象，然后打开，用循环语句把数据依次写入到excel工作表中，然后保存excel文件。
-
等级
本版专家分：39410勋章
-
- 蓝花 2007年9月 VB大版内专家分月排行榜第三
-
-
楼主莫非是连一点点代码都没有写??
或者是什么都不会呢?
如果你有现成的代码,调试不通,或许帮你看看会比较简单些.
-
等级
本版专家分：0
-
以下是我的代码，但只能导出MSHFlexGrid1中显示的数据，但MSHFlexGrid1中显示出来的不是所有数据
Private Sub Command11_Click()
On Error Resume Next
If MSHFlexGrid1.TextMatrix(1, 2) = "" Then
MsgBox "没有数据导出", vbInformation, "提示"
Exit Sub
End If
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
Set excelApp = CreateObject("Excel.Application")
Dim exbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Set exbook = excelApp.Workbooks.Add
excelApp.SheetsInNewWorkbook = 1
excelApp.Visible = False '是否显示导出过程(true是)
excelApp.UserControl = True
Me.MousePointer = vbHourglass '控制鼠标为读取数据
With excelApp.ActiveSheet
.Range("h1:h1") = "报表日期:" & Format$(Date, "yyyy-mm-dd")
End With
With excelApp.ActiveSheet
.Range("a1:a1") = "代码"
.Range("b1:b1") = "拼音码"
.Range("c1:c1") = "人员名称"
.Range("d1:d1") = "工作类型"
.Range("e1:e1") = "部门代码"
.Range("f1:f1") = "部门名称"
End With
With excelApp.ActiveSheet
.Cells(2).ColumnWidth = 8 '第一列
.Cells(3).ColumnWidth = 8 '第二列
.Cells(4).ColumnWidth = 8 '第三列
.Cells(5).ColumnWidth = 8 '第四列
.Cells(6).ColumnWidth = 8 '第五列
.Cells(7).ColumnWidth = 16 '第六列
End With
With excelApp.ActiveSheet
For i = 1 To MSHFlexGrid1.Rows
For j = 1 To MSHFlexGrid1.Cols
.Cells(i + 1, j).Value = "" & Format$(MSHFlexGrid1.TextMatrix(i, j))
Next j
Next i
End With
With excelApp
abc = Format$(Date, "yyyymmdd") & "人员信息表"
aa = .Dialogs(xlDialogSaveAs).Show(abc) '
.Workbooks(1).Saved = True '不提示保存对话框
End With
Me.MousePointer = 0 '释放鼠标为读取数据
exbook.Close (True) '关闭EXBOOK
excelApp.Quit '退出
Set exsheet = Nothing '释放EXCEL
Set exbook = Nothing '释放EXCEL
Set excelApp = Nothing '释放EXCEL
MsgBox "导出成功！", vbOKOnly + vbInformation, "消息提示"
End Sub
-
等级
本版专家分：0
-
哈哈，我自己解决了这个问题，我打了补丁就可以全显示了！
- WINCC用VB读写数据库以及EXCEL导出
本文主要是介绍WINCC7.4 用VB来读写SQL server数据库，网上有不少这类例子，实现功能的方法也很多，但是能完整介绍并且贴出所有编码的还是比较少，今天的这个例子，我会先把所有的内容先截图展示，然后再提供整个...
- mysql代码导出excel_数据库导出excel代码
GridView导出为Excel后，导出的.xls文件无法...可以参考我之前的一篇文章：GridView导出到Excel和开源图表工具这种文件是可以在Excel程序里正常打开的，但如果使用这种文件作为数据源文件再进行...文章m2land2008-12...
- 将MSHFlexGrid中的查询结果导出到excel
在敲“充值记录查询“窗体的时候，要求可以将数据导出到excel中。在这个环节上，遇到了那个我一直不是很熟悉的循环语句。 不过还好，终于在不断的尝试中基本掌握了。现在就以”充值记录查询“窗体为例，来纪念一下...
- vb如何将查询到的记录导出为Excel
首先你需要点工程菜单，然后选用引用，找到MicrosoftExcel 12.0 Object Library，然后选中引用即可。中间的12.0是版本号，可能由于你的...'导出为Excel表格 Private Sub ExcelCmd_Click() Dim Introws As Integer
- Wonderware-InTouch 报表查询SQL数据库，用表格控件做出的报表图例
每个【Intouch】项目都会或多或少的与各种【数据库】打交道，由于项目各异以及intouch自带报表的功能有限制，在报表外观样式，颜色，增删改查，过滤搜索，排序以及数据库的备份和删除等一些处理方式上大都不能完全...
- matlab 另存为excel_将matlab数据保存为excel文件
读取：A = xlsread('Excel路径+Excel的名称'，'工作表名称')例子：A = xlsread('创新班.xlsx','Sheet2')A =xlsread('创新班.xlsx','Sheet2','a1:c1') %读取a1 b1 c1的数据不写工作表名称，默认是第一个。写入：...
- MSHFlexgrid控件的内容导出到Excel
做了机房收费系统后发现有一个功能块是几乎不用动的，那就是到处excel,原谅我只是打了一遍，因为我发现每次都是不用变的，下面就把这段代码分享给大家。 Dim newXls As Excel.Application Dim newsheet As Excel....
- 【转】SQL Server数据表在编程中实现导出EXCEL的几种方法
SQL Server数据表在编程中实现导出EXCEL几种方法 ---快速将SQL Server 数据库表（或网格控件）数据导出EXCEL关键字: SQL Server2000、Select高级查询、MsFlexGrid、MsHFlexGrid、ListView、EXCEL和VB6前言： 目前...
- SQL Server数据表在编程中实现导出EXCEL的几种方法
SQL Server数据表在编程... ---快速将SQL Server 数据库表（或网格控件）数据导出EXCEL 关键字: SQL Server2000、Select高级查询、MsFlexGrid、MsHFlexGrid、ListView、EXCEL和VB6 前言： 目前，随着电脑技术知...
- 【数据库学习】机房收费系统（三）导出Excel
前言 机房收费系统中有一些和外界交互的突破，导出Excel就是一个明显的例子。Excel让机房收费系统的数据更加方便的导出，借用Excel更好地服务于... 查询所要实现的功能，是将数据库表中相应的数据显示到MSHFlexgrid中
- vb中将flexgrid表中数据导出至Execel及其相关知识
在学习SQL时，我们就接触到数据的导入和导出，现在我们刚做完机房收费系统，接触到了将数据导出至EXCEL表中，我就来简单的介绍一下我实现它的方法。 由于在此系统中，我们要导出多次EXCEL数据，所以我将他们共同的...
- 老朋友---MSHFlexGrid1
在学生管理系统中初次结识--MSHFlexGrid1 控件，感觉它只是对查询数据的分类显示。在机房收费系统中，再次和它相识，感觉他功能真的很强大的，现在来慢慢的揭开它一层薄薄的面纱吧。 内容： 首先，介绍一下...
- 导出Excel
界面VB导出Excel的优点:个人感觉将查询到的内容以表格形式导出，更直观，也很方便，方便信息的整理。代码:Dim i As Integer Dim j As IntegerDim xlApp As Object '必须这样定义 Dim xlBook As Object Dim xlSheet ...
- vb数据库编程（二）--数据控件
转自SOHU博客VB菜鸟学堂
- 机房收费系统————导出到Excel
机房收费系统中有很多之前在敲学生的时候没有接触到的功能，遇到的第一个陌生的就是把数据导出到Excel中，那么这个功能是怎么实现的呢？ 首先，在VB中“工程”——>”引用"中添加引用 如果没有这个选项，单击右边...
- VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，...
vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等
- 不断拾金——导出为EXCEL
将查询到的MSHFlexGrid中的内容导出为Excel： 首先：通过工程——引用——浏览添加EXCEL.exe。路径：C:\Program Files\Microsoft Office\Office15 接着：工程——引用——Microsoft Excel 15.0
- 机房收费系统 Part Six——MSFlexGrid控件总结
在敲机房的时候，好多个窗体都用到了MSFlexGrid控件，
- Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part1
实例216 将SQL Server数据库中的image数据 类型的图形文件导出为.bmp文件 383 4.13 数据库和其他文件的转换 384 实例217 将硬盘文件目录转为数据库数据 384 实例218 将数据库文件转换为文本文件 386 实例219 将...
- VB MSFlexGrid控件的几种使用方法
'MSFlexGrid赋值的方法 ... MSFlexGrid1.TextMatrix(0, 1) = "老师" MSFlexGrid1.TextMatrix(1, 2) = "学生" MSFlexGrid1.TextMatrix(2, 3) = "校长" MSFlexGrid1.TextMatrix(3, 4) = "班主任" MSFlexGrid
- VS.NET打印思想与2003/5DataGrid、DataGridView及二维数据如ListView等终极打印实现（全部源码）...
http://www.cnblogs.com/showna/articles/530889.html关 键 字：VS.NET、打印、DataGrid、DataGridView、ListView、DataTable、二维数据打印日 期：2005-12-16金质打印通：下载源码 文章摘要 通过核心的打印二维...
- 开源：VS.NET打印思想与2003/5DataGrid、DataGridView及二维数据如ListView等终极打印实现（全部源码）
开源：VS.NET打印思想与2003/5DataGrid、DataGridView及二维数据如ListView等终极打印实现（全部源码）关 键 字：VS.NET、打印、DataGrid、DataGridView、ListView、DataTable、二维数据打印日 期：2005-12-16...
- 开源：VS.NET打印思想与2003/5DataGrid、DataGridView及二维数据如ListView等终极打印实现（转）
关 键 字：VS.NET、打印、DataGrid、DataGridView、ListView、DataTable、二维数据打印 日 期：2005-12-16 金质打印通：下载源码 文章摘要 通过核心的打印二维网格的程序，无论你用的是VS.N
- 机房收费系统（一）
1.在MDI窗体上不能使用控件，需要用一个容器来放控件，比如使用picturebox控件来当做容器，这时真能体会到巨人的力量，这时我查到了另外一种方法。用一个窗体做容器,把这些控件放到窗体上,前提是要把窗体设置为子...
- 我在CSDN参与的3000个帖子
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐...
- VS.NET打印思想与2003/5DataGrid、DataGridView及二维数据如ListView等终极打印实现
当.NET时代到来时，我们在高兴激动的时候，把自己的系统升级到.NET或是用它开发新的系统。 打印－－管理信息系统永恒的话题。于是，我们在开发业务系统的时候不得不再专门做一个打印组件或是购买一个中间件完成单据...
- vb/vb.net开发精粹(7)
一个简单的句子，却搞不定 flexcell 单元格图像问题 谁知道tar.gz文件在vb中解压命令如何写 ◆求让一个窗体成为另一个窗体对话框的API写法◆ 请教了：如何获取控件listview的消息常量 ...vb中操作excel问题，如何
- Python教程2020版 完全入门 达到Python工程师水平 笔记+代码+课件+资料
Python教程2020版 完全入门 达到Python工程师水平 笔记+代码+课件+资料
- Visual Studio 2019(中文版）.rar
vs2019堪称宇宙最强大的IDE软件，还可支持python开发，其功能之强大不言而喻。本资源包括三种版本的vs2019中文版，选择一种下载即可。
- 垃圾分类数据集及代码
资源说明： 数据集主要包括6类图片：硬纸板、纸、塑料瓶、玻璃瓶、铜制品、不可回收垃圾 代码运行说明： 1、 安装运行项目所需的python模块，包括tensorflow | numpy | keras | cv2 2、 train.py用于训练垃圾分类模型，由于训练的数据量过于庞大，因此不一并上传 3、 predict.py用于预测垃圾的类别，首先运行predict.py，然后输入需要预测的文件路径，即可得到结果。