Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
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.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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.