16,553
社区成员
发帖
与我相关
我的任务
分享紧急求救!
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets(1)
Dim oQryTable As Object
oQryTable = oSheet.QueryTables.Add("Driver={SQL Server};Server=lizhen;Database=test;Provider =SQLOLEDB" & _
";", oSheet.Range("A1"), "Select * from tArea")
出错:未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 mscorlib.dll 中
其他信息：HRESULT 中的异常：0x800A03EC。
oQryTable.Refresh(False)
'Save the Workbook and Quit Excel
oBook.SaveAs("D:\Book3.xls")
oExcel.Quit()
MsgBox("已生成D:\Book3.xls")
请问:sql怎么接呢?我采用的windows验证,没有密码,服务器名为lizhen.数据库为test,why?
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets(1)
Dim oQryTable As Object
oQryTable = oSheet.QueryTables.Add("Driver={SQL Server};Server=lizhen;Database=test;Provider =SQLOLEDB" & _
";", oSheet.Range("A1"), "Select * from tArea")
出错:未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 mscorlib.dll 中
其他信息：HRESULT 中的异常：0x800A03EC。
oQryTable.Refresh(False)
'Save the Workbook and Quit Excel
oBook.SaveAs("D:\Book3.xls")
oExcel.Quit()
MsgBox("已生成D:\Book3.xls")
请问:sql怎么接呢?我采用的windows验证,没有密码,服务器名为lizhen.数据库为test,why?
...全文
请发表友善的回复…
发表回复
lizhenlz 2002-09-03
- 打赏
- 举报
oSheet.QueryTables.Add()这个函数接sql,能举个例子吗?谢谢!
lizhenlz 2002-09-03
- 打赏
- 举报
to qwa(八部众):不是用户和密码的问题,我用
dim str as string="Driver={SQL Server};Server=lizhen;Database=test;Provider =SQLOLEDB"
dim sqlconn as sqlconnecion=new sqlconnection(str)
sqlconn.open
执行没错
dim str as string="Driver={SQL Server};Server=lizhen;Database=test;Provider =SQLOLEDB"
dim sqlconn as sqlconnecion=new sqlconnection(str)
sqlconn.open
执行没错
lizhenlz 2002-09-03
- 打赏
- 举报
没有,是windows验证,在本地机上
qwa 2002-09-03
- 打赏
- 举报
你的用户和密码呢
