易截截图软件、单文件、免安装、纯绿色、仅160KB

Access導出Execl

VB+Access做的系統,
為方便查閱與打印,
需導出為execl表格,
help。
環境:Access表是Access 2000;

网上很多,百度一下

关注!

窗体代码
VB code:

Private Sub outcstinf_Click() '导出资料为XLS
Dim i As Integer '行
Dim j As Integer '列
Call openXLT("Custom.xlt")'Custom.xlt是一个与要导出的数据表格式相同的excel模板文件
Call OpenConn
sql = "select * from 要导出的表 ORDER BY 用于排序的字段(一般是编号) ASC"
rs.Open sql, cn, 1, 1
If rs.RecordCount < 1 Then
MsgBox "数据库中没有记录!": Exit Sub
Else
i = 2'从xls的第二行开始写入(模板中第一行已作为字段名保留)
Do While Not rs.EOF
For j = 0 To rs.Fields.Count - 1 '循环数据表的0至最后一列
xlsheet.Cells(i, j + 1) = rs.Fields(j) '写入(数据表字段索引是从0开始,而xls的列示从1开始, 因此要j+1)
Next
rs.MoveNext
i = i + 1 '跳到i+1行继续写入
Loop
End If
Call CloseConn
Call closeXLT
sql = ""
End Sub


模块代码
VB code:

Public xlApp As Excel.Ap


相关问答:

php 使用 ADODB 连接Access 的问题

<?php

include("adodb/adodb.inc.php");

$db = &NewADOConnection("access");
$access = realpath("Data.mdb");
$dsn = "Provider=Microsoft.J ......

请教access数据库动态生成的问题

//**********************************
//程序功能:创建Access数据库和数据表
//**********************************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, ......

access 查询记录的问题?

问题如下:

用查询语句
select * from tab where fil like 'CK090902'能查找出一条记录并显示出来
改为
select * from tab where fil = 'CK090902'
就不能查找到,也显示不出来 ......

同时读取access两张表

请教
在access中 我有表1
id1    id2      id3      id4
  1      2      3        0
  2&nb ......

连接带密码的ACCESS数据库写法

dim conn
dim connstr
dim db
dim dbpaswd  (这个密码加在哪)
db=dbpath&"/"&dbname
connstr="DBQ="+server.mappath(""&db&"")+" ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号