Πώς να ελέγξει για το πρόγραμμα οδήγησης ODBC σε VBA

είσαι σε θέση να ελέγξει την κατάσταση του προγράμματος οδήγησης ODBC μέσω μιας σύνδεσης DSN χρήση της Visual Basic for Applications μπορεί να σας εξοικονομήσει χρόνο, με τον τερματισμό του προγράμματος σας, αν η σύνδεση ODBC δεν υπάρχει . VBA χρησιμοποιείται σε εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας αλλιώς γίνεται με το χέρι . Στο Excel , μπορείτε να χρησιμοποιήσετε τη VBA για να αυτοματοποιήσει τη διαδικασία της εισαγωγής δεδομένων από μια βάση δεδομένων της Access χρησιμοποιώντας μια σύνδεση ODBC . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel . Κάντε κλικ στην καρτέλα "Προγραμματιστής ", ακολουθούμενο από το " Visual Basic ". . Κάντε κλικ στο μενού "Εισαγωγή" και στη συνέχεια " Ενότητα " για να εισάγετε μια νέα ενότητα 2

Δημιουργήστε μια νέα διαδικασία ρουτίνας :

Private Sub checkODBC ( )
Η Φτηνές 3

Δημιουργήστε τις μεταβλητές αντικείμενο που θα χρησιμοποιήσετε για να ελέγξετε το πρόγραμμα οδήγησης ODBC :

Dim adoCNN Όπως ADODB.Connection

Dim canConnect Όπως Boolean

Set adoCNN = Νέα ADODB.Connection
Η

4 Ορίστε το όνομα του ODBC , το όνομα χρήστη και τον κωδικό πρόσβασης :

adoCNN.Open " DSN Name" , "username" , "password "
Φτηνές 5

Ελέγξτε την κατάσταση του οδηγού ODBC :

Αν adoCNN.State = adStateOpen τότε

canConnect = True

adoCNN.Close

End If
Η 6

Προβολή ένα κουτί μήνυμα που να ενημερώνει τον χρήστη για την κατάσταση της σύνδεσης ODBC :

Εάν canConnect τότε

MsgBox " σύνδεση ODBC είναι έτοιμο "

Else

MsgBox " σύνδεση ODBC δεν είναι έτοιμη ! "

End If

End Sub
Η 7

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων