Ao programar em Visal Basic 6, talvez você precise excluir um registro de uma table.You pode excluir um registro de um conjunto de registros usando o método de exclusão. Você primeiro precisa para localizar o registro no conjunto de registros , chame o método de exclusão , em seguida, mova o ponteiro para o próximo registro. Você terá que verificar se o registro foi o último registro no conjunto de registros , caso em que o ponteiro irá se mudaram para o final do arquivo e você terá que movê-lo de volta para o último registro. O método de exclusão de registros irá excluir o registro da tabela de dados subjacente na base de dados . Coisas que você precisa
Visual Basic 6
Database
ADO
Computer
Mostrar Mais instruções
Configuração
1

Inicie o Visual Basic 6 aplicação.
2

Abra seu projeto, ou iniciar um novo projeto , se você não tiver um projeto existente configurado.
3

Adicione uma nova forma para o projeto.
4

Arraste um objeto controle de dados ADO da barra lateral à forma.
5

Conecte o objeto ADO ao banco de dados , definindo as propriedades conforme necessário .
6

clique duas vezes no formulário para abrir a janela de código -behind .
7

Digite o código para as rotinas de eliminação para o corpo da sub-rotina para o seu evento desejado .
excluir um registro
8

declarar as variáveis ​​necessárias. Por exemplo, os objetos de conexão e registros e a variável de cadeia em que você vai armazenar sua consulta SQL pode ser definido da seguinte forma:

Dim myADOConn As ADODB.Connection

Dim myADORecordSet Como ADODB.Recordset

Dim mySQL As String

seu objeto de conexão e registros de objeto pode ser declarada no nível de formulário , se você precisar acessá-los em mais de uma sub-rotina.
9

Configure e abrir uma conexão com o banco de dados , como segue:

Set myADOConn = New ADODB.Connection

myMADOConn.ConnectionString = << string de conexão para o seu banco de dados >> < br >

myADOConn.Open
10

Configurar um conjunto de registros . Definir uma nova instância da classe de registros e , em seguida, chamar o método "Open" de seu objeto rescordset com os parâmetros corretos . A sintaxe para o método "Open" é :

RecordsetObject.Open Fonte , ActiveConnection , CursorType , LockType , Opções

Segue um exemplo:

Set myADORecordSet = Novo ADODB . Recordset

myADORecordset.CursorLocation = adUseClient

myADORecordset.Open mySQL, myADOConn , adOpenStatic , adCmdText
11

Excluir um registro do conjunto de registros :

myADORecordset.Delete
12

Mova o ponteiro para o próximo registro :

myADORecordset.MoveNext
13

Verifique se o " fim de arquivo " condição. Se é o fim do arquivo , chame o método " MoveLast " do objeto conjunto de registros :

Se myADORecordset.EOF

Então myADORecordset.MoveLast

End If < br >