Πώς να καλέσετε μια δέσμη μέτρων για την Oracle Από Visual Basic

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

Εισαγωγή του namespace Oracle στο έργο σας . Η εισαγωγή ενός namespace σας επιτρέπει να καλέσετε τις κρίσιμες λειτουργίες της Oracle . Ο κώδικας που ακολουθεί τοποθετείται στην κορυφή του αρχείου κωδικό σας :

Εισαγωγές System.Data.OracleClient 2

Δημιουργήστε μια σύνδεση Oracle και να το ανοίξετε . Η λειτουργία αυτή χρησιμοποιεί το όνομα της Oracle , το όνομα χρήστη και τον κωδικό πρόσβασης για να συνδεθείτε με το διακομιστή . Ο παρακάτω κώδικας δημιουργεί τη σύνδεση και την ανοίγει για μελλοντική χρήση :

Dim con As New OracleConnection ( "Ο διακομιστής = Oracle_Server_Name ? Uid = το όνομα χρήστη ? Pwd = password" ) con.Open ( )
Η Φτηνές 3

Δημιουργήστε την εντολή της Oracle που καλεί το πακέτο . Ένα αντικείμενο εντολή εκτελεί τις δηλώσεις σχετικά με το διακομιστή της βάσης δεδομένων . Ο κώδικας που ακολουθεί δείχνει πώς μπορείτε να δημιουργήσετε μια εντολή Oracle : . .

Δημ. cmd As New OracleCommand ( ) cmd Σύνδεση = concmd CommandText = " Oracle_Package_Name "
Η 4

Εκτελέστε την εντολή και να ορίσετε σε ένα προσαρμογέα δεδομένων. Ο προσαρμογέας δεδομένα μπορούν στη συνέχεια να χρησιμοποιηθούν σε οποιοδήποτε τμήμα του κώδικα σας, για να εμφανίσετε τις τιμές που ανακτώνται . Ο κώδικας που ακολουθεί γεμίζει τον προσαρμογέα δεδομένων με τις τιμές που ανακτώνται από τη σύνδεση της Oracle :

Dim mydata Όπως DataSetDim DataAdapter Όπως New OracleDataAdapter ( cmd ) dataAdapter.Fill ( mydata )
εικόνων