[macosxnerd101]

The VB6 Tutorials Section is a great place to start. I believe we have a couple of VB6 with MS-Access tutorials. After you read the tutorials, try writing the code. We will be happy to help you with your good faith efforts if you run into trouble.

[parbipin]

You will need to update the SQL and Database Path in the code.
If it helps please rate it!!!!

Sub DeleteSomeRecordsADO()
Dim cnn As ADODB.Connection
Dim cmdCommand As ADODB.Command
Dim vtSql
Dim DbConnection as String, DbSource as String

DbSource = "Path to your Database should be here!!!"
DbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DbSource & ";"
    
    '' Open the connection.
    Set cnn = New ADODB.Connection
    cnn.Open DbConnection

    '' Set the command text.
    Set cmdCommand = New ADODB.Command
    Set cmdCommand.ActiveConnection = cnn

    '' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    vtSql = ""
    vtSql = vtSql & " DELETE * "
    vtSql = vtSql & " FROM MyTable "
    vtSql = vtSql & " WHERE MyField='MyValue'"
        
    With cmdCommand
        .CommandText = vtSql
        .CommandType = adCmdText
        .Execute
    End With

    '' Close the connections and clean up.
    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
    
End Sub

[ellaandcodeysdaddy]

Will this method work with Microsoft.Ace.12.0 ? I'm trying to write something similar in javascript using Access 2007?

parbipin, on 25 August 2010 - 03:50 PM, said:

You will need to update the SQL and Database Path in the code.
If it helps please rate it!!!!

Sub DeleteSomeRecordsADO()
Dim cnn As ADODB.Connection
Dim cmdCommand As ADODB.Command
Dim vtSql
Dim DbConnection as String, DbSource as String

DbSource = "Path to your Database should be here!!!"
DbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DbSource & ";"
    
    '' Open the connection.
    Set cnn = New ADODB.Connection
    cnn.Open DbConnection

    '' Set the command text.
    Set cmdCommand = New ADODB.Command
    Set cmdCommand.ActiveConnection = cnn

    '' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    vtSql = ""
    vtSql = vtSql & " DELETE * "
    vtSql = vtSql & " FROM MyTable "
    vtSql = vtSql & " WHERE MyField='MyValue'"
        
    With cmdCommand
        .CommandText = vtSql
        .CommandType = adCmdText
        .Execute
    End With

    '' Close the connections and clean up.
    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
    
End Sub

[BobRodes]

This is the general way to handle deletes using ADO and Access, yes. Should work for you.