Πώς να δημιουργήσετε μια αποθηκευμένη διαδικασία για να ανακτήσετε τα δεδομένα σε VB 2008

Δημιουργώντας μια αποθηκευμένη διαδικασία SQL Server χρησιμοποιώντας το Microsoft Visual Basic.NET να κάνετε την αίτησή σας πιο δυναμική . VB.NET είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιείται για τη δημιουργία εφαρμογών Windows. Αποθηκευμένες διαδικασίες του SQL Server δεχτούν παραμέτρους εισόδου και μπορεί να χρησιμοποιηθεί για την επιστροφή δεδομένων καλώντας τη διαδικασία . Μπορείτε εύκολα να δημιουργήσετε έναν πίνακα , να προσθέσετε δεδομένα στον πίνακα , δημιουργήστε μια αποθηκευμένη διαδικασία και να το χρησιμοποιήσετε για να ανακτήσετε τα δεδομένα με τη χρήση VB.NET . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " κουμπί" για την " Toolbox " για να προσθέσετε ένα νέο κουμπί . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb "
εικόνων 3

Αντιγράψτε και επικολλήστε την ακόλουθη γραμμή κώδικα στην κορυφή της ενότητας: .

Εισαγωγές System.Data.SqlClient
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα κάτω από το " Button1_Click " για να κάνετε μια σύνδεση με τη βάση δεδομένων του διακομιστή σας και να δημιουργήσετε ένα νέο πίνακα :

Dim SQL ως String

ConnectionString = "Πηγή δεδομένων = ? Initial Catalog = ? ID χρήστη = ? Κωδικός = "

conn = Νέα SqlConnection ( ConnectionString )

conn.Open ( )

sql = " CREATE TABLE MyTable " + " ( MyID INTEGER ΠΙΕΣΕΩΝ PKeyMyId PRIMARY KEY , " + " myName CHAR ( 50 ) , myAddress CHAR ( 255 ) , myBalance FLOAT ) "

cmd = Νέα SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

Επεξεργαστείτε τον παρακάτω κώδικα και πληκτρολογήστε το όνομα του διακομιστή , βάσης δεδομένων σας και τα στοιχεία σύνδεσης :

ConnectionString = "Πηγή δεδομένων = ? Initial Catalog = ? ID χρήστη = ? Κωδικός = <κωδικό πρόσβασης > "
5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα με τον κωδικό στο προηγούμενο βήμα για να προσθέσετε τιμές στον πίνακα που δημιουργήσατε :

« Προσθέτοντας καταγράφει τον πίνακα

sql = " INSERT INTO MyTable ( MyID , myName , myAddress , myBalance ) " + " ΑΞΙΩΝ ( 1 , « John Smith »,« Λος Άντζελες » , 25.14 ) "

cmd = Νέα SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

sql = " INSERT INTO MyTable ( MyID , myName , myAddress , myBalance ) " + " ΑΞΙΕΣ ( 2 , « Jose Lopez »,« Dallas , TX » , 425.25 ) «

cmd = Νέα SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

sql = " INSERT INTO MyTable ( MyID , myName , myAddress , myBalance ) " + " ΑΞΙΕΣ ( 3 , « Oscar Gonzalez », « Φορτ Γουόρθ , Τέξας » , 14.25 ) "

cmd = Νέα SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

sql = " INSERT INTO MyTable ( MyID , myName , myAddress , myBalance ) " + " ΑΞΙΕΣ (4 ', Ana Ramos », « New York , NY » , 14.63 ) "

cmd = νέα SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )
Η 6

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε μια νέα αποθηκευμένη διαδικασία που θα χρησιμοποιήσετε για να ανακτήσετε τα δεδομένα :

«δημιουργήσουν αποθηκευμένη διαδικασία

sql = " ΔΗΜΙΟΥΡΓΙΑ ΔΙΑΔΙΚΑΣΙΑ MyProc AS " + " SELECT myName , myAddress ΑΠΟ MyTable GO "

ExecuteSQLStmt ( sql )

conn . Κλείσιμο ()
Η 7

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να ανακτήσετε δεδομένα από τον πίνακα που δημιουργήσατε :

« retreive δεδομένα

conn = Νέα SqlConnection ( ConnectionString )

conn.Open ( )

Dim da As New SqlDataAdapter ( " MyProc " , conn )

Dim ds As New DataSet ( "SP" )

da.Fill (ds , "SP" )

DataGridView1.DataSource = ds.Tables ( 0 )

conn.Close ( )
8

Αντιγραφή και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε μια νέα διαδικασία για να στείλετε μια εντολή SQL :

Private Sub ExecuteSQLStmt ( ByVal sql Όπως String )

Εάν conn.State = ConnectionState.Open τότε

conn.Close ( )

End If

ConnectionString = "Πηγή δεδομένων = ? Initial Catalog = ? ID χρήστη = ? password = "

conn.ConnectionString = ConnectionString

conn.Open ( )

cmd = Νέα SqlCommand ( sql , conn )

Δοκιμάστε

cmd.ExecuteNonQuery ( )

ae αλιευμάτων Όπως SQLException

MessageBox.Show ( ae.Message.ToString ( ) )

End Δοκιμάστε

End Sub

Επεξεργαστείτε τον παρακάτω κώδικα και πληκτρολογήστε το όνομα του διακομιστή , βάσης δεδομένων σας και τα στοιχεία σύνδεσης :

ConnectionString = "Πηγή δεδομένων = ? Initial Catalog = ? ID χρήστη = ? Κωδικός = "
Η

9 Πατήστε το πλήκτρο" F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " Button1 "για να εμφανίσετε τα δεδομένα μέσω της δεδομένα προβολή πλέγματος ελέγχου .
Η
εικόνων