J
Joerg Trumpfheller
Hello
I like to build a connection String for
a) Oracle DB
b) Access DB with a workgroup system.mdw and user and password
the construct is like the following:
I was trying
a)
Dim CString As String = "Provider=OraOLEDB.Oracle.1;User
ID=myusr;Password=mypwd;Persist Security Info=True;Data
Source=mytnsnames;Extended Properties=''"
Dim dbConn As New OleDb.OleDbConnection(CString)
Dim dbCom As New OleDb.OleDbCommand("", dbConn)
Dim dbAdapter As New OleDb.OleDbDataAdapter(dbCom)
dsData = New DataSet("MyDataSet")
dbCom.CommandText = SQL(0) 'Select string for a table
Try
dbAdapter.Fill(dsData, "1-Modell")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
for Oracle it works fine.
Now I tried to use our "save" access-db
b)
CString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security
Info=False;User ID=Admin;Data Source='Pathfor\application.mdw' /user
'userid' /pwd '****' 'Pathfor\application.mdb';Extended Properties=''"
Does anyxbody know how I can make it?
Thanks for support
Joerg Trumpfheller
I like to build a connection String for
a) Oracle DB
b) Access DB with a workgroup system.mdw and user and password
the construct is like the following:
I was trying
a)
Dim CString As String = "Provider=OraOLEDB.Oracle.1;User
ID=myusr;Password=mypwd;Persist Security Info=True;Data
Source=mytnsnames;Extended Properties=''"
Dim dbConn As New OleDb.OleDbConnection(CString)
Dim dbCom As New OleDb.OleDbCommand("", dbConn)
Dim dbAdapter As New OleDb.OleDbDataAdapter(dbCom)
dsData = New DataSet("MyDataSet")
dbCom.CommandText = SQL(0) 'Select string for a table
Try
dbAdapter.Fill(dsData, "1-Modell")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
for Oracle it works fine.
Now I tried to use our "save" access-db
b)
CString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security
Info=False;User ID=Admin;Data Source='Pathfor\application.mdw' /user
'userid' /pwd '****' 'Pathfor\application.mdb';Extended Properties=''"
Does anyxbody know how I can make it?
Thanks for support
Joerg Trumpfheller