assoudona
Messages postés9Date d'inscriptionmercredi 17 avril 2002StatutMembreDernière intervention 5 mai 2011
-
2 déc. 2010 à 17:35
said_dias_01
Messages postés103Date d'inscriptiondimanche 20 mars 2005StatutMembreDernière intervention30 décembre 2017
-
15 déc. 2010 à 10:48
Bonjour,
je n'arrive pas à me connecter à ma base de donnée access. je dois developper une appli dans le cadre de mon stage. Aidez moi s'il vous plait
voici le code que j'ai écrit dans le form load du form connexion. Je ne sais pas ce qui ne va pas
Merci A+
' Importation des bibliothèques
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class frmConnexion
'declarations
Public cnx As OleDbConnection
Public cmd As OleDbCommand
Public dta As OleDbDataAdapter
Public dts As New DataSet
Public sql As String
Public dtt As DataTable
Public dtr As DataRow
Public rownum As Integer
Public cnxstr As String
Public cmdb As OleDbCommandBuilder
'le code de la connexion
Public Sub frmConnexion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Ouverture de la connexion
cnxstr = "provider=microsoft.jet.oledb.4.0; data source=" & Application.StartupPath & "\Base de données.mdb;"
cnx = New OleDbConnection
cnx.ConnectionString = cnxstr
cnx.Open()
assoudona
Messages postés9Date d'inscriptionmercredi 17 avril 2002StatutMembreDernière intervention 5 mai 2011 7 déc. 2010 à 11:04
Merci de votre aide.
ma connaxion a fini par marché. Il n'y avait meme pas d'erreur.
Par contre, j'ai voulu mettre les boutons pour ajouter, supprimer ou modifier des donnees. L'execussion du programme me donne zero erreur alors que je recois un msg " objet reference not set to an instance of an object".
Un msg d'alerte: the referenced component 'ADODB2' could not be found'
Depuis deux jours je ne bouge pas, DEBLOQUEZ MOI s'il vous plait
assoudona
Messages postés9Date d'inscriptionmercredi 17 avril 2002StatutMembreDernière intervention 5 mai 2011 15 déc. 2010 à 08:40
Slt,
Je ne sais vraiment pas comment proceder pour deposer tout le code étant donné que c'est un dossier comportant beaucoup de fichiers.
Alors, j'ai pris le code contenu dans le module et celui d'un formulaire; la base de donnée etant en access.
Mais si vous pouvez m'indiquer une procedure pour vous l'envoyer, j'aurai aussi acquit d'autres connaissances.
Merci
Dans mon module
Imports System
Imports System.Data
Imports System.Data.OleDb
'Imports Microsoft.VisualBasic
Module Module1
Public db As OleDbConnection
Sub center_feuille(ByVal Feuille As System.Object)
Public Sub seconnecter()
'Ouverture de la connexion
db.ConnectionString = "provider=microsoft.jet.oledb.4.0; Data Source=" & Application.StartupPath & "\Base de données.mdb"
If db.State = ConnectionState.Closed Then
db.Open()
End If
End Sub
End Module
Sous mon formulaire Site de Collection
Imports System
Imports System.Data
Imports System.Data.OleDb
said_dias_01
Messages postés103Date d'inscriptiondimanche 20 mars 2005StatutMembreDernière intervention30 décembre 20171 15 déc. 2010 à 10:48
Voila mtn est claire ,
Alors vous avez pas mal des erreurs mon camarade,
* au niveau de module tu n'as pas initialisé (db de la connexion)
* clique de l'ajout (MyCmd.ExecuteNonQuer + tu as oublié l'ouverture de la connexion est ça c'est autre erreur)
*est autre trucs
_________________________________
Module Module1
Public db As New OleDbConnection Sub center_feuille(ByVal Feuille As System.Object)
' cette procedure centre la feuille sur l'ecran
Feuille.left = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width / 2 - Feuille.Width / 2
Feuille.Top = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height / 2 - Feuille.Height / 2
End Sub
Public Sub seconnecter()
'Ouverture de la connexion
' Dim db As New OleDbConnection
db.ConnectionString = "provider=microsoft.jet.oledb.4.0; Data Source=" & Application.StartupPath & "\ma_base.mdb"
If db.State = ConnectionState.Closed Then
db.Open()
End If
End Sub
End Module
_______________________
Sous mon formulaire Site de Collection
Imports System
Imports System.Data
Imports System.Data.OleDb
Catch Exp As Exception
MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error")
End Try
End Sub
' le bouton ajouter
Private Sub btAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAjouter.Click
Ajouter()
End Sub
End Class
_____________
Observation : on VB.net ta pa besoin de déclarer procédure pour centrer la FORM ,vous avez la propriété :StartPosition