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 

Votre réponse

2 réponses

cs_JMO 1850 Messages postés jeudi 23 mai 2002Date d'inscription 11 mai 2018 Dernière intervention - 9 avril 2016 à 10:47
0
Merci
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
Merci
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.