下面是李洪根老师写的
但我不能用,请高手写详细一点
也可通过别的方法,只要能实现打印记录集即可,谢谢!
在VB6中应用ADO导出EXCEL文件代码:
dim cn As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
但我不能用,请高手写详细一点
也可通过别的方法,只要能实现打印记录集即可,谢谢!
在VB6中应用ADO导出EXCEL文件代码:
dim cn As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
明显遗漏了什么,再看看源代码。
生成了工作表后,就可以对EXCEL发出打印指令了。
注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作,以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件,让用户觉得莫名其妙。如下语句:
xlBook.Save ‘保存文件xlSheet.PrintOut ‘执行打印xlApp.Quit ‘退出EXCEL 至此读者应该看到,我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程,他们只看到一张张漂亮的报表轻易地被打印出来了。