G
Guest
Hello,
I am having a problem with ADODB connection class. This was all working fine until I restarted the pc with last known good configuration, which seems to have screwed things up
In the code below the conn.open command fails with a cannot find stored procedure error. and system.runtime.interopservices.COMexception. The specified procedure could not be found. at ADODB.ConnectionClass.Open etc.. How can I fix this problem, do I need to re-install anything. I still have a reference to adodb
Regard
Robert
Dim Conn As ADODB.Connection = New ADODB.Connectio
GblConnectionString = "PROVIDER=SQLOLEDB.1;PASSWORD=" & txtPassword.Text & ";PERSIST SECURITY INFO=TRUE;USER ID=" & txtLoginName.Text & ";INITIAL CATALOG=Master" & ";DATA SOURCE=" & txtServerName.Tex
Tr
Conn.Open(GblConnectionString) '''*********** FAILS HERE*******************
Catch e As Exceptio
MsgBox(e.Message
MsgBox(e.ToString
End Tr
Dim rs As ADODB.Recordset = New ADODB.Recordse
Dim strRowSource As Strin
Tr
rs.Open("SELECT Name From sysdatabases WHERE Name NOT IN( 'master','tempdb','model','msdb','pubs','NorthWind')", Conn
Catch e As Exceptio
MsgBox(e.Message
MsgBox(e.ToString
MsgBox(e.Source
End Try
I am having a problem with ADODB connection class. This was all working fine until I restarted the pc with last known good configuration, which seems to have screwed things up
In the code below the conn.open command fails with a cannot find stored procedure error. and system.runtime.interopservices.COMexception. The specified procedure could not be found. at ADODB.ConnectionClass.Open etc.. How can I fix this problem, do I need to re-install anything. I still have a reference to adodb
Regard
Robert
Dim Conn As ADODB.Connection = New ADODB.Connectio
GblConnectionString = "PROVIDER=SQLOLEDB.1;PASSWORD=" & txtPassword.Text & ";PERSIST SECURITY INFO=TRUE;USER ID=" & txtLoginName.Text & ";INITIAL CATALOG=Master" & ";DATA SOURCE=" & txtServerName.Tex
Tr
Conn.Open(GblConnectionString) '''*********** FAILS HERE*******************
Catch e As Exceptio
MsgBox(e.Message
MsgBox(e.ToString
End Tr
Dim rs As ADODB.Recordset = New ADODB.Recordse
Dim strRowSource As Strin
Tr
rs.Open("SELECT Name From sysdatabases WHERE Name NOT IN( 'master','tempdb','model','msdb','pubs','NorthWind')", Conn
Catch e As Exceptio
MsgBox(e.Message
MsgBox(e.ToString
MsgBox(e.Source
End Try