NickSv (Автор тем)

Здравствуйте
Пишу в макросе sql запрос на обновление поля L (Длина участка). Не работает.
Set Ll = Zulu.ActiveMapDoc.Layers.Active
 Ll.ExecSQL(UPD ATE @Ll SE T L=L_GIS WHERE typeid=6 and tplnr IN (SEL ECT tplnr FR OM @Ll GROUP BY tplnr HAVING COUNT(tplnr)>1))

Версия 10.0.0.9193 Ошибка в модуле ZuluThermo  
[IMG WIDTH=377 HEIGHT=146]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAXkAAACSCAIAAAAvlS2fAAALzklEQVR4Ae2aQZLbNhBFuUklJ/Fi5ihe6x7yLruZU/gQuoKvoOVUZa0b+AZKgWB/NMiWImpAWJGfKhVCjUZ34wH8BDUe9nwgAAEIbE9g2O/3Zz4QgAAEtiSw3+/Rmi0BExsCEBgJoDVsBAhAoAcBtKYHZXJAAAJoDXsAAhDoQQCt6UGZHBCAAFrDHoAABHoQuKA1h91gn9f3jzaFfLy/DsPQLFyboogCAQjcTmAYhuPxuPQ/Ho/DMCzt3hJpTRIaSUJSCH3xI1e0UZkVsHCFwOMSOB6Pf/z510xuQuNyDkutScKwOzjPhcH13dL87PhbcuADAQj0ITBTltnXKzUstCZQho/313yyOezKESdsF2MKMzkfdsPufXx/cq9Q8hzf1kZtK+9tldRdKZ4uCEDgFxCQvqhxSxGR1sxfmSQ/Eojz+Ry2ZTzsXl+ndy+nOuOofGjKnorsS1UQb6QNAQg8EIGsMsv3qSslRlpTv0Kdz6vPNekkczDJqPXEYqVeUyMrrxxs5mpnHlwhAIGHINBCa5Ky1GJTDCYfabJhezQe3l/TS5AcRuUxPk5rRrHR61LJYi42hCsEIPBQBPTqpMYt5S3ONVlGitr4P0pJPq5ojX6TKc6llQTIv0MVQSqtJDqca25ZO3wg8AsIzPRl9vVKQZHWTHIz/QMbnTzyry32z25mV/14LJ1wCjNKTB5gKqLeJC3jmLGRlGq3m36KvlI2XRCAwC8gECpLaFwWd0Frlo5YIACB355A63/L99sDBQAEINCcAOea5kgJCAEIBATQmgAKJghAoDkBtKY5UgJCAAIBAbQmgIIJAhBoTgCtaY6UgBCAQEAArQmgYIIABJoTQGuaIyUgBCAQEEBrAiiYIACB5gTQmuZICQgBCAQE0JoACiYIQKA5AbSmOVICQgACAQG0JoCCCQIQaE4ArWmOlIAQgEBAAK0JoGCCAASaE0BrmiMlIAQgEBBAawIomCAAgeYE0JrmSAkIAQgEBNCaAAomCECgOQG0pjlSAkIAAgEBtCaAggkCEGhOAK1pjpSAEIBAQACtCaBgggAEmhNAa5ojJSAEIBAQQGsCKJggAIHmBNCa5kgJCAEIBATQmgAKJghAoDkBtKY5UgJCAAIBAbQmgIIJAhBoTgCtaY6UgBCAQEAArQmgYIIABJoTQGuaIyUgBCAQEEBrAiiYIACB5gTQmuZICQgBCAQE0JoACiYIQKA5AbSmOVICQgACAQG0JoCCCQIQaE4ArWmOlIAQgEBAAK0JoGCCAASaE0BrmiMlIAQgEBBAawIomCAAgeYE0JrmSAkIAQgEBNCaAAomCECgOQG0pjlSAkIAAgGBJ9Caw254efvQ3GZfZc+N670z5ytfFUeNK87n8/lGt+tBbun1iQ67YXe4ZdBNPj5yGXDYDfbJuZxhyAtTWVxFlX1cwqXlfD5/vL3kDHmVK58yPWf2uyEV+vH2ItMVtzIn34pn7T2qtuKXyqr+9EU+Ex9n0Sj5tLYo8JBWwqNZ1NnagNbcR1RbUI3rcW50ux7klt7tEoWRl5t16eYto3BM94+356ktLUuRDnzGu1c35ZxSUdx0n110mw+bvkfpLri6J0qaZpwpqEEpNGo7y2K9Cp2Ls2rV8cRaMy7Y2/TYtQdbaNSTUwek0M09knY7O0xpW/heHSbsKVL8/cKpN/krkHZced6Vm3N8wpevL282wdFmAcuBwuZdHqbeUobLavXNmMwim1fwYNQ85DOz6KsalzzrI8nktRy1uH8ULzXUq0bVXSBr8VO/zbdaOBnH9V3epc6Sk6lWW9OohsWolNyEahrQylJoCMJht1h79bVtPLfW2GMsbZK8euN2KU1b0gmqljR209YZt2Jeoso2hiv7qeqrtnLKZ8nknw1mzvvdFWgd3t9PS7PS3qnyT9bKthy+3F2WNtWryHKbSZK7S4sqzgbafTdCtPevvDx2M2tsSr6rHxfeZ8ZbVfmG1S9svnOEvCDjppqylf4qnwVWvCrD1Jsv5lp5TOMq2+i4ncW9kNqs3Fw1kY0az601uje03dXwJ4nyGLONFbpdN/p7QHfOsgCt49I/PXQGq8DfBeOYpf/1evwEb/dUedeZOLepqRRqyGdm8VojPtl55plrmOTW+uyq8NWtKas11KuG9YxXH01tNWYMJYw6dlSxqgxOXsqaVh7T2Mq2udaoYM2xyq/uLRpojb+ptQBqzHab7g05LBtaJnX5IGGvGUc9me6t+QPHR8v+3qK2Gj7p7UZXyTRXjVXDfOqr3VxLt9oiqZlP0BdsoS1o+j6162hTh9bFBupabqXlwFlGOajhHbxR0euGq7ZKa8dHv9XKyOWo7Swlq+EM3qqcU9PmE2hNoqYHTdrJ85vk0o6x3aOlTYHyYOtKrNWuY889Xe+0Qs5SImv1XO9ky3WompnD7GsubCrC9alaX3mZQ9hyc7TyVEWp3Ec2t3JVrxrq85YSLkjqirPBZay17Goe01+qitoc3txfJccsk3o7SglOdivhSss5lnqdMacWIlWSXHIuSc1sTcej66zU5ajtLCq1oNa0l/Mp3k1az6A1/i20qE6h6e86kZ0Z8y8El37xtd2RNsFlT/VWyjfzd6tW+6uystPSFPLw8cfI2j/fq7tdrsgqHK12aFfIPNkcS56zXtlzhUotJlM1lV8pSXP2YetQbipjR+hZhU9uVogl0PcUTt5BITl5/dyO3BRQwdyG8r8Nl8GjoIT3pgXLsTTDNNTOqyWMTPUoP+tSUxOfOHeuLJzPBLHJ5Tm0pgmK/10Q7eT/XeVdC978Huo6m9bJOtJBa1ovXr94aM1trD/eXuxMcduA38dL73o9pozW9KBMDghAAK1hD0AAAj0IoDU9KJMDAhBAa9gDEIBADwJoTQ/K5IAABNAa9gAEINCDAFrTgzI5IAABtIY9AAEI9CCA1vSgTA4IQACtYQ9AAAI9CKA1PSiTAwIQQGvYAxCAQA8CaE0PyuSAAATQGvYABCDQgwBa04MyOSAAAbSGPQABCPQggNb0oEwOCEAArWEPQAACPQigNT0okwMCEEBr2AMQgEAPAmhND8rkgAAE0Br2AAQg0IMAWtODMjkgAAG0hj0AAQj0IIDW9KBMDghAAK1hD0AAAj0IoDU9KJMDAhBAa9gDEIBADwJoTQ/K5IAABNAa9gAEINCDAFrTgzI5IAABtIY9AAEI9CAwac1PPhCAAAS2JIDWbEmX2BCAgBFAa4wEVwhAYEsCaM2WdIkNAQgYAbTGSHCFAAS2JIDWbEmX2BCAgBFAa4wEVwhAYEsCaM2WdIkNAQgYAbTGSHCFAAS2JIDWbEmX2BCAgBFAa4wEVwhAYEsCaM2WdIn92xMY/v7nWf9bu7ZozVpi+ENgBYFnFZrh739WUBhd0Zq1xPCHwAoCWWtOz/XJk1pBYXRFa9YSwx8CKwigNYKF1ggFDQi0J4DWiClaIxQ0INCeAFojpmiNUNCAQHsCaI2YojVCQQMC7QlsqzXfvw72+fLtx2n6fP86TN9S/9fvZm92zZP6ufKD1qwEhjsE1hDYTmt+fPvihMR/M635/nULoTmdTmjNmi2ALwS6ENhMa358++KOMqfTKalNPsNkrdlMadCaLjuHJBBYR2ArrSnKcrKPTElrvsyUyJyaXDnX/OQDgUcj0Fdr8kln+hWnPvacGn7QmkfbZtQDgZ9bac3JfpSRhOhYM3UtHOT56QZaw86GwMMR2Exrxt9nym+/SWnsIGMqY9dPa8s8AFrzcPuMgiCwndZMPwf/59+8TYHmgvGJ72gNGxsCD0dgU635hFx8aiha83D7jIIggNZoD/Bv+YSCBgTaE0BrxBStEQoaEGhPAK0RU7RGKGhAoD2BrDVP+f+1sNCatcTwh8AKAk+pMnlSKyiMrmjNWmL4QwAC9xBAa+6hxhgIQGAtAbRmLTH8IQCBewigNfdQYwwEILCWAFqzlhj+EIDAPQTQmnuoMQYCEFhLAK1ZSwx/CEDgHgJozT3UGAMBCKwlgNasJYY/BCBwDwG05h5qjIEABNYS2O/3/wKqjRbiL6KL5gAAAABJRU5ErkJggg==[/IMG]

В ZuluGIS выполняю SQL запрос, порядка 8000 строк результат запроса. Выполняю экспорт в excel результата запроса. ZuluGIS завесает.

Отображает ???

Подскажите, пожалуйста, как вывести результат запроса в excel файл?

Set Ll = Zulu.ActiveMapDoc.Layers.Active
Set Result =Ll.ExecSQL("SELECT *******")

MsgBox Result
Set objExcel = CreateObject("Excel.Application")  ' Создание экземпляра объекта Excel
objExcel.Visible = True  ' Отображение окна Excel

' Создание новой книги Excel
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)

' Запись заголовков полей в первую строку
objWorksheet.Cells(2, 2).Value = "Наименование столбца"

objWorksheet.Range("A2:K2").Columns.AutoFit

' Запись данных из результата запроса
???

Здравствуйте
Поддерживается ли функции  INSTR или CHATINDEX в sql запросах?

Поддерживается ли в ZuluGIS такой sql запрос для переноса данных между полями Zulu?
UPDATE SET Name=sap_name CASE WHEN sap_name IS NOT NULL THEN sap_name ELSE Name END WHERE typeid=4"