Μενού

Εργασία με αντικείμενα σύνδεσης VBScript ADODB

working with vbscript adodb connection objects

Δοκιμάστε Το Όργανο Μας Για Την Εξάλειψη Των Προβλημάτων

Εισαγωγή στα αντικείμενα σύνδεσης VBScript: Tutorial # 12

Στο προηγούμενο μου Σεμινάριο VBS , συζητήσαμε για το « Αντικείμενα του Excel »Στο VBScript. Σε αυτό το σεμινάριο, θα σας εξηγήσω Αντικείμενα σύνδεσης που χρησιμοποιούνται στο VBScript.

Το VBScript υποστηρίζει διαφορετικό τύπο αντικειμένων και τα αντικείμενα σύνδεσης είναι μεταξύ αυτών. Τα Αντικείμενα Σύνδεσης αναφέρονται κυρίως ως τα αντικείμενα που παρέχουν υποστήριξη στους Κωδικοποιητές για να δουλέψουν και να ασχοληθούν με τις Βάσεις Δεδομένων.

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

Εργασία με αντικείμενα σύνδεσης στο VBScript

Τι θα μάθετε:

ΣΦΑΙΡΙΚΗ ΕΙΚΟΝΑ

Οποιεσδήποτε βάσεις δεδομένων όπως SQL Server, PL / SQL κ.λπ. πρέπει να είναι εγκατεστημένο στον υπολογιστή σας για να εργαστείτε με τις συνδέσεις βάσης δεδομένων.

Ως εκ τούτου, δεν υπάρχει κανένας απλός μηχανισμός για σύνδεση με τη βάση δεδομένων στο QTP. Αλλά με τη βοήθεια του Αντικείμενα ADODB , μπορείτε να αλληλεπιδράσετε με τη βάση δεδομένων και να εργαστείτε με τα ερωτήματα SQL για τη λήψη δεδομένων από τη βάση δεδομένων.

ΦΑΣΑΡΙΑ σημαίνει Αντικείμενα δεδομένων ActiveX και αυτό παρέχει τον μηχανισμό που λειτουργεί ως ενδιάμεσος μεταξύ του QTP και της βάσης δεδομένων.

Αυτό το θέμα αποτέλεσε τη βάση της συνεργασίας με τη βάση δεδομένων και θα ήταν πολύ χρήσιμο για σας μακροπρόθεσμα εάν έχετε καλύτερη κατανόηση.

Θα προσπαθήσω να σας κάνω να καταλάβετε όλους τους διαφορετικούς κωδικούς, ιδιότητες και μεθόδους που απαιτείται να γραφτούν για να δουλέψετε με τη βάση δεδομένων με εύκολο τρόπο, ώστε να μπορείτε εύκολα να γράψετε ένα κομμάτι κώδικα μόνοι σας.

Τώρα, ας ξεκινήσουμε με τις Ιδιότητες και τις μεθόδους που είναι χρήσιμες για τη δημιουργία σύνδεσης με τη βάση δεδομένων.

Ιδιότητες και μέθοδοι σύνδεσης αντικειμένων

Υπάρχουν διαφορετικές ιδιότητες και μέθοδοι που υποστηρίζουν την εξαγωγή δεδομένων από τη βάση δεδομένων.

διαφορά μεταξύ ποιοτικού ελέγχου και διασφάλισης

Η λίστα των ιδιοτήτων του αντικειμένου σύνδεσης ADODB έχει ως εξής:

# 1) Συμβολοσειρά σύνδεσης :

Αυτή είναι μια πολύ χρήσιμη ιδιότητα που χρησιμοποιείται για τη δημιουργία σύνδεσης βάσης δεδομένων και περιλαμβάνει λεπτομέρειες σύνδεσης, όπως οι λεπτομέρειες του Πρόγραμμα οδήγησης, όνομα διακομιστή βάσης δεδομένων, όνομα χρήστη και κωδικός πρόσβασης .

# 2) Χρονικό όριο σύνδεσης :

