Command.Execute method : ADODB Command « Access « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Access » ADODB Command 




Command.Execute method
 
Sub CommandAndExec()
   Dim conn As ADODB.Connection
   Dim cmd As ADODB.Command
   Dim rst As ADODB.Recordset

   Set conn = New ADODB.Connection
   With conn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & CurrentProject.Path & "\mydb.mdb"
           .Open
   End With

   Set cmd = New ADODB.Command
   With cmd
      .ActiveConnection = conn
      .CommandText = "Select * from Customers"
   End With

   Set rst = cmd.Execute
   MsgBox rst.Fields(1).Value

   rst.Close
   Set rst = Nothing
   conn.Close
   Set conn = Nothing
End Sub

 














Related examples in the same category
1.Use ADODB.Command to create a view
2.Using a Command Object to query table
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.