Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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