Αυτό χρησιμοποιείται για τον καθορισμό του απαιτούμενου χρόνου για αναμονή για να δημιουργηθεί μια σύνδεση.

# 3) Πάροχος :

Αυτή η ιδιότητα παρέχει όλες τις σχετικές με τον πάροχο λεπτομέρειες, δηλαδή το όνομα του Πάροχος σύνδεσης .

# 4) Πολιτεία :

Αυτό παρέχει τις πληροφορίες σχετικά με την κατάσταση της σύνδεσης, δηλαδή εάν η σύνδεση είναι ON ή OFF .

Τα παραπάνω είναι οι ιδιότητες ενός αντικειμένου σύνδεσης. Ωστόσο, υπάρχει ένα Αντικείμενο RecordSet επίσης (θα συζητήσουμε για λίγο).

Ο κατάλογος των ιδιοτήτων του έχει ως εξής:

# 1) BOF:

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

# 2) EOF:

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

Σημείωση: Οι τιμές EOF και BOF θα είναι ψευδείς όταν δεν υπάρχουν εγγραφές στο σύνολο εγγραφών. Αυτό είναι χρήσιμο σε περίπτωση επικύρωσης κενών εγγραφών, δηλαδή όταν δεν υπάρχουν εγγραφές στο σύνολο εγγραφών.

# 3) Μέγιστος αριθμός:

καλύτερο λογισμικό για τη βελτιστοποίηση των Windows 10

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

Ας ρίξουμε μια ματιά στις μεθόδους:

Λίστα μεθόδων αντικειμένου σύνδεσης ADODB και RecordSet Object έχουν ως εξής:

  • Ανοιξε: Αυτή η μέθοδος χρησιμοποιείται για να ανοίξει ένα αντικείμενο σύνδεσης βάσης δεδομένων / αντικείμενο σετ εγγραφών.
  • Εκτέλεση: Αυτό χρησιμοποιείται για την εκτέλεση ενός ερωτήματος SQL που παρέχεται.
  • Κλείσε: Αυτό χρησιμοποιείται για να κλείσει μια σύνδεση βάσης δεδομένων / σύνολο εγγραφών που ανοίγει.
  • Ματαίωση: Πρόκειται για μια μέθοδο εγγραφής που χρησιμοποιείται για την ακύρωση της υπάρχουσας εκτέλεσης της σύνδεσης βάσης δεδομένων.
  • κλώνος: Αυτή είναι μια μέθοδος σετ εγγραφών και χρησιμοποιείται για τη λήψη του κλώνου του υπάρχοντος αντικειμένου σετ εγγραφών.
  • κίνηση: Αυτή είναι μια μέθοδος σετ εγγραφών που χρησιμοποιείται για τη μετακίνηση του δείκτη σε μια καθορισμένη θέση μέσα σε ένα σύνολο εγγραφών βάσει του αριθμού που αναφέρεται.
  • μετρώ: Αυτή είναι μια μέθοδος συνόλου εγγραφών και χρησιμοποιείται για να ληφθεί ο συνολικός αριθμός πεδίων που υπάρχουν στο σύνολο εγγραφών, δηλ. Ο συνολικός αριθμός στηλών σε έναν πίνακα.
  • στοιχείο (i): Αυτή είναι μια μέθοδος εγγραφής. Αυτό χρησιμοποιείται για να πάρει το στοιχείο του οποίου το ευρετήριο καθορίζεται από τον συνολικό αριθμό των πεδίων που υπάρχουν σε ένα σύνολο εγγραφών.

Αυτές είναι οι διαφορετικές ιδιότητες και μέθοδοι που θα χρησιμοποιήσετε κατά την αντιμετώπιση των αντικειμένων που σχετίζονται με τη σύνδεση.

Ας προχωρήσουμε στην πρακτική εφαρμογή για να γνωρίζουμε τη λειτουργία αυτών των αντικειμένων.

