Hej, Har inte kollat speciellt noga på koden, men det borde inte behövas så mycket mer än att byta Oracle mot OleDb. Appsetting: DATA_SOURCE får du ändra så att det blir en connectionstring som passar en accessdatabas Tack för hjälpen!Connecta till Access databas
Jag tänkte skapa en applikation med en access databas.
På jobbet har vi använt följand kod för att koppla upp oss mot en ORACLE databas.
Vet någon hur jag ändrar här för att använda MS Access istället?
Imports System.Data.OracleClient
Imports System.Configuration
Public MustInherit Class daDataAccess
Dim sConnectionString As String
Public Sub dbSetup()
'Get connection string from web.config
Dim sDataSource As String
sDataSource = ConfigurationSettings.AppSettings("DATA_SOURCE")
sConnectionString = ConfigurationSettings.AppSettings(sDataSource)
End Sub
Public Sub dbRead(ByVal sSql As String, ByRef ds As DataSet)
Dim connObject As New OracleConnection
Dim daObject As OracleDataAdapter
Try
'Set connection string
connObject.ConnectionString = sConnectionString
'Open connection
connObject.Open()
daObject = New OracleDataAdapter(sSql, connObject)
'Fill dataset
daObject.Fill(ds)
Catch err As Exception
Throw err
Finally
'Clean up
connObject.Close()
connObject.Dispose()
End Try
End Sub
Public Sub dbWrite(ByVal sSql As String)
Dim connObject As New OracleConnection
Dim cmdObject As New OracleCommand
Try
'Set connection string
connObject.ConnectionString = sConnectionString
'Open connection
connObject.Open()
cmdObject.Connection = connObject
cmdObject.CommandText = sSql
cmdObject.ExecuteNonQuery()
Catch err As Exception
Throw err
Finally
connObject.Close()
connObject.Dispose()
End Try
End Sub
End Class
Tackar på förhand!!
/Jocke
Sv: Connecta till Access databas
/JohanSv:Connecta till Access databas
t.ex: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\mindatabas.mdb'"
Sen får du använda dig av OleDbConnection,OleDbCommand och OleDbDataAdapter istället för de för oracle.Sv: Connecta till Access databas
Ska kolla på detta ikväll när jag kommer hem.
/Jocke