VB.Net & SQL Query

[bpapachristos]

Καλημερα σε όλους...Δουλευω πάνω σε ενα μικρο project σε vb.net και θα ήθελα τα φώτα σας.Exω μια φορμα η οποια περιεχει μερικα textboxes και comboboxes οπως επισης και ενα datagrid.Αυτη η φορμα θα λειτουργει ως αναζητηση στην βαση δεδομενων και θα φέρνει τα αποτελεσματα στο datagrid βαση των κριτηριων αναζητησης του χρηστη. Για παραδειγμα αν ο χρηστης πληκτρολογηση ενα όνομα στο textbox ή διαλεξει ακομα μερικες τιμες απο τα comboboxes με το πατημα του κουμπιου να του φερει τα αποτελεσματα στο grid.Επισυνάπτω μια εικονα για να δειτε πως ακριβως ειναι η φορμα.

 

Ο κωδικας που βλεπετε παρακατω ειναι ημιτελης και μαλλον λάθος

 

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

myconnection = New SqlConnection("data source=sbsr2;initial catalog=pharmacies;user id=sa;password=sa")

 

myconnection.Open()

 

mycommand = New SqlCommand("SELECT Ίδρυμα, Πόλη, ΤΚ, Τηλέφωνο, Brick, Geo, Πελάτες, Τετραγωνικά, Προσωπικό, Βιτρίνα FROM Επαφές WHERE Ίδρυμα = me.textbox1.text")

 

 

myconnection.Close()

 

 

End Sub

 

Σας ευχαριστω εκ των προτερων

Φιλικα Βασίλης

[virxen75]

mycommand = New SqlCommand("SELECT Ίδρυμα, Πόλη, ΤΚ, Τηλέφωνο, Brick, Geo, Πελάτες, Τετραγωνικά, Προσωπικό, Βιτρίνα FROM Επαφές WHERE Ίδρυμα = me.textbox1.text")

 

αυτό είναι σίγουρα λάθος

 

μάλλον έτσι

 

mycommand = New SqlCommand("SELECT Ίδρυμα, Πόλη, ΤΚ, Τηλέφωνο, Brick, Geo, Πελάτες, Τετραγωνικά, Προσωπικό, Βιτρίνα FROM Επαφές WHERE Ίδρυμα ='"+me.textbox1.text+"'")

[bpapachristos]

αυτό είναι σίγουρα λάθος

 

μάλλον έτσι

 

mycommand = New SqlCommand("SELECT Ίδρυμα, Πόλη, ΤΚ, Τηλέφωνο, Brick, Geo, Πελάτες, Τετραγωνικά, Προσωπικό, Βιτρίνα FROM Επαφές WHERE Ίδρυμα ='"+me.textbox1.text+"'")

Καταρχην σε ευχαριστω πολυ για την αμεση απαντηση σου.

Πως Θα μπορουσε το query να εμφανιστει στο datagrid γνωριζεις?

[virxen75]

με λίγο GOOGLE

 

http://www.codeproject.com/KB/vb/SQL__Query_date_range.aspx

 

http://www.vb-helper.com/howto_net_datagrid.html

 

http://www.vbdotnetheaven.com/UploadFile/mahesh/DataGridSamp04232005050133AM/DataGridSamp.aspx

[Evgenios1]

Αν εισαι σε sql δες και το linq to sql. Πολυ βολικο.

[NetworkMeltdown]

ΕΛΕΟΣ!!! όλα αυτά τα προγράμματα που βλέπω σε supermarket και βιβλιοπωλεία που αφορούν τις πωλησείς και τέτοια άλλα γίνονται απο posts στο insomnia?

[Apoll]

Φίλε Βασίλη δεν έχεις δηλώσει την σύνδεση που θα χρησιμοποιηθεί στην SQLCommand.

 

Είτε

Dim sqlSelect As SqlCommand = New SqlCommand("SELECT ****", SqlConn******)

είτε

sqlSelect.Connection = (η SqlConn που χρησιμοποιείς).

 

Επίσης αντί να βάζεις textbox.text κλπ στην εντολή, βάλε παραμέτρους για να αποφύγεις λάθη.

 

Κλείνωντας ένα Try Catch δεν θα έβλαπτε με χειρισμό πιθανού exception αν δεν μπορεί να βρει τον server ή προβλήματος στην εντολή.

(Και Finally για να καθαρίσεις συνδέσεις, εντολές κλπ κλπ).