Архив рубрики: SQL

Sub Get_Data_from_SQL() Dim sPath As String, strSQL As String, objCon As Object, objRS As Object sPath = ThisWorkbook.FullName Set objCon = CreateObject(«ADODB.Connection») objCon.Open «Provider=Microsoft.Jet.OLEDB.4.0;» & _ «Data Source=» & sPath & «;» & _ «Extended Properties=»»Excel 8.0;HDR=No»»;» ‘tab — именованный Продолжить чтение VBA Excel and SQL→

DELETE FROM ТОСВ WHERE Код NOT IN ( SELECT MIN(Код) FROM ТОСВ GROUP BY КредитН);