Απ: SelectCommand Parameters

Μπλουγουράς Γιάννης — Mon, 20 Sep 2010 05:38:47 GMT

Μου πήρε 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"

SelectCommand Parameters

sharizanis — Mon, 20 Sep 2010 03:05:21 GMT

Γράφοντας σε 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

SQL Server (και άλλες databases)

Απ: SelectCommand Parameters

SelectCommand Parameters