Δημιουργία σύνδεσης βάσης δεδομένων με χρήση αντικειμένου σύνδεσης ADODB

Σε αυτήν την ενότητα, θα δούμε τα διάφορα βήματα που εμπλέκονται στη δημιουργία μιας σύνδεσης βάσης δεδομένων χρησιμοποιώντας τον μηχανισμό Connection Object στο VBScript.

Ακολουθεί ο Κώδικας για τη δημιουργία σύνδεσης:

Ορισμός obj = createobject ('ADODB.Connection') ' Δημιουργία αντικειμένου σύνδεσης ADODB
Ορισμός obj1 = createobject ('ADODB.RecordSet') ' Δημιουργία αντικειμένου σετ εγγραφών ADODB
Αχνό dbquery «Δήλωση μεταβλητής ερωτήματος βάσης δεδομένων bquery
Dbquery = 'Επιλέξτε acctno από το dbo.acct όπου όνομα =' Harsh '' «Δημιουργία ερωτήματος
obj.Open 'Provider = SQLQLEDB; Server =. SQLEXPRESS; UserId = test; Password = P @ 123; Βάση δεδομένων = AUTODB' «Άνοιγμα σύνδεσης
obj1. Ανοίξτε το dbquery, obj «Εκτέλεση του ερωτήματος χρησιμοποιώντας το σύνολο εγγραφών
val1 = obj1.fields.item (0) «Θα επιστρέψει την τιμή πεδίου
msgbox val1 «Εμφάνιση τιμής του στοιχείου πεδίου 0, δηλ. Στήλη 1
κλείστε «Κλείσιμο του αντικειμένου σύνδεσης
obj1.κλείσιμο «Κλείσιμο του αντικειμένου σύνδεσης
Ορισμός obj1 = Τίποτα ' Απελευθέρωση αντικειμένου Recordset
Ορισμός obj = τίποτα » Απελευθέρωση αντικειμένου σύνδεσης

Ας δούμε πώς λειτουργεί:

  • Πρώτον, α Σύνδεση Αντικείμενο με το όνομα «obj» δημιουργείται χρησιμοποιώντας τη λέξη-κλειδί «createobject» και καθορίζεται ADODB Connection στην παράμετρο καθώς δημιουργείτε ένα αντικείμενο σύνδεσης βάσης δεδομένων.
  • Μετά ένα Αντικείμενο σετ εγγραφών δημιουργείται για πρόσβαση στις εγγραφές ενός συγκεκριμένου πίνακα από τη βάση δεδομένων χρησιμοποιώντας το «obj1». Το Recordset Object παρέχει έναν τρόπο πρόσβασης στις εγγραφές από τη βάση δεδομένων.
  • Μετά από αυτό, μια μεταβλητή δηλώνεται για ένα ερώτηση 'Dbquery' για αποθήκευση του ερωτήματος για ανάκτηση των εγγραφών από τη βάση δεδομένων.
  • Στη συνέχεια, ένα αντικείμενο σύνδεσης που δημιουργείται παραπάνω είναι άνοιξε για να ξεκινήσετε να εργάζεστε με το αντικείμενο παρέχοντας όλες τις λεπτομέρειες σχετικά με τον πάροχο, όπως SQL SERVER, όνομα διακομιστή, όνομα βάσης δεδομένων, αναγνωριστικό χρήστη και κωδικό πρόσβασης.
  • Ένα ερώτημα είναι τότε εκτελέστηκε μετά το άνοιγμα του αντικειμένου της εγγραφής αναφέροντας το ερώτημα και το αντικείμενο σύνδεσης.
  • Στη συνέχεια, εκτελείται η κύρια εργασία για να ληφθεί η τιμή του αριθ. ενός συγκεκριμένου ατόμου σύμφωνα με το ερώτημα που χρησιμοποιεί πεδία του συνόλου εγγραφών που αναφέρεται στο ευρετήριο του αντικειμένου όπου ο λογαριασμός αρ. βρίσκεται όπως το στοιχείο (0) σε αυτήν την περίπτωση. Στη συνέχεια εμφανίζεται η τιμή ενός πεδίου με τη βοήθεια ενός πλαισίου μηνυμάτων.

