Πώς να Προσθήκη πεδίου Πρόσβαση με Visual Basic

Γνωρίζοντας πώς να προσθέσετε ένα νέο πεδίο σε έναν πίνακα βάσης δεδομένων της Microsoft Office Access χρησιμοποιώντας τη Visual Basic.NET μπορεί να κάνει το πρόγραμμά σας πιο δυναμική . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . VB.NET είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών συχνά προτιμάται από τους προγραμματιστές για την ευκολία χρήσης του. Σε μερικά βήματα μπορείτε να γράψετε τον κωδικό VB.NET για να δημιουργήσετε έναν νέο πίνακα , στη συνέχεια, χρησιμοποιήστε το " ALTER TABLE " δήλωση για να δημιουργήσετε ένα νέο πεδίο . Οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " στο κέντρο παράθυρο του "New Project " Window . 2

Πατήστε το " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα .

Η 3

αντιγραφή και επικόλληση του κώδικα σε ενότητα " Module1.vb σας» .

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

Module Module1

Sub Main ( )

Dim MyConnection Όπως OleDbConnection

Dim myCommand Όπως OleDbCommand

Dim mySQLString Όπως String

MyConnection = Νέα OleDbConnection _

( " Provider = Microsoft.Jet.OLEDB.4.0 ? προέλευσης δεδομένων = D : \\ Temp \\ myTextData.mdb ? " )

myConnection.Open ( )

mySQLString = " ΔΗΜΙΟΥΡΓΙΑ cutomers ΠΙΝΑΚΑΣ ( FIRST_NAME ΚΕΙΜΕΝΟ , LAST_NAME ΚΕΙΜΕΝΟ ) "

myCommand = Νέα OleDbCommand ( mySQLString , MyConnection )

myCommand.ExecuteNonQuery ( )

mySQLString = " INSERT INTO cutomers ΑΞΙΕΣ ( « JOHN », « SMITH ')"

myCommand = Νέα OleDbCommand ( mySQLString , MyConnection )

myCommand.ExecuteNonQuery ( )

mySQLString = " INSERT INTO cutomers ΑΞΙΕΣ ( ' JOHN »,« SMITH ') "

myCommand = Νέα OleDbCommand ( mySQLString , MyConnection )

myCommand.ExecuteNonQuery ( )

mySQLString = " ALTER cutomers ΠΙΝΑΚΑΣ ADD ΙΣΟΤΗΤΑ ΚΕΙΜΕΝΟ ? "

myCommand = νέα OleDbCommand ( mySQLString , MyConnection )

myCommand.ExecuteNonQuery ( )

MsgBox ( " Έχετε δημιουργήσει τον πίνακα πελατών και πρόσθεσε ένα νέο πεδίο με επιτυχία ! " )

End Sub

End Module
Η 4

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

( " Provider = Microsoft.Jet.OLEDB.4.0 ? Πηγή δεδομένων = C : \\ CustomerData.mdb ? " )

Εκτελέστε το πρόγραμμά σας πατώντας το πλήκτρο" F5 "
Η
εικόνων .