Module connection

Signaler
Messages postés
13
Date d'inscription
jeudi 8 mars 2012
Statut
Membre
Dernière intervention
4 juillet 2012
-
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
-
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’après vb je coincé au niveau de module connection quelqu’un peut m'aider a réaliser s'il vous plaît??
C'est le code de mon premier formulaire clients
Imports 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\toshiba\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

1 réponse

Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
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