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