vb中如把SQL数据库调入EXCEL进行打印!!急!!!!!请大家指点

Question

新手上路请大家指点

Answer 1

Private Sub Command1_Click()    Dim cn  As New ADODB.Connection
    
    cn.Open "Driver={SQL Server};Server=yangao;DataBase=xinzi20050221;UID=sa;PWD=12345;"
    
    cn.Execute "master..xp_cmdshell 'bcp ""select * from xinzi20050221.dbo.CaoZuo"" queryout c:\temp2.xls -c -S yangao -U sa -P 12345 '"End Sub复制过去
yangao替换成你的服务器
xinzi替换成你的数据库
12345替换成你的服务器密码
select * from xinzi.dbo.bankcard替换成你的查询没有EXCEL则自动创建，有则覆盖。

Answer 2

谢谢,为什么日期不能在EXCEL里显示,显示的是(00:00:0)
怎样把数据库中的字段和表头都加进入呢??

Answer 3

gz
我也曾试过一种方法，将数据库资料导入EXCEL来打印，但是效果不太好，至今未找到好的办法来实现