Bij het programmeren in Visal Basic 6 , moet u mogelijk een record uit een table.You verwijderen kan een record uit een recordset met de methode delete verwijdert . U moet eerst het record vestigen in de recordset , roept u de methode delete en verplaats de aanwijzer naar het volgende record . U moet controleren of de plaat was de laatste record in de recordset , in welk geval de aanwijzer zal zijn verhuisd naar het einde van het bestand en je zal hebben om het terug te gaan naar de laatste record . Methode delete de record zal het record van de onderliggende gegevens tabel in de database te verwijderen . Wat je nodig hebt
Visual Basic 6
Database
ADO
Computer
Toon Meer Aanwijzingen
Configuratie
1 Start de Visual Basic 6 toepassing . kopen van 2 Open uw project , of start een nieuw project als u niet beschikt over een bestaand project opgezet .
3 Voeg een nieuwe vorm aan het project .
4 Sleep een ADO- gegevens controle object uit de zijbalk om het formulier .
5 Sluit de ADO -object aan de database , waarin alle eigenschappen als nodig .
6 Dubbelklik op het formulier aan de code -behind -venster te openen .
Type 7 van de code voor de verwijdering routines in het lichaam van de subroutine voor uw gewenste evenement .
Verwijder een record
8 Verklaar uw gewenste variabelen . Bijvoorbeeld , kan de verbinding en recordset objecten en de string variabele waarin u uw SQL-query opslaan als volgt worden gedefinieerd : Dim myADOConn
Zoals ADODB.Connection Dim myADORecordset
Zoals ADODB.Recordset Dim mySQL
als Koord
Uw verbinding object en recordsetobject op Form -niveau kan worden verklaard als je nodig hebt om ze te openen in meer dan een subroutine .
9 opzetten en open een verbinding met de database , als volgt :
set myADOConn = Nieuwe ADODB.Connection
myMADOConn.ConnectionString = << verbinding string voor uw database >> < br > myADOConn.Open
10 Opzetten van een recordset . Definieer een nieuwe instantie van de recordset klasse , en bel dan de " Open" methode van uw rescordset object met de juiste parameters . De syntaxis voor de " Open " -methode is : RecordsetObject.Open Bron
, ActiveConnection , CursorType , LockType , Opties
Een voorbeeld volgt : Set myADORecordset
= Nieuwe ADODB . recordset
myADORecordset.CursorLocation = adUseClient
myADORecordset.Open mySQL , myADOConn , adOpenStatic , , adCmdText
11 Verwijder een record uit de recordset :
myADORecordset.Delete
12 Verplaats de aanwijzer naar het volgende record : myADORecordset.MoveNext
Controleer
13 voor de " End of File " conditie . Als het het einde van het bestand , noem de " MoveLast " methode van de recordset object :
Als myADORecordset.EOF
Dan myADORecordset.MoveLast End
Als < br >
|
