Dim MM_cx_STRING
MM_cx_STRING = "driver={IBM DB2 ODBC DRIVER};Database=datebasename;hostname=192.168.0.1;port=50000;protocol=TCPIP;uid=admin;pwd=123456"
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cx_STRING
Recordset1.Source = "SELECT * FROM TABLE20"
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
由于系统错误 5 (IBM DB2 ODBC DRIVER),指定驱动程序无法加载。
已经装了客户端,ODBC测试通过,但总是提示上面的错误,请各位老大指教。
------解决方案--------------------------------------------------------
"Provider=DB2OLEDB;Network Transport Library=TCPIP;Network Address=XXX.XXX.XXX.XXX;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;User ID=MyUser;Password=MyPW"
用这个试试
------解决方案--------------------------------------------------------
你果然没有 测试
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
MM_cx_STRING = "driver={IBM DB2 ODBC DRIVER};Database=datebasename;hostname=192.168.0.1;port=50000;protocol=TCPIP;uid=admin;pwd=123456"
With cnn
.connectionstring = MM_cx_STRING
.Open
EndWith