Quando si programma in Visal Basic 6 , potrebbe essere necessario eliminare un record da una table.You possibile eliminare un record da un recordset con il metodo di eliminazione. Per prima cosa è necessario individuare il record nel recordset , chiamare il metodo delete quindi spostare il puntatore al record successivo . Si dovrà verificare se il record è stato l'ultimo record del recordset , nel qual caso il puntatore sarà spostato alla fine del file e si dovrà spostare di nuovo l'ultimo record . Metodo Delete del recordset verrà eliminato il record dalla tabella di dati sottostanti nel database. Cose che ti serviranno
Visual Basic 6 base di dati
ADO
Computer
Show More Istruzioni
Configurazione
1

Avviare il Visual Basic 6 applicazioni .
2

aprire il progetto , oppure avviare un nuovo progetto , se non si dispone di un progetto esistente impostato .
3

Aggiungi una nuova forma al progetto.
4

trascinare un oggetto di controllo dati ADO dalla barra laterale alla forma .
5

Collegare l'oggetto ADO al database , impostare tutte le proprietà in base alle esigenze .
6

Fare doppio clic sul form per aprire il codice sottostante finestra .
7

Digitare il codice per la routine di eliminazione nel corpo della subroutine per il vostro desiderava evento .
eliminare un record
8

dichiarare le variabili richieste. Ad esempio , il collegamento e oggetti recordset e la variabile stringa in cui potrete memorizzare la query SQL possono essere definiti come segue :

Dim myADOConn come ADODB.Connection

Dim myADORecordset come ADODB.Recordset

Dim mySQL As String

Il tuo oggetto di connessione e l'oggetto recordset può essere dichiarato a livello di modulo , se avete bisogno di accedere ad essi in più di una subroutine .
9

impostare e aprire una connessione al database , come segue :

myADOConn = New ADODB.Connection

myMADOConn.ConnectionString = << stringa di connessione per il database >> < br >

myADOConn.Open
10

Impostare un set di record . Definire una nuova istanza della classe recordset e quindi chiamare il metodo "Open" del vostro oggetto rescordset con i parametri corretti . La sintassi per il metodo " Open" :

RecordsetObject.Open Fonte , ConnessioneAttiva , CursorType , LockType , Opzioni

un esempio:

myADORecordset = New ADODB . recordset

myADORecordset.CursorLocation = adUseClient

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

Eliminare un record dal recordset :
< p > myADORecordset.Delete
12

Spostare il puntatore al record successivo :

myADORecordset.MoveNext
13

check per la "Fine del file " condizione. Se è la fine del file , chiamare il metodo " MoveLast " dell'oggetto recordset :

myADORecordset.EOF

Poi myADORecordset.MoveLast

End If < br >