在VB中用代码打印ACCESS报表

在VB中用代码打印ACCESS报表的相关文章

• 
  教程: 在VB中用代码打印ACCESS报表

  标签：编程语言 网络编程

  Set objACC = CreateObject("Access.Application") objACC.OpenCurrentDatabase "c:db.mdb" objACC.DoCmd.OpenReport "表报一" objACC.Quit Set objACC = Nothing [ 查看全文 ]

  雅茹0809

  141
• 
  VB中打印ACCESS报表

  Dim acc As Object Set acc = CreateObject("Access.Application") If Right$(Trim$(App.Path), 1) = "\" Then acc.OpenCurrentDatabase App.Path & "data.mdb" '打开数据库 Else acc.OpenCurrentDatabase App.Path & "\data.mdb" End If acc.docmd.OpenReport "打印准考证" ', acPreview 打印报表“打印准考证” acc.Quit Set acc = Nothing使用ACCESS报表主要缺点就是不能预览[ 查看全文 ]

  c唯美y

  1031
• 
  在VB通过vsreport运用ACCESS地报表

  标签：编程语言 网络编程

  在VB中也可使用ACCESS的报表 通过vsreport这个控件，你完全可以使用ACCESS来设计好报表，然后在VB中调用这些报表，效果与你直接在ACCESS调用报表一样。 VB的报表一直是它的弱项，在以前很长一段时间我都是使用这个方法来做报表的,因为有段时间曾经帮香港的朋友做了几个VB的系统，但他们比较喜欢ACCESS的报表，所以使用这个方法来实现。 不过，这个控件，在有子报表的时间会有一些小问题...[ 查看全文 ]

  j快乐自己123

  41
• 
  在VB中用API实现多媒体

  标签：编程语言 网络编程

  在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中)： 1.′播放CD和AVI所需要的声明。 DeclareFunctionmciSendStringLib″MMSYSTEM″(ByVal lpstrCommandasString，ByVallpstrReturnStrasAny,By ValwRetumLenasInteger,ByValhCallBackasInteger)as Long ′播放WAV所需要的声明 DeclareFunctionsndPlaySoundL...[ 查看全文 ]

  Yang1996911

  41
• 
  在VB6.0中实现动态统计报表

  标签：编程语言 网络编程

  在利用VB开发MIS系统的过程中,经常需要制作动态统计报表。本文就如何实现动态数据源下的分组交叉统计报表进行阐述，并结合实例给出编程指导。 在VB6.0的数据环境设计器中,我们可以利用“添加命令”一项来连接报表所需的数据源,同时利用“添加命令”属性中的分组与合计功能设计分组交叉统计报表的数据源,至此我们可以设计简单的数据存在于单一表静态数据源下分组交叉报表,对于数据存在多表的复杂的动...[ 查看全文 ]

  duoerlove520

  21
• 
  在VB中运行MicrosoftAccess报表的好方法

  标签：编程语言 网络编程

  在VB中如何使用直观、简便的报表一直是很多人关心的问题，CrystalReports用起来又不太理想。现介绍一在VB中运行MicrosoftAccess报表的方法，用起来还不错。 利用Automation运行MicrosoftAccess报表 1.使用MicrosoftAccess建立数据库(如：novelty.mdb)的相关报表(如：rptEmployess)。 2.创建引用 在VB中使用“ProjectReferences"菜单创建一个对MicrosoftAccess8.0ObjectLi...[ 查看全文 ]

  1向前看1

  251
