Når du programmerer i Visal Basic 6 , må du kanskje slette en post fra en table.You kan slette en post fra en recordset hjelp av Slett metoden. Du må først finne posten i postsettet , ring slett metoden deretter flytte pekeren til neste post . Du må sjekke om posten var den siste posten i postsettet , i så fall vil pekeren har flyttet til slutten av filen , og du blir nødt til å flytte den tilbake til den siste posten. Postsettet er slett metoden vil slette posten fra den underliggende data tabellen i databasen . Du trenger
Visual Basic 6
Database
ADO
Computer
Vis mer Instruksjoner
Configuration
en

Start Visual Basic 6 program.
2

Åpne prosjektet , eller starte et nytt prosjekt hvis du ikke har et eksisterende prosjekt satt opp.
3

Legg til en ny form til prosjektet.
4

Dra et ADO datakontroll objekt fra sidepanelet til skjemaet .
5

Koble ADO objektet til databasen , sette noen egenskaper som trengs .
6

Dobbeltklikk på skjemaet for å åpne koden - bak vinduet.
7

Skriv inn koden for sletting rutiner inn i kroppen av subrutine for din ønsket hendelse .
Slette en Record
8

Erklærer de nødvendige variabler . For eksempel kan forbindelsen og recordset gjenstander og strengvariabelen der du vil lagre SQL-spørringen defineres som følger : en

Dim myADOConn Som ADODB.Connection

Dim myADORecordset Som ADODB.Recordset

Dim mySQL As String

forbindelse objekt og recordset objekt kan være deklarert Form nivå hvis du trenger tilgang til dem i mer enn én subrutine .
9

Sett opp og åpne en tilkobling til databasen , som følger : en

Set myADOConn = Ny ADODB.Connection

myMADOConn.ConnectionString = << forbindelse streng for din database >>

myADOConn.Open
10

Sett opp en recordset . Definere en ny forekomst av recordset klassen , og deretter ringe "Open" metode for din rescordset objekt med riktige parametre . Syntaksen for "Open" metoden er : en

RecordsetObject.Open Source, ActiveConnection , CursorType , LockType , Valg

Et eksempel følger : en

Set myADORecordset = Ny adodb . Recordset

myADORecordset.CursorLocation = adUseClient

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

Slette en post fra postsettet :
< p> myADORecordset.Delete
12

Flytt pekeren til neste post :

myADORecordset.MoveNext
13

Se etter "End of File" tilstand . Hvis det er på slutten av filen, kaller " MoveLast " metode for postsettet objekt : en p Hvis myADORecordset.EOF

Deretter myADORecordset.MoveLast

End If