Σημείωση: Τα πεδία αντιπροσωπεύουν «στήλες» και το σύνολο εγγραφών αντιπροσωπεύει «σειρές» ενός πίνακα βάσης δεδομένων.

  • Τα αντικείμενα είναι τότε κλειστό καθώς η εργασία έχει ολοκληρωθεί.
  • Τέλος, και τα δύο αντικείμενα - obj και obj1 είναι αντίστοιχα απελευθερώθηκε χρησιμοποιώντας τη λέξη-κλειδί «Τίποτα».

Σημείωση : Είναι καλή πρακτική να απελευθερώνετε τα αντικείμενα χρησιμοποιώντας «Ορισμός ονόματος αντικειμένου = Τίποτα» μετά την ολοκλήρωση της εργασίας στο τέλος.

Έχουμε δει όλα σχετικά με τη δημιουργία σύνδεσης με τη βάση δεδομένων και την ανάγνωση και εμφάνιση δεδομένων χρησιμοποιώντας συνδυασμό της βάσης δεδομένων και του QTP.

Ας δούμε μερικά άλλα σενάρια χρησιμοποιώντας το αντικείμενο σύνδεσης.

Εξαγωγή δεδομένων σε αρχείο Excel χρησιμοποιώντας αντικείμενο σύνδεσης ADODB

Σε αυτήν την ενότητα, θα δούμε τα διάφορα βήματα που εμπλέκονται στην εξαγωγή των δεδομένων σε ένα αρχείο excel από τη βάση δεδομένων χρησιμοποιώντας τον μηχανισμό Connection Object στο VBScript.

Ακολουθεί ο Κώδικας για αυτό το σενάριο:

Set obj = CreateObject('ADODB.Connection') Set obj1 = CreateObject('ADODB.RecordSet ') Set obj2 = CreateObject('Excel.Application') Set obj3 = obj2.Workbooks.Open ('C:UsersRiya.xlsx') Set obj4 = obj3.Worksheets(1) obj.Provider =('Microsoft.ACE.OLEDB.12.0') obj.Open 'C:Users ewdb.autodb' obj1.Open 'Select name, age from person', obj obj4.cells(1, 1) = 'Name' obj4.cells(1, 2) = 'Age' row = 2 While obj1.EOF = False obj4.cells(row, 1) = obj1.Fields('Name') obj4.cells(row, 2) = obj1.Fields('Age') obj1.MoveNext row = row+1 Wend obj3.Save obj2.Quit obj1.Close obj.Close Set obj4 = Nothing Set obj3 = Nothing Set obj2 = Nothing Set obj1 = Nothing Set obj = Nothing

Ας δούμε πώς λειτουργεί:

  • Πρώτον, αντικείμενα - Σύνδεση Object, RecordSet Object και Excel Object με το όνομα «obj», «obj1» και «obj2» αντίστοιχα δημιουργούνται χρησιμοποιώντας τη λέξη-κλειδί «createobject».
  • Στη συνέχεια, ένα αντικείμενο βιβλίου εργασίας - Το «obj3» δημιουργείται αναφέροντας την τοποθεσία του αρχείου excel και μετά από αυτό φύλλο εργασίας Το αντικείμενο («obj4») δημιουργείται για να καθορίσει το φύλλο στο αρχείο excel όπου πρέπει να εξαχθούν τα δεδομένα.
  • Στη συνέχεια, ένα αντικείμενο σύνδεσης που δημιουργείται παραπάνω είναι άνοιξε για να αρχίσετε να εργάζεστε με το αντικείμενο και αναφέρονται οι λεπτομέρειες του Παροχέα.
  • Ένα ερώτημα είναι τότε εκτελέστηκε μετά το άνοιγμα του αντικειμένου σετ εγγραφής αναφέροντας το ερώτημα και το αντικείμενο σύνδεσης.
  • Στη συνέχεια, εκτελείται η κύρια εργασία για την αποθήκευση των τιμών του ονόματος και της ηλικίας ενός συγκεκριμένου ατόμου στο αρχείο excel σύμφωνα με το ερώτημα χρησιμοποιώντας πεδία του συνόλου εγγραφών στα κελιά του φύλλου από τη βάση δεδομένων. Ο βρόχος θα συνεχιστεί έως ότου το EOF δεν είναι λανθασμένο (έχουμε ήδη συζητήσει το EOF).
  • Το βιβλίο εργασίας του Excel είναι τότε αποθηκεύτηκε .
  • Η εφαρμογή Excel θα εγκαταλείπω καθώς η εργασία έχει ολοκληρωθεί.
  • Τα αντικείμενα είναι τότε κλειστό καθώς η εργασία έχει ολοκληρωθεί.
  • Τέλος, όλα τα αντικείμενα είναι απελευθερώθηκε χρησιμοποιώντας τη λέξη-κλειδί «Τίποτα».

