Πώς να συνδέσετε VB.NET Με την Oracle

Σύνδεση σε μια βάση δεδομένων Oracle με τη χρήση Visual Basic.NET δεν είναι τόσο περίπλοκο όπως μπορείτε να σκεφτείτε . Κάνοντας μια σύνδεση Oracle είναι σχεδόν το ίδιο με μια σύνδεση σε μια βάση δεδομένων SQL Server. Μια διαφορά είναι ότι για την Oracle θα πρέπει να χρησιμοποιήσετε το χώρο ονομάτων Oracle.DataAccess.Client . Μόλις κάνετε τη σύνδεση , τότε μπορείτε να υποβάλετε ερώτημα στη βάση δεδομένων , χρησιμοποιώντας την κλάση OracleCommand . Ο OracleDataReader χρησιμοποιείται για να διαβάσει τα αποτελέσματα από την εντολή και την εμφάνιση τους στην εφαρμογή σας. Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " Αρχείο> New Project" και κάντε κλικ στο επεκτείνουν " Visual Basic ". Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " για να δημιουργήσετε ένα νέο έργο . 2

κάντε δεξί κλικ στο όνομα του έργου στο παράθυρο Solution Explorer και κάντε κλικ στο " Add Reference . " κάντε κλικ στο κουμπί " Oracle.DataAccess " βρίσκεται στην καρτέλα NET . και κάντε κλικ στο "OK".

Η

3 κάντε διπλό κλικ στο " κουμπί" από το παράθυρο Toolbox για να προσθέσετε ένα νέο κουμπί . Κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ του κουμπιού . Προσθέστε μια ετικέτα , χρησιμοποιώντας την ίδια τεχνική
Η 4

Προσθέστε την ακόλουθη γραμμή κώδικα στην κορυφή της ενότητας κωδικό σας για να χρησιμοποιήσουν το χώρο ονομάτων Oracle : . Οι εισαγωγές Oracle.DataAccess.Client
Η 5

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

Dim oracleConn As String = "Πηγή δεδομένων = ( DESCRIPTION = ( ADDRESS_LIST = " _ + " ( ADDRESS = ( ΠΡΩΤΟΚΟΛΛΟ = TCP ) ( HOST = ) ( PORT = ) ) ) " _ + " ( = CONNECT_DATA ( SERVER = ΑΦΙΕΡΩΜΕΝΟ ) ( SERVICE_NAME = ) ) ) ? " _ + " User Id = ? Κωδικός = ? "
Η 6

Προσθέστε τον ακόλουθο κώδικα για να ανοίξετε τη σύνδεση που ορίζεται στο προηγούμενο βήμα :

Dim myConn Όπως New OracleConnection ( oracleConn ) myConn.Open ( )
Η 7

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

Dim myOrcleCmd Όπως New OracleCommandmyOrcleCmd.Connection = myConnmyOrcleCmd.CommandText = " επιλέξτε από όπου = " ? myOrcleCmd.CommandType = CommandType.TextDim dataRdr Όπως OracleDataReader = myOrcleCmd.ExecuteReader ( ) dataRdr.Read ( ) Label1.Text = dataRdr.Item ( " " )
8

Προσθήκη τον ακόλουθο κώδικα για να απελευθερώσει τα αντικείμενα από τη μνήμη :

dataRdr.Dispose ( ) myOrcleCmd.Dispose ( ) myConn.Dispose ( )
Η

9 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ " Button1 " για την αναζήτηση της βάσης δεδομένων της Oracle .
Η
εικόνων