ziedm90
Messages postés3Date d'inscriptionsamedi 21 janvier 2012StatutMembreDernière intervention18 mai 2013
-
22 mars 2012 à 21:54
cs_locust
Messages postés32Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention29 octobre 2012
-
26 mars 2012 à 18:34
salut ,
je développe une application en vb.net (j'utilise visual basic 2010 express) ,la base de donnée à été crée avec access 2007
voilà le code que j'ai écrit pour faire la connexion avec la base de donnée
Imports System.Data.OleDb
Module Module1
Dim cn As OleDbConnection = New OleDbConnection
Dim cmd As OleDbCommand
Dim st As String
Public Function connect() As Boolean
st = "provider=Microsoft.Jet.OleDb.4.0;Data Source=E:\application_stage.mdb ;"
cn.ConnectionString = st
Try
cn.Open()
Catch ex As Exception
MessageBox.Show("erreur lors de connection" + ex.Message)
Return True
End Try
MessageBox.Show("connecter avec succés")
End Function
End Module
l'appel à cette fonction est comme suit
Imports System.Data.OleDb
Public Class LoginForm1
Dim cmd As New OleDbCommand
Dim cn As New OleDbConnection
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If connect() Then
cmd.CommandText = "insert into (usernametextbox,PasswordTextBox) values (@login,@mot_passe)"
cmd.Connection = cn
cmd.ExecuteNonQuery()
MessageBox.Show("Requete inserér avec succés", "OK", MessageBoxButtons.OK)
If (vbOK = True) Then
Form1.Show()
End If
End If
End Sub
End Class
le probléme que lorsque je clique sur OK, il m'affiche une boite de dialogue comme suit : " format base de donnée E:\...... format non reconnu"