Εξαγωγή δεδομένων σε αρχείο κειμένου με χρήση ADODB Connection Object

Σε αυτήν την ενότητα, θα δούμε τα διάφορα βήματα που εμπλέκονται στην εξαγωγή δεδομένων σε ένα αρχείο κειμένου από τη βάση δεδομένων χρησιμοποιώντας το μηχανισμό Αντικείμενο σύνδεσης στο VBScript.

Ακολουθεί ο Κώδικας για αυτό το σενάριο:

Set obj = CreateObject('ADODB.Connection') Set obj1 = CreateObject('ADODB.RecordSet ') Set obj2 = CreateObject('Scripting.FileSystemObject') Set obj3 = obj2.OpenTextFile('C:UsersRiya.xlsx') obj.Provider =('Microsoft.ACE.OLEDB.12.0') obj.Open 'C:Users ewdb.autodb' obj1.Open 'Select name, age from person', obj obj3.WriteLine 'Name Age' obj3.WriteLine '------' While obj1.EOF = False obj3.WriteLine obj1.Fields('Name') & “ “ & obj1.Fields('Age') obj1.MoveNext Wend obj3.Close Set obj3 = Nothing Set obj2 = Nothing obj1.Close obj.Close Set obj1 = Nothing Set obj = Nothing

Ας δούμε πώς λειτουργεί:

  • Πρώτον, αντικείμενα - Σύνδεση Object, RecordSet Object και File Object με το όνομα «obj», «obj1» και «obj2» αντίστοιχα δημιουργούνται χρησιμοποιώντας τη λέξη-κλειδί «createobject».
  • Στη συνέχεια, ανοίγει ένα αντικείμενο αρχείου που αναφέρει το τοποθεσία του αρχείου κειμένου όπου τα δεδομένα πρέπει να εξαχθούν.
  • Στη συνέχεια, ένα αντικείμενο σύνδεσης που δημιουργείται παραπάνω είναι άνοιξε για να αρχίσετε να εργάζεστε με το αντικείμενο και αναφέρονται οι λεπτομέρειες του Παροχέα.
  • Ένα ερώτημα είναι τότε εκτελέστηκε μετά το άνοιγμα του αντικειμένου σετ εγγραφής αναφέροντας το ερώτημα και το αντικείμενο σύνδεσης.
  • Στη συνέχεια, το όνομα και η ηλικία γράφονται χρησιμοποιώντας γραφή μέθοδος ενός αντικειμένου συστήματος αρχείων.
  • Στη συνέχεια, εκτελείται η κύρια εργασία για τη σύνταξη των τιμών του ονόματος και της ηλικίας στο αρχείο κειμένου ενός συγκεκριμένου ατόμου που χρησιμοποιεί το πεδία του συνόλου εγγραφών στα κελιά του φύλλου από τη βάση δεδομένων. Ο βρόχος θα συνεχιστεί έως ότου το EOF δεν είναι λανθασμένο (έχουμε ήδη συζητήσει το EOF).
  • Ένα αντικείμενο αρχείου είναι τότε κλειστό και τα αντικείμενα που σχετίζονται με το αρχείο απελευθερώνονται.
  • Τα αντικείμενα είναι τότε κλειστό καθώς η εργασία έχει ολοκληρωθεί.
  • Τέλος, το αντικείμενο σύνδεσης και το αντικείμενο της εγγραφής είναι απελευθερώθηκε χρησιμοποιώντας μια λέξη-κλειδί «Τίποτα».

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

