Bonjour voila j'ai un petit soucis, je développe une petite appli en VB.net, j'ai créer une classe Connexion mais j'ai un petit soucis au niveau de la création de la table USERS.
Public Class connexion
' chemin de la base de donnée
Private chemin As String = Application.StartupPath & "" & "Data_base" & ".accdb"
'parametrage de la chaine de connection
Private cnxstr As String = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & chemin & ";"
Private db As New ADOX.Catalog
' objet pour requête SQL
Private cmd As New OleDbCommand
'création de l'objet connection
Private cnx As New OleDbConnection
'Ouvrir connection à la B D D
Private Sub Open_connection()
Try
cnx.ConnectionString = cnxstr
cnx.Open()
Catch ex As Exception
MsgBox("Erreur de connection à la Base" & vbCrLf & ex.Message, , "Erreur")
End Try
End Sub
'Fermeture connection à la B D D
Private Sub Close_connection()
Try
cnx.ConnectionString = cnxstr
cnx.Close()
Catch ex As Exception
MsgBox("Erreur de connection à la Base" & vbCrLf & ex.Message, , "Erreur")
End Try
End Sub
'créer la B D D
Public Sub Create_base()
Try
db.Create(cnxstr)
Open_connection()
Try
cmd.CommandText = "CREATE TABLE USERS (LOGIN CHAR(8) NOT NULL PRIMARY KEY,MDP CHAR(8) NOT NULL,QUESTION VARCHAR(32) NOT NULL,REPONSE CHAR(8) NOT NULL)"
cmd.ExecuteNonQuery()
Close_connection()
Catch ex As Exception
MsgBox("Erreur de création table USER" & vbCrLf & ex.Message, , "Erreur")
End Try
Catch ex As Exception
MsgBox("Erreur de création base" & vbCrLf & ex.Message, , "Erreur")
End Try
End Sub
End Class
Comme message d'érreur j'ai ExécudeNonQuery, connection non initialisé.
Pour ma fonction Open_connection ne renvoie d’erreur je suppose quel est correct.