Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class AccessConnexion 'attribut chemin de la base Private chemin As String = My.Application.Info.DirectoryPath & "\base.accdb" 'Attribut connexion unique à une source de données Private cnx As OleDb.OleDbConnection = Nothing 'Attribut chaine de connection (fournisseur d'accès aux données + chemin) Private cnxstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & chemin & ";" Public Sub Open_connexion() Try 'test si la connexion n'est pas déjà ouverte 'If cnx.State <> 1 Then cnx = New OleDb.OleDbConnection cnx.ConnectionString = cnxstr cnx.Open() 'End If Catch ex As Exception Throw New Exception("Erreur d'ouverture connexion" & Environment.NewLine & ex.Message) End Try End Sub end class
Public Class AccessConnexion 'attribut chemin de la base Private chemin As String = My.Application.Info.DirectoryPath & "\base.accdb" 'Attribut connexion unique à une source de données Private cnx As OleDb.OleDbConnection = Nothing 'Attribut chaine de connection (fournisseur d'accès aux données + chemin) Private cnxstr As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & chemin & ";" Public Sub Open_connexion() Try 'test si la connexion n'est pas déjà ouverte 'If cnx.State <> 1 Then cnx = New OleDb.OleDbConnection cnx.ConnectionString = cnxstr cnx.Open() 'End If Catch ex As Exception Throw New Exception("Erreur d'ouverture connexion" & Environment.NewLine & ex.Message) End Try End Sub end class
'ajout référence vers BEL Imports BEL Public Class AccessUsers : Inherits AccessConnexion 'Enregistrement de l'utilisateur dans la base Public Sub Ajouter(ByVal NewUser As USER) Dim ac As New AccessConnexion Dim Cmd As New OleDb.OleDbCommand ac.Open_connexion() Cmd.CommandType = CommandType.Text Cmd.CommandText = "INSERT INTO USER (Login, Password, Question, Reponse) VALUES (@login, @password, @question, @reponse)" Cmd.Parameters.AddWithValue("@login", NewUser.Login) Cmd.Parameters.AddWithValue("@password", NewUser.Password) Cmd.Parameters.AddWithValue("@question", NewUser.Question) Cmd.Parameters.AddWithValue("@reponse", NewUser.Reponse) Cmd.Connection = ac.Get_cnx() Cmd.ExecuteNonQuery() End Sub End Class
' Ajout référence : Microsoft ADO Ext. 2.8 for DDL and Security Public Class AccessConnexion 'attribut chemin de la base Private chemin As String = My.Application.Info.DirectoryPath & "\base.accdb" 'Attribut connexion unique à une source de données Private cnx As OleDb.OleDbConnection = Nothing 'Attribut chaine de connection (fournisseur d'accès aux données + chemin) Private cnxstr As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & chemin & ";" 'retourne vrai si le fichier (base) existe Public Function verif_chemin() As Boolean Return System.IO.File.Exists(chemin) End Function Public Sub Create_base() 'base de donnée Dim db As New ADOX.Catalog Try db.Create(cnxstr) Catch ex As Exception Throw New Exception("Erreur de création de la base" & Environment.NewLine & ex.Message) End Try End Sub Public Sub Open_connexion() Try 'test si la connexion n'est pas déjà ouverte 'If cnx.State <> 1 Then cnx = New OleDb.OleDbConnection cnx.ConnectionString = cnxstr cnx.Open() 'End If Catch ex As Exception Throw New Exception("Erreur d'ouverture connexion" & Environment.NewLine & ex.Message) End Try End Sub Public Sub Close_connexion() Try 'test si la connexion n'est pas déjà fermer If cnx.State <> 0 Then cnx.Close() End If Catch ex As Exception Throw New Exception("Erreur fermeture connexion" & Environment.NewLine & ex.Message) End Try End Sub Function Get_cnx() As OleDb.OleDbConnection Return cnx End Function End Class