Ξεκινήστε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή Console . " 2
Πατήστε το " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή " για να αφαιρέσετε τα υπάρχοντα κώδικα .
Εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " σας . Ο κωδικός θα συνδεθεί με μια βάση δεδομένων χρησιμοποιώντας ένα DSN , στη συνέχεια, το ερώτημα ένα τραπέζι και να εμφανίσει τα περιεχόμενα του πίνακα μέσω ενός πλαισίου μηνύματος.
Εισαγωγές System.Data.Odbc.OdbcConnection
Module Module1
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 .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα