Comment afficher un nom après la recherche [Résolu]

dadibarca23 56 Messages postés mercredi 3 octobre 2012Date d'inscription 12 juillet 2017 Dernière intervention - 8 avril 2016 à 20:10 - Dernière réponse : dadibarca23 56 Messages postés mercredi 3 octobre 2012Date d'inscription 12 juillet 2017 Dernière intervention
- 9 avril 2016 à 12:41
Bonjour,

SALUT tous
jai le code suivant :

  Dim ConnSTR As String = "provider=Microsoft.Jet.oledb.4.0; Data source = C:\hgfd\nws.mdb;Jet OLEDB:Database Password=**********;"
        Dim Connect As New OleDbConnection(ConnSTR)
        Dim Ds As New DataSet
        Dim sqlds As New OleDbDataAdapter("SELECT [numeropor] FROM T2 WHERE [numeropor] LIKE '%" & Trim$(txtCommand.Text) & "%'", Connect)

        Dim strSelect As String = "SELECT * FROM T2 WHERE numeropor='" & txtCommand.Text & "'"

        sqlds.Fill(Ds, "T2")

        If Ds.Tables("T2").Rows.Count > 0 Then
            MsgBox("le nom existe اً")
            Connect.Close()
        Else

            NEWSAVING()
            clion1.MaskedTextBox1.Text = txtCommand.Text
            clion1.Show()
        End If 


le code et correcte la question :
si le nom existe comment afficher sur une textbox

et merci bien


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

2 réponses

Répondre au sujet
cs_JMO 1830 Messages postés jeudi 23 mai 2002Date d'inscription 24 décembre 2017 Dernière intervention - 9 avril 2016 à 10:47
0
Utile
Bonjour dadibarca23,

Pour commencer, il faudrait ajouter:
Option Strict On
Option Explicit On


Que te renvoie ???
        Dim sqlds As New OleDbDataAdapter(" SELECT * FROM T2 " & _ 
                                          " WHERE [numeropor] LIKE '%" & txtCommand.Text.Trim() & "%'", Connect)
        sqlds.Fill(Ds, "T2")

        If Ds.Tables("T2").Rows.Count = 1 Then
            MessageBox.Show(Ds.Tables("T2").Rows.Count.ToString, "nombre ligne")
            MessageBox.Show(Ds.Tables("T2").Columns.Count.ToString, "nombre colonne")

            MessageBox.Show(Ds.Tables("T2").Rows.Item(0).Item(1).ToString & Environment.NewLine & _
                            Ds.Tables("T2").Rows.Item(0).Item(2).ToString)
            Connect.Close()
        Else


        End If
Commenter la réponse de cs_JMO
dadibarca23 56 Messages postés mercredi 3 octobre 2012Date d'inscription 12 juillet 2017 Dernière intervention - 9 avril 2016 à 12:41
0
Utile
bonjour cs_JMO

MERCI BIEN AMI
votre solution et magnifique

tchaw
Commenter la réponse de dadibarca23

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.