Hi,
I tryed this once, but after a whiel I gave up: I was able to relink most of
them, but not all, and I didn't found out why not all. If you find it,
please post your code here! I owuld really appreciate it!
This is what I tryed:
Option Explicit On
Imports System.Runtime.InteropServices
Imports System.Data.OleDb
Public Class clsDB
Public strPath As String
Public strDB As String
Public intLen As Integer
Public strConn As String
Public strOld As String
Public strDirFile As String
Public Event Refresh_Ready(ByVal strDB As String, ByVal intTa As
Integer, ByVal intQu As Integer)
Public Event Refreshing_Item(ByVal strText As String)
Public Sub subRefresh()
'On Error Resume Next
Dim ADOConnection As New ADODB.Connection
'Dim OleDBConn As New OleDbconnection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim prc As ADOX.Procedure
Dim strProcName As String
Dim cmd As ADODB.Command
Dim intT, intQ As Integer
intT = 0
intQ = 0
'OleDBConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & strDirFile
'OleDBConn.Open()
ADOConnection.Open("Provider=Microsoft.Jet.OLEDB.4 .0;Data Source=" &
strDirFile & ";Persist Security Info=False")
'Dim rst As New ADODB.Recordset
'rst = ADOConnection.Execute("SELECT * FROM dbo_oas_company")
'rst = ADOConnection.Execute("SELECT * FROM dbo_T_Select")
'rst.MoveFirst()
SyncLock (GetType(clsDB))
'Try
cat.ActiveConnection = ADOConnection
Try
'MessageBox.Show(cat.Tables.Count)
For Each tbl In cat.Tables
Try
If tbl.Type = "PASS-THROUGH" Then
If UCase(Left(tbl.Properties("Jet OLEDB:Link
Provider String").Value(), intLen)) = UCase(strOld) Then
RaiseEvent Refreshing_Item("Refreshing
table: " & strDB & " - " & tbl.Name)
intT = intT + 1
tbl.Properties("Jet OLEDB:Link Provider
String").Value() = strConn
End If
End If
Catch ex As Exception
RaiseEvent Refreshing_Item("Error Refreshing table:
" & strDB & " - " & tbl.Name)
End Try
Next
Catch ex As System.Runtime.InteropServices.COMException
Console.WriteLine(ex.Message)
Catch ex As Exception
RaiseEvent Refreshing_Item("Error Refreshing tables: " &
strDB)
End Try
Try
For Each prc In cat.Procedures
strProcName = prc.Name
cmd = New ADODB.Command
cmd = cat.Procedures(strProcName).Command
Try
'MsgBox(intX & " - " & cmd.CommandText)
'87 properties in het totaal!!!
If cmd.Properties("Jet OLEDB:ODBC Pass-Through
Statement").Value = True Then '79
If UCase(Left(cmd.Properties("Jet OLEDB:Pass
Through Query Connect String").Value, intLen + 5)) = UCase("ODBC;" & strOld)
Then
RaiseEvent Refreshing_Item("Refreshing
query: " & strDB & " - " & strProcName)
intQ = intQ + 1
cmd.Properties("Jet OLEDB:Pass Through Query
Connect String").Value = "ODBC; " & strConn
End If
'MsgBox(cmd.Properties("Jet OLEDB:Pass Through
Query Connect String").Value)
'78
'cmd.Properties(87)
End If
Catch ex As System.Runtime.InteropServices.COMException
Console.WriteLine(ex.Message)
Catch ex As Exception
RaiseEvent Refreshing_Item("Error Refreshing query:
" & strDB & " - " & strProcName)
End Try
'MsgBox(cmd.CommandType())
'MsgBox(cmd.Properties("Jet OLEDB:Link Provider
String").Value())
Next
Catch ex As Exception
RaiseEvent Refreshing_Item("Error Refreshing query's: " &
strDB)
End Try
'Dim wrk As DAO.Workspace
'Dim ldb As DAO.Database
'Dim tdf As DAO.TableDef
'Dim qdf As DAO.QueryDef
'wrk = New DAO.DBEngine
'ldb = wrk.OpenDatabase(strDirFile)
'ldb = New DAO.DBEngine
'ldb.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
strDirFile
'Dim r As Integer
'For r = 0 To ldb.QueryDefs.Count - 1
'If (ldb.QueryDefs(r).Type = "eeer") And
(Left(ldb.QueryDefs(r).Connect, intLen) = strOld) Then
'End If
'Next
'Catch ex As Exception
'MessageBox.Show(ex.Message & ex.Source, "Exception - " & strDB)
'Finally
'End Try
End SyncLock
RaiseEvent Refresh_Ready(Me.strDB, intT, intQ)
cat.ActiveConnection = Nothing
ADOConnection.Close()
cat = Nothing
tbl = Nothing
cmd = Nothing
prc = Nothing
End Sub
End Class
"Randy" <an*******@discussions.microsoft.com> wrote in message
news:F9**********************************@microsof t.com...
I am trying to relink some Oracle tables in an Access database via VB.NET
and ADOX. I receive the following error when executing the
cat.ActiveConnection link:
"Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another."
Here is my code:
Dim cat As ADOX.Catalog = New ADOX.Catalog
Dim tbl As ADOX.Table
Dim OracleConn As String = "Provider=MSDAORA.1;Data
Source=xzy;User ID=xyz;Password=xyz"
Try
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\databases\xyz.mdb;" & _
"Jet OLEDB:Engine Type=5"
For Each tbl In cat.Tables
'Check to make sure the table is a linked table
If tbl.Type = "LINK" Then
tbl.Properties("Jet OLEDB:Create Link").Value = True
tbl.Properties("Jet OLEDB:Link Provider String").Value
= OracleConn tbl.Properties("Jet OLEDB:Cache Link
Name/Password").Value = True End If
Next
Catch ex As Exception
sr.WriteLine(ex.Message)
End Try
Any ideas?
Thanks
