CurrentProject.Connection : CurrentProject « 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
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Access » CurrentProject 
CurrentProject.Connection
 

Public Sub usingexe()
  Dim cmd As ADODB.Command
  Dim strSQL As String
  Dim recs As Long
  
  Set cmd = New ADODB.Command
  strSQL = "UPDATE tblCompany SET CompanyName = 'G' WHERE CompanyName = 'A'"

  Set cmd.ActiveConnection = CurrentProject.Connection
  cmd.CommandText = strSQL
  cmd.CommandType = adCmdText
  cmd.Execute RecordsAffected:=recs, Options:=adExecuteNoRecords
  Debug.Print recs & " Updated"
  Set cmd = Nothing
End Sub

 
Related examples in the same category
1.Get current project from Application object
2.Run a command through current project
3.Loop through all forms
4.Use With statement with CurrentProject
5.Iterates through the AllForms collection of the CurrentProject, printing the name of each form
6.The AllReports collection allows you to loop through all reports in the current project.
7.The AllMacros collection allows you to iterate through all macros stored in the current project.
8.Iterate through all modules located in the database referenced by the CurrentProject object
9.Use the CompactRepair method of the Application object to compact and repair the database
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.