关于检查数据库

kunalex

Dim Conn
Set Conn = CreateObject("ADODB.Connection" )
Conn.ConnectionString="DRIVER=sql server;SERVER=192.168.0.8;DATABASE=dev_edms;user id=sa ; password=sa;wsid=略;APP=Microsoft Office 2003"
If Conn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
end if
conn.open str
我用以上方法连接数据库会有run error: [Microsoft][ODBC SQL Server Driver][DBNETLIB]无效的连接,查询结果报告是"连接数据库失败".......语法不知道有没有问题,本机未装sql程序,以及数据源之类(不知道为何物,专业知识有待加强唉)不过和数据库在一个域内.
Ps:  涉及到今后大家参考给我的删除数据预处理文件,这个第一步就碰到了困难.

sunqiang1024

你要在你的机器中的管理工具中的ODBC，新建一个数据源，然后就可以正常使用了

正道

数据库服务器开了吗