Discussion :

[fixfix]

Comment créer une connexion entre une apllication en vb.Net et une base Access.
Merci

[souaddemaroc]

Salut
Tu n'a qu'écrire le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
imports System.Data.OleDb
dim cn as new oledbconnection
cn=new oledbconnection("provider=Microsoft.jet.oledb.4.0; data source=mabase.mdb")

[fixfix]

en fait il y a un petit probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        imports System.Data.OleDb
        Dim cn As New oledbconnection
        cn = New oledbconnection("provider=Microsoft.jet.oledb.4.0; data source=mabase.mdb")
End Sub

il me souligne imports et les deux oledbconnection

[More]

non,

tu dois mettre ton Imports en haut de ta page, il faut quelle soit la premiere ligne, et c'est mieux de mettre ton connexion dans une procedure dans un formulaire et l'appeller.

[souaddemaroc]

En fait tu pourra ajouter un module dans le quel tu déclare tes variables qui seront des variables génerales

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
imports System.Data.OleDb
Module Modulegenerale
    Public connexion As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source='articles.mdb'")
    Public da As New OleDbDataAdapter
    Public cmd As New OleDbCommand
    Public ds As New DataSet
    Public builder As New OleDbCommandBuilder
    Public dt As New DataTable
    Public enreg As DataRow
    Public pos As Integer
    Public reader As OleDbDataReader
End Module

[fixfix]

Voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Imports System.Data.OleDb
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles MyBase.Load
 
     Call OuvrirConnex()
 
End Sub
End Class

Mon module connexion.vb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Module OuvrirConnex
    Dim cn As New OleDb.OleDbConnection
    cn = New OleDb.OleDbConnection("provider=Microsoft.jet.oledb.4.0; data source=mabase.mdb")
End Module

Je voulais savoir si c'était bon ou pas

[fixfix]

Quelqu'un pourrait il m'aider parc equ'a l'origine je n 'utilise pas visual studio mais vb 6 alors pour mes debut un peu perdu si quelqu'un pouvais m'explique un peu plus en détaille.

Merci

[Hatchepsout]

bonsoir
faire la connection avec dataenvironnement.

[Franck94]

Bonjour a tous.

Pour ma part j'aurais fait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Module1.connexion()
    End Sub
End Class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Imports System.Data.OleDb
Module Module1
    Public Sub connexion()
        Dim cn As New OleDb.OleDbConnection
        cn = New OleDb.OleDbConnection("provider=Microsoft.jet.oledb.4.0; data source=mabase.mdb")
    End Sub
End Module

Voili voilou.

Franck.

[mateuil]

et ensuite?
je sait que ce post date un peu, mais je voudrais savoir comment récupérer les valeur de la base après s'être conencté.

Merci