• 
  在VB中用DAO实现数据库编程

  标签：vb

  DAO(Data Access Object)全称为数据访问对象，它是数据库编程的重要方法之一。DAO的一种面向对象的界面接口,特色为它不是可视化的对象，使用它全部都要靠编码来完成，DAO是设计关系型数据库系统结构的对象类的集合。它提供了完成管理这样一个系统所需的全部操作的属性和方法，包括创建数据库，定义表、字段和索引，建立表间的关系，定位和查询数据库等工具。由于ADO(ActiveX Data Object ActiveX 数据...[ 查看全文 ]

  我不是一个法师

  811
• 
  在VB中压缩ACCESS数据库

  标签：vb

    如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压缩不会影...[ 查看全文 ]

  简单如此着迷

  1101
• 
  Access如何制作复杂报表

  标签：编程语言 网络编程

  何制作复杂报表——利用excel输出复杂报表     在读这篇文章以前首先要提醒大家，Access 本身的报表也具有很强的实用性和强大的功能，只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显，使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel （当然，你得在一台机器上同时安装 Access 和 Excel），当然如果你和我一样拥有工...[ 查看全文 ]

  4299776

  01
• 
  在vb中动态加载水晶报表rpt文件的方法

  这个问题在很多论坛里边都有问到。但是一直没找到满意的答案。下边写出一个解决办法 Dim sql As String Dim rstLiuShui As New ADODB.Recordset Dim Rpt As New CRAXDDRT.Report Dim PrintApp As New CRAXDDRT.Application If Option2.Value = True Then sql = "select * from n_ihbill where datediff(d,日期,'" & Format(DTPicker1.Value, "yyyy-MM-dd") & "')=0 and 住院号=" & cbopatient.ItemDa...[ 查看全文 ]

  eadgiyuh

  6371
• 
  Access如何制作复杂报表——利用Excel输出复杂报表

  标签：编程语言 网络编程

  如何制作复杂报表——利用excel输出复杂报表     在读这篇文章以前首先要提醒大家，Access 本身的报表也具有很强的实用性和强大的功能，只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显，使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel （当然，你得在一台机器上同时安装 Access 和 Excel），当然如果你和我一样拥有...[ 查看全文 ]

  刘jia大绍爷

  161
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(7)

  标签：ASP

  这些代码是针对Microsoft Exchange Server 5.5开发的，对服务器不一定可用，我在Imail 7.04上就用不了，可能是因为两个服务器对邮件的处理有点不同，譬如在Exchange上每个邮件都有一个唯一的ID，是不变的。但在Imail上就不一样了，它的邮件ID是可变的，譬如你有20封邮件，它就是从1排到20，如果你删掉了第17封，那第18封开始的ID就会自动减1。 保存附件的那个目录必须有足够的权限，而且必须WEB共享，当断...[ 查看全文 ]

  没有生命的海

  31
• 
  VB中用API实现文件拖放

  标签：vb

  对于每个需要引用的API函数，我们需要先在程序中说明，如果只在某一窗体内声明并使用它，则把它声明为Private，而如果在模块中声明，且需要在整个工程内使用它，则需要把它声明为Public。 Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&) Public Declare Sub DragAcceptFiles ...[ 查看全文 ]

  top19890319

  1261
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(1)

  标签：ASP

  读取邮件主题和大小(maillist1.asp) <%@ LANGUAGE="VBSCRIPT" % <% '************************************************ '这个文件列出所有邮件，并把邮件内容显示窗口置为空白窗口 '作者：awayeah '邮箱： [email protected] /* */ '************************************************ % <script language=vbscript parent.frmbottom.location.href...[ 查看全文 ]

  似梦非梦嗷嗷

  61
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)

  标签：ASP

  读取邮件内容和附件(showbody1.asp) <%@ LANGUAGE="VBSCRIPT" % <% '************************************************ '这个文件显示邮件的内容和附件 '作者：awayeah '邮箱：awayeah@163.net '************************************************ % <html <head <title读邮件</title </head <body <% SET POP3=session("POP3") x = POP3.Connect() If x < 0 Then Resp...[ 查看全文 ]

  安裕百货批发店

  11
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(3)

  标签：ASP

  保存附件(saveatt.asp) <%@ Language=VBScript % <% '************************************* '这个文件用来下载附件 '作者：awayeah '邮箱：awayeah@163.net '************************************* Dim fso, tempfile Set fso = CreateObject("Scripting.FileSystemObject") Dim tfolder, tname, tfile ' Const TemporaryFolder = 2 ' Set tfolder = fso.GetSpecialFolder(TemporaryFolder) se...[ 查看全文 ]

  小静美食铺

  41
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)

  标签：ASP

  发送邮件的界面(sendmail1.asp) <%@ LANGUAGE="VBSCRIPT" % <% '************************************* '这个文件是发送邮件或回复邮件的界面 '作者：awayeah '邮箱：awayeah@163.net '************************************* '取得回信地址 replyaddr=Request.QueryString("addr") '取得要回邮件的主题 replysubj=replace(Request.QueryString("subject"),"_",space(1)) % <script language=...[ 查看全文 ]

  和蔼的热水袋

  21
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(5)

  标签：ASP

  发送邮件(p_sendmail.asp) <%@ Language=VBScript % <% '************************************* '这个文件用来发送邮件 '作者：awayeah '邮箱：awayeah@163.net '************************************* if session("straccount")="" or session("strpassword")="" then Response.End end if % <HTML <HEAD <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0" </HEAD &l...[ 查看全文 ]

  lhp5580

  21
• 
  在ASP中用EasyMailObject组件处理Exchange邮件源代码(4)

  标签：ASP

  删除邮件时调用的文件(mail_prc.asp) <%@ Language=VBScript % <% '************************************* '这个文件是删除邮件时调用的 '作者：awayeah '邮箱：awayeah@163.net '************************************* dim cc,cc1,sep,dd '取得邮件总数 msgcount = session("msgcount") sep="," for i=1 to msgcount dd="c"+cstr(i) msgid=cstr(Request.Form (dd)) if msgid="" then cc1=cc1+m...[ 查看全文 ]

  追梦赵大师

  21
• 
  在Access报表中每隔N行显示一条粗线

  标签：编程语言 网络编程

  问题： 1.如何在报表中每隔N行显示一条粗线 2.如何为报表增加一个行号列？ 回答： ◆1、在设计模式里打开该报表，在报表主体里面加一个TextBox，把Name属性改为InputID。 ◆2、把InputID的控件[ 查看全文 ]

  终极幻想Happy

  21