Τώρα, ας κατανοήσουμε την εφαρμογή αυτών των σεναρίων μέσω ενός απλού παραδείγματος.

Παράδειγμα:

Let’s see implementation of Exporting data in files Function Exporttoexcelfile() ‘Function for exporting data to excel file Set obj = CreateObject('ADODB.Connection') Set obj1 = CreateObject('ADODB.RecordSet ') Set obj2 = CreateObject('Excel.Application') Set obj3 = obj2.Workbooks.Open ('C:UsersRiya.xlsx') Set obj4 = obj3.Worksheets(1) obj.Provider =('Microsoft.ACE.OLEDB.12.0') obj.Open 'C:Users ewdb.autodb' obj1.Open 'Select name, age from person', obj obj4.cells(1, 1) = 'Name' obj4.cells(1, 2) = 'Age' row = 2 If obj1.EOF = True Then Msgbox “No records found on the table!!” End If While obj1.EOF = False obj4.cells(row, 1) = obj1.Fields('Name') obj4.cells(row, 2) = obj1.Fields('Age') obj1.MoveNext row = row+1 Wend obj3.Save obj2.Quit obj1.Close obj.Close Set obj4 = Nothing Set obj3 = Nothing Set obj2 = Nothing Set obj1 = Nothing Set obj = Nothing End Function Function Exporttotextfile() ‘Function for exporting data to text file Set obj = CreateObject('ADODB.Connection') Set obj1 = CreateObject('ADODB.RecordSet ') Set obj2 = CreateObject('Scripting.FileSystemObject') Set obj3 = obj2.OpenTextFile('C:UsersRiya.xlsx') obj.Provider =('Microsoft.ACE.OLEDB.12.0') obj.Open 'C:Users ewdb.autodb' obj1.Open 'Select name, age from person', obj obj3.WriteLine 'Name Age' obj3.WriteLine '------' If obj1.EOF = True Then Msgbox “No records found on the table!!” End If While obj1.EOF = False obj3.WriteLine obj1.Fields('Name') & “ “ & obj1.Fields('Age') obj1.MoveNext Wend obj3.Close Set obj3 = Nothing Set obj2 = Nothing obj1.Close obj.Close Set obj1 = Nothing Set obj = Nothing End Function Call Exporttoexcelfile() ‘Calling Function for exporting data to excel file Call Exporttotextfile() ‘Calling Function for exporting data to text file

Σημείωση: Για έξοδο ενός Παράδειγμα , μπορείτε να μεταβείτε στη θέση των αρχείων και να ελέγξετε εάν τα δεδομένα εξάγονται ή όχι στα αντίστοιχα αρχεία.

συμπέρασμα

Είμαι σίγουρος ότι μέχρι τώρα πρέπει να έχετε αποκτήσει γνώση σχετικά με τη σημασία και την αποτελεσματικότητα της χρήσης Αντικείμενα σύνδεσης VBS ADODB .

Επόμενο σεμινάριο # 13 : Θα καλύψω 'Αντικείμενα συστήματος αρχείων' στο επόμενο σεμινάριό μου.

Μείνετε συντονισμένοι και μοιραστείτε την εμπειρία σας με τη χρήση αντικειμένων Connection και ενημερώστε μας εάν έχετε απορίες σχετικά με αυτό το σεμινάριο.

Συνιστώμενη ανάγνωση

^