module connection

Question

bonjour;
je suis entrain de faire mon projet gestion de commande sur vb 2008 et je fais les liens avec base de données access au point de remplir ma base d&#8217;après vb  je coincé au niveau de module connection quelqu&#8217;un peut m'aider a réaliser s'il vous plaît?? 
C'est le code de mon premier formulaire clientsImports System.Data.OleDb
Imports System.Text.RegularExpressions

Public Class FrmClients
    Public cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users	oshiba\Desktop\mon_projetvb")
    Public CMD As New OleDbCommand
    Public dr As OleDbDataReader
    Dim count As Integer = 0

    Private Sub Tbl_clientsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbl_clientsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Tbl_clientsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Gestion_de_CommandeDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Gestion_de_CommandeDataSet.Tbl_clients' table. You can move, or remove it, as needed.
        Me.Tbl_clientsTableAdapter.Fill(Me.Gestion_de_CommandeDataSet.Tbl_clients)
        Timer1.Start()

    Private Sub Btnajout_client_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnajout_client.Click
        Me.Tbl_clientsBindingSource.AddNew()


    End Sub

    Private Sub Btnregist_client_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnregist_client.Click
        Module1.LancerRequete("insert into Client values (" + Code_ClientTextBox.Text + ",'" + NomTextBox.Text + "','" + AdresseTextBox.Text + "','" + TelephoneTextBox.Text + "'," + FaxTextBox.Text + "," + EmailTextBox.Text + "')")

        Me.Validate()
        Me.Tbl_clientsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Gestion_de_CommandeDataSet)
        MessageBox.Show("enregistrement avec succès")

    End Sub

    Private Sub Btnsup_client_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsup_client.Click
        Me.Tbl_clientsBindingSource.RemoveCurrent()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        count = Tbl_clientsBindingSource.Count
        If count > 1 And 2 Then
            Btn_suivant.Visible = True
            Btn_precedent.Visible = True
        End If
        If count <= 1 And 2 Then
            Btn_suivant.Visible = False
            Btn_precedent.Visible = False
        End If

    End Sub

    Private Sub Btn_suivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_suivant.Click
        Tbl_clientsBindingSource.MoveNext()
    End Sub

    Private Sub Btn_precedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_precedent.Click
        Tbl_clientsBindingSource.MovePrevious()
    End Sub

    Private Sub Tbl_clientsDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Tbl_clientsDataGridView.CellContentClick

    End Sub

    Private Sub EmailTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmailTextBox.TextChanged
        If EmailTextBox.Text.Length > 0 Then
            If IsEmail(EmailTextBox.Text) Then
                EmailTextBox.BackColor = Color.LightGreen
            Else
                EmailTextBox.BackColor = Color.LightPink

            End If
        Else
            EmailTextBox.BackColor = Color.White
        End If
    End Sub


    Private Function IsEmail(ByVal Source As String) As Boolean
        Return Regex.IsMatch(Source, "([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]{3,10})\.([a-zA-Z]{2,3})$")


    End Function
End Class

NHenry · Answer

Bonjour, 

"je coincé au niveau de module connection"
Peux-tu détailler ton problème ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Module connection

1 réponse

Votre réponse

Discussions similaires