Πώς να Διαγραφή εγγραφής σε VB6

Κατά τον προγραμματισμό στη Visal Basic 6 , ίσως χρειαστεί να διαγράψετε μια εγγραφή από table.You να διαγράψετε μια εγγραφή από ένα σύνολο εγγραφών με τη χρήση της μεθόδου διαγραφής . Θα πρέπει πρώτα να εντοπίσετε την εγγραφή στο σύνολο εγγραφών , καλέστε τη διαγραφή μέθοδος στη συνέχεια, μετακινήστε το δείκτη στην επόμενη εγγραφή . Θα πρέπει να ελέγξετε αν ο δίσκος ήταν η τελευταία εγγραφή στο σύνολο εγγραφών , οπότε ο δείκτης θα έχει μετακινηθεί στο τέλος του αρχείου και θα πρέπει να το μετακινήσετε πίσω στην τελευταία εγγραφή . Η μέθοδος της διαγραφής εγγραφών θα διαγράψετε το αρχείο από τον υποκείμενο πίνακα δεδομένων στη βάση δεδομένων . Τα πράγματα που θα χρειαστείτε
Visual Basic 6
Database
ADO
Computer
Η Εμφάνιση Περισσότερες οδηγίες
Διαμόρφωση
Η 1

Ξεκινήστε το Visual Basic 6 αίτησης . 2

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

Προσθέστε μια νέα μορφή για το έργο .
Η 4

Σύρετε ένα αντικείμενο ελέγχου δεδομένων ADO από την πλαϊνή γραμμή στη φόρμα .
5

Συνδέστε το αντικείμενο ADO στη βάση δεδομένων , τον καθορισμό τυχόν ιδιότητες , όπως απαιτείται .
Η

6 κάντε διπλό κλικ στη φόρμα για να ανοίξει τον κώδικα πίσω από το παράθυρο .
Η

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

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

Dim myADOConn Όπως ADODB.Connection

Dim myADORecordset Όπως ADODB.Recordset

Dim mySQL Όπως String

αντικείμενο σύνδεση σας και το αντικείμενο εγγραφών μπορεί να κηρυχθεί σε επίπεδο φόρμας αν χρειαστεί να έχουν πρόσβαση σε αυτά σε περισσότερες από μία υπορουτίνα .
Η 9

Ρύθμιση και να ανοίξετε μια σύνδεση με τη βάση δεδομένων , ως εξής :

Set myADOConn = Νέα ADODB.Connection

myMADOConn.ConnectionString = <<συμβολοσειρά σύνδεσης για τη βάση δεδομένων σας >>

myADOConn.Open
Η 10

Ρύθμιση ένα σύνολο εγγραφών . Ορίστε ένα νέο στιγμιότυπο της κλάσης εγγραφών και στη συνέχεια να καλέσει τη μέθοδο "Άνοιγμα" του αντικειμένου rescordset σας με τις σωστές παραμέτρους . Η σύνταξη για τη μέθοδο "Άνοιγμα" είναι :

RecordsetObject.Open Πηγή , Ενεργός _ , CursorType , LockType , Επιλογές

Ένα παράδειγμα εξής:

Set myADORecordset = Νέα ADODB . Recordset

myADORecordset.CursorLocation = adUseClient

myADORecordset.Open mySQL , myADOConn , adOpenStatic , , adCmdText
Η 11

Διαγραφή εγγραφής από το σύνολο εγγραφών :

myADORecordset.Delete
Η 12

Μετακινήστε το δείκτη στην επόμενη εγγραφή :

myADORecordset.MoveNext
Η 13

Έλεγχος για το "End of File" κατάσταση. Αν αυτό είναι το τέλος του αρχείου , να καλέσει τη μέθοδο " MoveLast " του αντικειμένου εγγραφών :

Αν myADORecordset.EOF

Τότε myADORecordset.MoveLast

End If


Η