Γράφοντας σε vb 2005  στο παρακάτω κώδικα κάτι μου διαφεύγει  και δεν παίρνω το αποτέλεσμα που θέλω:

 Έχω ένα  SelectCommand με μία παράμετρο “etos” την οποία την έχω δημηουργίσει και είναι είδη αποθηκευμένη στο Project μου  χρησιμοποιόντας σε χρόνο σχεδίασης τον “Confiqure Data Adapter”. 

Στη συνέχεια σε “RunTime” καταχορώ άλη μια παράμετρο την “afm”

Και καθώς εκτελώ το Project βλεπω ότι (δίχως να μου επιστρέψει κάποιο

σφάλμα) το φίλτρο με την δεύτερη παράμετρο δεν εφαρμόζεται και μου φέρνει πίσω όλες τις εγγραφές από τον πίνακα της “Access”

Αν και βλέπω οτι χρησιμοποιόντας την “Msgbox()”

Παρακάτω παίρνω τις σωστές τιμές.

Τι θα μπορούσα  να κάνω μ’ αυτό;

Ευχαριστώ προκαταβολικά!!

Ds_Ektiposeon1.Clear()

DaAnalitiEktiposi.SelectCommand.Connection = sindesiBasisDedomenon

 DaAnalitiEktiposi.SelectCommand.Parameters("etos").Value = EtosEktiposis

 DaAnalitiEktiposi.SelectCommand.Parameters.AddWithValue("afm", "096006294")

DaAnalitiEktiposi.SelectCommand.Parameters.Item(1).Direction = ParameterDirection.Input

 MsgBox(DaAnalitiEktiposi.SelectCommand.Parameters.Item(0).Value) = "2010"

 MsgBox(DaAnalitiEktiposi.SelectCommand.Parameters.Item(1).Value) = "096006294"

MsgBox(DaAnalitiEktiposi.SelectCommand.Parameters.Count)= 2

 DaAnalitiEktiposi.Fill(Ds_Ektiposeon1, "AnalitikiEktiposi")

If Ds_Ektiposeon1.AnalitikiEktiposi.Rows.Count = 0

 Then MsgBox("Δέν υπάρχουν εγγραφές για Εκτύπωση!!", MsgBoxStyle.Information)

 Exit Sub

 End If

Μου πήρε 3 λεπτά να καταλάβω ότι  MsgBox(DaAnalitiEktiposi.SelectCommand.Parameters.Item(0).Value)       'Εμφανίζει "2010"

Έτσι όπως το γραφείς φαίνεται να θέτεις τιμή στο MsgBox.

To MsgBox είναι για Backwards Compatibility με την VB6. Κάνε χρήση την MessageBox.Show("Hello World!!!!")

Στο πρόβλημα:

Δεν λειτουργεί διότι θέτεις τιμές σε παραμέτρους, χωρίς να αλλάζεις το Select Command Text.

Οι παράμετροι δεν χρησιμοποιούνται στο Select Command αυτόματα, πρέπει να το αλλάξεις.

πχ DaAnalitiEktiposi.SelectCommand.CommandText += " where Afm=@Afm"