Ξεκινήστε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή Console . " 2 
 
 Πατήστε το " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή " για να αφαιρέσετε τα υπάρχοντα κώδικα . 
 Εικόνων 3 
 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " σας . Ο κωδικός θα συνδεθεί με μια βάση δεδομένων χρησιμοποιώντας ένα DSN , στη συνέχεια, το ερώτημα ένα τραπέζι και να εμφανίσει τα περιεχόμενα του πίνακα μέσω ενός πλαισίου μηνύματος. 
 
 Εισαγωγές System.Data.Odbc.OdbcConnection 
 
Module Module1 < br >
 Sub Main ( ) 
 
 Dim rstCntr As Integer 
 
 Dim Conn Όπως Odbc.OdbcConnection 
 
 Conn = Νέα Odbc.OdbcConnection ( " DSN = TRA3 " ) 
 
 conn.Open ( ) 
 
 Dim da As New Odbc.OdbcDataAdapter ( "SELECT * FROM TESTER_INFO TESTER_INFO ? . " , Conn ) 
 
 Dim ds As New Data.DataSet 
 
 da.Fill (ds ) 
 
 Για rstCntr = 0 Για να ds.Tables ( 0 ) Rows.Count . - = Τίποτα 
 
 End Sub 
 
 End Module 
 Η 
 4 Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε το όνομα DSN σας : 
 
 Conn = Νέα Odbc.OdbcConnection ( " DSN = TRA3 " ) 
 
 Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε ερώτημα επιλογής σας : . 
 
 Dim da As New Odbc.OdbcDataAdapter ( "SELECT * FROM TESTER_INFO TESTER_INFO ? " , Conn ) 
 5 
 Πατήστε το" F5 " για να τρέξετε το πρόγραμμά σας VB.NET . 
 Η 
 εικόνων
           
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα