Vid programmering i Visal Basic 6 , kan du behöva ta bort en post från en table.You kan ta bort en post från en postmängd med delete metoden . Du behöver först lokalisera posten i postmängden , ring delete metoden sedan pekaren till nästa post . Du kommer att behöva kontrollera om posten var den sista posten i postmängden , i vilket fall pekaren ska ha flyttat till slutet av filen och du kommer att behöva flytta tillbaka till den sista posten . Recordset s delete metod kommer bort posten från den underliggande uppgifter tabellen i databasen . Saker du behöver Review, Visual Basic 6
Database
ADO
Computer
Visa fler instruktioner
Configuration
1
Starta Visual Basic 6 program .
2
Öppna ditt projekt , eller starta ett nytt projekt om du inte har ett befintligt projekt inrättas .
3
Lägg en ny form till projektet .
4
Dra en ADO uppgifter styrobjekt från sidofältet till formuläret .
5
Anslut ADO objektet till databasen , ställa några egenskaper som behövs .
6
Dubbelklicka på formuläret för att öppna kod-bakom fönstret .
7
Ange sifferkoden för radering rutiner i kroppen av subrutinen för din önskad händelse .
bort en post
8
Deklarera dina variabler som krävs . Till exempel kan anslutningen och objekt recordset och strängvariabeln där du kommer att lagra din SQL-fråga definieras enligt följande :
Dim myADOConn Som ADODB.Connection
Dim myADORecordset Som ADODB.Recordset
Dim mySQL As String
Din anslutning objekt och recordset-objekt kan deklareras på blankett nivå om du behöver komma åt dem i mer än en subrutin .
9
Ställ upp och öppna en anslutning till databasen , enligt följande :
Set myADOConn = Ny ADODB.Connection
myMADOConn.ConnectionString = << anslutning sträng för din databas >>
myADOConn.Open
10
Inrätta en postmängd . Definiera en ny instans av postmängden klassen , och sedan kallar " Open " metod för din rescordset objekt med korrekta parametrar . Syntaxen för " Open "-metoden är :
RecordsetObject.Open Source , ActiveConnection , CursorType , slusstyp , Alternativ
Ett exempel följer :
Set myADORecordset = Ny adodb . Recordset
myADORecordset.CursorLocation = adUseClient
myADORecordset.Open mySQL , myADOConn , adOpenStatic , , adCmdText
11
Radera en post från postmängden :
myADORecordset.Delete
12
Flytta pekaren till nästa post :
myADORecordset.MoveNext
13
Check för " End of File " skick. Om det är i slutet av filen , kallar " MoveLast " metoden av objektet Recordset :
p Om myADORecordset.EOF
Sedan myADORecordset.MoveLast
End If
Addera ditt
