469,578 Members | 1,285 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,578 developers. It's quick & easy.

relinking tables in Access db using VB.NET and ADOX

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.Catalo
Dim tbl As ADOX.Tabl
Dim OracleConn As String = "Provider=MSDAORA.1;Data Source=xzy;User ID=xyz;Password=xyz

Tr
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source=c:\databases\xyz.mdb;" &
"Jet OLEDB:Engine Type=5

For Each tbl In cat.Table
'Check to make sure the table is a linked tabl
If tbl.Type = "LINK" The
tbl.Properties("Jet OLEDB:Create Link").Value = Tru
tbl.Properties("Jet OLEDB:Link Provider String").Value = OracleCon
tbl.Properties("Jet OLEDB:Cache Link Name/Password").Value = Tru
End I
Nex
Catch ex As Exceptio
sr.WriteLine(ex.Message
End Tr

Any ideas

Thank

Nov 20 '05 #1
2 7423
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

Nov 20 '05 #2
On Tue, 27 Apr 2004 07:21:01 -0700, "Randy" <an*******@discussions.microsoft.com> wrote:

¤ 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
¤

Probably a connection string issue. Are you using either the Microsoft or Oracle ODBC driver for
your Link Provider String?
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)
Nov 20 '05 #3

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

10 posts views Thread by Job Lot | last post: by
18 posts views Thread by Ken Kazinski | last post: by
reply views Thread by suresh191 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.