Recherche par identifiant

Question

Bonjour, 

J'ai une application sous Visual studio 2013, j'ai un état avec Crystal Report je veux imprimer par identifiant à partir du bouton Recherche. Mais je ne sais pas comment le faire. Merci pour votre aide.

Cdt,

Serdjio.

ucfoutu · Answer

Bonjour,
je déplace donc cette discussion vers le sous-forum (VB.Net) où elle aurait dû être ouverte  ( prends STP dorénavant ce soin toi-même) 
et laisse à un VB.Nettiste (ce que je ne suis pas) le soin de te répondre.

Whismeril · Answer

Bonjour,

le Père Noel, c'est au pôle Nord.
Y'a que lui, qui en passant par ta cheminée poura démarrer ton projet et lire ton code afin de savoir d'ou viennent tes données, comment elles sont stockées et quel est leur format, informations essentielles pour espèrer un début de réponse....

Serdjio · Answer

Voici le code, mais je ne sais où afficher les elements:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If Me.TextBox1.Text = "" Then

MessageBox.Show("Veuiller inserrer l'élément à rechercher " & TextBox1.Text & " !", "Gestion des elèves", MessageBoxButtons.OK, MessageBoxIcon.Error)
         Me.TextBox1.Focus()
         Exit Sub
     End If

SqlETF = "SELECT * FROM View_ELEVES WHERE ID_eleve = '" & TextBox1.Text & "'"
     CmdETF = New SqlCommand(SqlETF)
     DtaETF = New SqlDataAdapter(CmdETF)
     DtsETF = New DataSet
     CmdETF.Connection() = CnETF
     DtaETF.Fill(DtsETF, "View_ELEVES")
     DttETF = DtsETF.Tables("View_ELEVES")

If RownumETF > DttETF.Rows.Count - 1 Then
         MessageBox.Show("L'élément recherché " & TextBox1.Text & " n'existe pas  !", "Gestion des elèves", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
         Exit Sub

End If

End Sub


      EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

ucfoutu · Answer

Bonjour, 1) J'ai des difficultés à comprendre : If RownumETF > DttETF.Rows.Count - 1 then qui me semble n'être finalement que l'équivalent de ceci : If DttETF.Rows.Count < 1 then puisque je ne vois nulle part une initialisation de RownumETF et que tu ne peux avoir qu'un seul article au maximum dans ton recordset (puisque sélection sur l'idart) ! 2) mais je ne sais où afficher les elements ben ... --- si peu d'éléments (donc de champs, puisque tu les sélectionnes tous) : dans des textboxes, cela fera l'affaire (une textbox par champ de ta table). Genre : Textboxmachin = DttETF.rows(rownum).Items("machin") Textboxchouette = DttETF.rows(rownum).Items("chouette") si DttETF est une grille et que rownum est le rang l'article que tu y cliques ... mais je ne vois pas comment rownum pourrait varier puisque ton recordset sélectionne un idart et donc un seul article de ta table ...

Whismeril · Answer

Les bases de données ça n'est pas mon fort, il va falloir attendre quelqu'un d'autre.

Recherche par identifiant

5 réponses

Votre réponse

Discussions similaires