Bonjour,
J'ai un probleme d'access a une base de donnée Access MDB donc, si j'inclus dans ma base un mot de passe.
Ma connexion s'effectue via une connexion OLEDB, et si j'inclus dans ma Connexion uid et Pwd ou seulement le Password, etc .... j'ai tout essayé mais rien ne fonctionne.
Je poste mon code si dessous si quelqu'un a une idée, elle sera prise avec joie.
PS: Vous remarquerez que j'utilise un Dataset pour la lecture et un oleDbCommand pour l'insertion ou modification.
Sans mot de passe, tout fonctionne a merveille, alors ou comment faire pour rajouter le mot de passe dans ma chaine "Connexion" déclarée ci-dessous
Public Connexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\DONNEE\TEST.MDB"
' POUR LE SELECT
Dim ObjDAFact As New OleDbDataAdapter("SELECT TEST FROM TABLE", Connexion)
Dim ObjDSFact As New DataSet()
Try
ObjDAFact.Fill(ObjDSFact)
Catch Excep As Exception
MessageBox.show(Excep.Message)
Application.Exit()
Exit Sub
End Try
If objDS.Tables(0).Rows.count > 0 then
messagebox.show("Enregistrement ok")
End If
' POUR LE INSERT
'Declaration variable pour le INSERT ET UPDATE
Dim ConnectionParam As New OleDbConnection(Connexion)
ConnectionParam.Open()
Dim CommandParam As New OleDbCommand()
Dim TransParam As OleDbTransaction
TransParam = ConnectionParam.BeginTransaction()
CommandParam.Connection = ConnectionParam
CommandParam.Transaction = TransParam
Dim StrRequeteSQL As String = "INSERT INTO TABLE (Test) VALUES ('Test')"
Try
CommandParam.CommandText = StrRequeteSQL
CommandParam.ExecuteNonQuery()
TransParam.Commit()
ConnectionParam.Close()
Catch Excep As Exception
MessageBox.Show(Excep.Message)
Exit Function
End Try