Πώς να εκτελέσει SQL Script Από Visual Basic

Η τελευταία έκδοση του Visual Basic παρέχει ένα πλούσιο στρώμα πρόσβασης δεδομένων που επιτρέπει την object-oriented άντλησης των δεδομένων που χρησιμοποιούνται σε μία εφαρμογή . Μερικές φορές όμως , είναι πιο αποτελεσματική, πιο γρήγορα ή πιο πρακτικό να εκτελέσει απλά ένα script SQL ενάντια στην υποκείμενη βάση δεδομένων άμεσα . Ένα σενάριο SQL μπορεί να περιέχει πολλαπλές δηλώσεις που πρέπει να εκτελεστούν μαζί ή μπορεί να έχει δυναμική SQL που δημιουργείται από την εφαρμογή . Ανεξάρτητα από το λόγο , την εκτέλεση scripts SQL μέσα από το Visual Basic δεν είναι πολύ δύσκολο . Τα πράγματα που θα χρειαστείτε
Visual Studio 2008
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Δημιουργήστε ένα νέο Visual Basic έργο Windows Forms στο Visual Studio επιλέγοντας New Project από το μενού Αρχείο και επιλέγοντας τον κατάλληλο τύπο του έργου . Στην προεπιλεγμένη φόρμα που δημιουργείται , form1 , τοποθετήστε ένα στοιχείο ελέγχου κουμπιού που ονομάζεται Button1 . Κάντε διπλό κλικ για τον έλεγχο για να δημιουργήσετε ένα πρόγραμμα χειρισμού συμβάντων Button1_Click . 2

Στην κορυφή της λίστα κώδικα για Φόρμα1 ( πάνω από τη γραμμή "Δημόσια Τάξη Form1 " ) , προσθέστε μια δήλωση των εισαγωγών για την εισαγωγή της . NET βιβλιοθήκη πρόσβαση στα δεδομένα. Η δήλωση θα πρέπει να μοιάζει κάπως έτσι :

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

Σε αυτό το παράδειγμα , η βάση δεδομένων θεωρείται ότι είναι μια βάση δεδομένων SQL Server. Υπάρχουν και άλλες βιβλιοθήκες για ODBC και OLEDB βάσεις δεδομένων .
Εικόνων 3

Στο πλαίσιο της διαδικασίας χειρισμού συμβάντων Button1_Click , διάσταση μια μεταβλητή που ονομάζεται db ως νέα SqlConnection . Ορίστε την ιδιότητα συμβολοσειράς σύνδεσης να είναι η συμβολοσειρά σύνδεσης για τη βάση δεδομένων και να ανοίξετε τη σύνδεση βάσης δεδομένων με την ανοικτή μέθοδο . Ο κώδικας θα πρέπει να μοιάζει κάπως έτσι :

Dim db As New SqlConnectiondb.ConnectionString = "Πηγή δεδομένων = όνομα_διακομιστή ? Initial Catalog = dbname ? User Id = χρήστης ? Κωδικός = password" db.Open ( )

4

Διάσταση μια μεταβλητή με το όνομα cmd ως νέο SqlCommand . Ρυθμίστε την ιδιότητα CommandText να είναι η δέσμη ενεργειών SQL που πρόκειται να εκτελεστεί . Τέλος , καλούμε τη μέθοδο ExecuteNonQuery του αντικειμένου SqlCommand να εκτελέσει το σενάριο SQL . Ο κώδικας θα πρέπει να μοιάζει κάπως έτσι :

Dim cmd As New SqlCommandcmd.Connection = dbcmd.CommandText = " όνομα_πίνακα ενημέρωση που field1 = 2 όπου Πεδίο3 = 4 " cmd.ExecuteNonQuery ( )
Η

Η