Access SQL užklausų pavyzdžiai

DoCmd.RunSQL "INSERT INTO Groups (Name) VALUES ('" & Me.txtCopy1.Value & "');"

 

DoCmd.RunSQL "INSERT INTO Campaigns SELECT Import1Campaign.* FROM Import1Campaign"

DoCmd.RunSQL "INSERT INTO Words ( Field2 )SELECT Keyword FROM [" & strTable & "] WHERE ((Len([" & strTable & "].Keyword)>'0'))"

DoCmd.RunSQL "INSERT INTO WordGroup (Word,Grupe) SELECT WordGroup.Word, [Forms]![Groupedit]![txtCopy1] FROM WordGroup WHERE (WordGroup.Grupe)= '" & Me.txtName.Value & "'"

 

DoCmd.RunSQL "UPDATE Groups INNER JOIN Import1Ads ON Groups.Name = Import1Ads.Name SET Groups.Headline1 = [Import1Ads]![Headline], Groups.Headlinea1 = [Import1Ads]![Headlinea]"

DoCmd.RunSQL "UPDATE Groups SET Groups.Sel = True WHERE (Groups.Name In (SELECT CampaignGroup.Group FROM CampaignGroup WHERE ((CampaignGroup.Campaign)=[Forms]![Form3]![Campaigns3 subform].[Form]![Name])))"

DoCmd.RunSQL "UPDATE WordGroup SET Grupe = '" & Me.txtNewName.Value & "' WHERE (WordGroup.Grupe)= '" & Me.txtName.Value & "'"

 

DoCmd.RunSQL "DELETE FROM CampaignGroup WHERE ((CampaignGroup.Campaign)=[Forms]![Form3]![Campaigns3 subform].[Form]![Name])"