I am a student and I have school project to make a batabase using ms access and visual studio 2005 for school library.
When I typing (AEM is number)on the textbox and I press the the Button1 the listviewitem shows the records using access querin “usp_Select_Tmima_Pliroforikis_Danoismoi_FOI”

The problem is than when I click on the record shows listviewitem does not execute access query “usp_Select_Tmima_Pliroforikis_Danoismoi” because I must overload two fields to addparameter("@ARITHMOS_MHTROOY" and “BOOKS_ID”). When I use one fild it works perfectly. Well how can I overload two fields when listviewitem clicked.

Thanks in advansed!



'Here is the program
'Please help!



Public Class Dan_Pli
    Private intRowsAffected As Integer
    'Êïõìðß ãéá ôçí áíáæÞôçóç ôùí äáíåéóìþí óôïí ðéíáêá ðëçñïöïñéêÞ ìå ôï åñþôçìá usp_Select_Tmima_Pliroforikis_Danoismoi_FOI
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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_Danoismoi_FOI"
                objData.InitializeCommand()

                objData.AddParameter("@ARITHMOS_MHTROOY", _
                Data.OleDb.OleDbType.Integer, 32, CType(txtFoitPliAEM_Anaz_Dan.Text, Integer))


                objData.OpenConnection()
                objData.DataReader = objData.Command.ExecuteReader
                'See if any data exists before continuing
                If objData.DataReader.HasRows Then
                    'Clear previous list
                    lvwDANPLI.Items.Clear()
                    'Process all rows
                    While objData.DataReader.Read()
                        'Create a new ListViewItem
                        objListViewItem = New ListViewItem
                        'Add the data to the ListViewItem
                        objListViewItem.Text = _
                        objData.DataReader.Item("ARITHMOS_MHTROOY")

                        objListViewItem.Tag = objData.DataReader.Item("ARITHMOS_MHTROOY")
                        objListViewItem.Tag = objData.DataReader.Item("BOOK_ID")
                        '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("BOOK_ID"))



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


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

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

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

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


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

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

                        'Add the ListViewItem to the ListView control
                        lvwDANPLI.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


    'ÊÜíïíôáò êëéê óå ìéá åããñáöÞ ìáò åìöáíßæåé ôéò ðëçñïöïñßåò ìÝóù ôïõ åñùôÞìáôïò usp_Select_Tmima_Pliroforikis_Danoismoi
    '÷ñçóéìïðïéüíôáò ôï ðåäßï ÁÑÉÈÌÏÓ ÌÇÔÑ¿ÏÕ KAI TO ÐÅÄÉÏ ÂÏÏÊ_ÉD
    Private Sub lvwDANPLI_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvwDANPLI.Click
        'Initialize a new instance of the data access base class
        Using objData As New WDABase
            Try
                'Get the specific project selected in the ListView control
                objData.SQL = "usp_Select_Tmima_Pliroforikis_Danoismoi"
                objData.InitializeCommand()


                objData.AddParameter("@ARITHMOS_MHTROOY", Data.OleDb.OleDbType.Integer, 32, _
                lvwDANPLI.SelectedItems.Item(0).Tag)

                objData.AddParameter("@BOOK_ID", Data.OleDb.OleDbType.Integer, 32, _
                lvwDANPLI.SelectedItems.Item(0).Tag)




                'Data.OleDb.OleDbType.Guid, 16, _
                objData.OpenConnection()
                objData.DataReader = objData.Command.ExecuteReader
                'See if any data exists before continuing
                If objData.DataReader.HasRows Then
                    'Read the first and only row of data
                    objData.DataReader.Read()
                    'Populate the Project Details section

                    txtFoiPliArithmosMhtrooyD.Text = _
                    objData.DataReader.Item("ARITHMOS_MHTROOY") '.ToString.ToUpper()


                    txtFoiPliEponymoD.Text = _
                    objData.DataReader.Item("EPONYMO")

                    txtFoiPliOnomaD.Text = _
                    objData.DataReader.Item("ONOMA")


                    txtFoiPliTmhmaD.Text = _
                    objData.DataReader.Item("BOOK_ID")


                    txtFoiPliHmer_GennhshsD.Text = _
                    objData.DataReader.Item("TITLOS")

                    txtFoiPliDieythynsiD.Text = _
                    objData.DataReader.Item("ISBN")

                    txtFoiPliPolhD.Text = _
                    objData.DataReader.Item("KATHGORIA")

                    txtFoitPliTkD.Text = _
                    objData.DataReader.Item("SYGGRAFEAS")

                    txtFoiPliEtosEisagogisD.Text = _
                    objData.DataReader.Item("EKDOTHS")


                    txtFoiPliHmer_TropopoiisisD.Text = _
                    Format(objData.DataReader.Item("HMER_DANEISMOY"), "g")

                    txtFoiPliEmailD.Text = _
                    objData.DataReader.Item("HMER_EPISTROFHS")

                End If
                objData.DataReader.Close()
            Catch ExceptionErr As Exception
                MessageBox.Show(ExceptionErr.Message) ', strAppTitle)
            End Try
        End Using
    End Sub


End Class

Wrong forum.

This is *CLASSIC* ASP. As in "ASP before ASP.NET existed."

You want an ASP.NET answer.

Sorry