Πώς να δημιουργήσετε XML από τη βάση δεδομένων Χρήση της Visual Basic

Μια από τις ευθύνες των σχεδιαστών Web και τεχνικοί συγγραφείς έχει τη δυνατότητα να ανακτήσετε πληροφορίες από μια βάση δεδομένων . Visual Basic , ή VB , είναι ένα event-driven γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft για να επιτρέπει στους προγραμματιστές να δημιουργήσουν προγράμματα για το λειτουργικό σύστημα των Windows . Λόγω του τρόπου με τον οποίο η γλώσσα λειτουργεί , μπορεί επίσης να χρησιμοποιηθεί για να εμφανίσει δυναμικά δεδομένα . XML , ή Extensible Markup Language , είναι μια μορφή κωδικοποίησης, το οποίο έχει σχεδιαστεί για τη μεταφορά και την αποθήκευση δεδομένων . Οδηγίες
Η 1

Ξεκινήστε μια σύνδεση βάσης δεδομένων . Αυτό επιτυγχάνεται με τη δημιουργία ενός αντικειμένου σύνδεσης , η οποία θα σας αφήσει να πάρετε πληροφορίες για τη βάση δεδομένων . Το πρότυπο κώδικα για τη δημιουργία μιας σύνδεσης βάσης δεδομένων σε μια βάση δεδομένων Access ακολουθεί . Σημειώστε ότι το όνομα της βάσης δεδομένων θα είναι " MyServer . " Εισάγετε τον κωδικό :

Dim conn ως OleDbConnectionconn = Νέα OleDbConnection ( " Provider = Microsoft.Jet.OLEDB.4.0 ? Προέλευσης δεδομένων = " myDB.mdb " ) 2

Δημιουργία ερώτημα . Αυτό θα επιτρέψει το πρόγραμμα για την ανάκτηση πληροφοριών από τη βάση δεδομένων που θα χρησιμοποιηθεί για το αρχείο XML . για λόγους επίδειξης , οι πληροφορίες που ανακτώνται θα είναι το πρώτο και το τελευταίο όνομα από μια λίστα πελατών , σχολιασμένη από " first_name , last_name από τον πελάτη . " το παρακάτω κομμάτι κώδικα δημιουργεί ένα ερώτημα και στη συνέχεια εκχωρεί την πληροφορία σε ένα αντικείμενο DataReader :

conn.Open ( ) query = " επιλέξτε ΚωδΠελάτη , first_name , last_name από τον πελάτη "εντολή = Νέα OleDbCommand (ερώτημα , conn ) αναγνώστη = dbcomm.ExecuteReader ( )
εικόνων 3

Ανοίξτε ένα νέο αρχείο XML και να εισέλθουν στην ετικέτα έναρξης , η οποία χρησιμεύει ως root σας του εγγράφου XML . πάλι , για τους σκοπούς της παρούσας επίδειξης " . πελάτη» , η ετικέτα ρίζα είναι χαρακτηρισμένα ως ο κώδικας έχει ως εξής :

Dim xml As New XmlTextWriter ( " Customer.xml " , System.Text.Encoding.UTF8 ) xml.WriteStartDocument ( True ) xml . Μορφοποίηση = Formatting.Indentedxml.Indentation = 2xml.WriteStartElement ( "πελάτης " )
Η 4

Συνεχίστε να συμπληρώσετε σε κάθε αρχείο XML με πληροφορίες του πελάτη ή εγγραφή. Εδώ είναι ένα παράδειγμα ενός τρόπου να βρόχο μέσω ο αναγνώστης της βάσης δεδομένων και να γράφουν κάθε αρχείο :

Do , ενώ
5

Κλείστε το έγγραφό σας με την είσοδο με την ετικέτα τέλους για το αρχείο XML Ένα παράδειγμα θα ήταν : .

xml.WriteEndElement ( ) xml.WriteEndDocument ( ) xml.Close ( )


εικόνων