vb.net 2005 database listview

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
johnnys14
Δημοσιεύσεις: 70
Εγγραφή: 27 Ιουν 2008 00:41
Επικοινωνία:

vb.net 2005 database listview

Δημοσίευση από johnnys14 » 27 Ιουν 2008 18:30

Γεια χαρά σε όλους!
Δημιουργώ μια βάση δεδομένων για μια δανειστική βιβλιοθήκη στο Visual Studio 2005 σε συνεργασία με την Access και χρησιμοποιώ ένα ListView για την εμφάνιση των δεδομένων όταν ξεκινά το πρόγραμμα. Μέχρι εδώ όλα καλά.
Έχω προσθέσει ακόμη ένα textbox και ένα κουμπί «Αναζήτηση» (btnParameter) ώστε όταν καταχωρούμε ένα αριθμό μητρώου και πατάμε το κουμπί αναζήτηση να εμφανίζει μόνο τα στοιχεία της συγκεκριμένης εγγραφής.

Για το κουμπί έχω προσθέσει τον παρακάτω κώδικα.
Αν μπορεί κάποιος να βάλει το χεράκι του, μπας και βρω καμιά άκρη! Thanks



'Κουμπί για την αναζήτηση των εγγραφών
Private Sub btnParameter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnParameter.Click
'Declare variables
Dim objListViewItem As ListViewItem
'Initialize a new instance of the data access base class
Using objData As New WDABase
Try
'Get all projects in a DataReader object
objData.SQL = "usp_Select_Tmima_Pliroforikis"
objData.InitializeCommand()
objData.OpenConnection()
objData.DataReader = objData.Command.ExecuteReader
'See if any data exists before continuing
If objData.DataReader.HasRows Then
'Clear previous list
lvwProjects.Items.Clear()
'Process all rows

While objData.DataReader.Read() 'And objData.DataReader.Item("ARITHMOS_MHTROOY") = txtFoitPliAEM_Anaz.Text
'Create a new ListViewItem
'lvwProjects.Items.Clear()
objListViewItem = New ListViewItem
'Add the data to the ListViewItem
objListViewItem.Text = _
objData.DataReader.Item("ARITHMOS_MHTROOY") '= txtFoitPliAEM_Anaz.Text
objListViewItem.Tag = objData.DataReader.Item("ARITHMOS_MHTROOY") '= txtFoitPliAEM_Anaz.Text
'Add the sub items to the listview item
objListViewItem.SubItems.Add( _
objData.DataReader.Item("EPONYMO"))
objListViewItem.SubItems.Add( _
objData.DataReader.Item("ONOMA"))

objListViewItem.SubItems.Add( _
objData.DataReader.Item("TMHMA"))

objListViewItem.SubItems.Add( _
objData.DataReader.Item("ETOS_EISAGOGHS"))

objListViewItem.SubItems.Add( _
Format(objData.DataReader.Item("HMER_TROPOPOIHSHS"), "g"))

'Add the ListViewItem to the ListView control
lvwProjects.Items.Add(objListViewItem)
End While
End If
objData.DataReader.Close()
Catch ExceptionErr As Exception
MessageBox.Show(ExceptionErr.Message, strAppTitle)
End Try
End Using
'Cleanup
objListViewItem = Nothing
End Sub
End Class

johnnys14
Δημοσιεύσεις: 70
Εγγραφή: 27 Ιουν 2008 00:41
Επικοινωνία:

vb.net 2005 database listview

Δημοσίευση από johnnys14 » 03 Ιούλ 2008 19:00

Αφήστε το παιδιά εντάξει βρήκα λύση!

Thanks!

Άβαταρ μέλους
Basilakis
PHP Moderator
Δημοσιεύσεις: 8574
Εγγραφή: 17 Νοέμ 2003 13:03
Τοποθεσία: Womans' Brain
Επικοινωνία:

vb.net 2005 database listview

Δημοσίευση από Basilakis » 03 Ιούλ 2008 20:36

Δεν μας την λές και εμάς εδώ μπας και την χρειαστεί και κάποιος άλλος; :D

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες