use BN_ADDRESS
go

declare cur cursor read_only fast_forward for select lat,lon,FullAddress    
from dbo.City_Tambov -- название таблицы города

declare @lat float,@lon float,@addr varchar(100)
declare @filename as varchar(3000) -- имя выходного файла
declare @file_description as varchar(3000)

DECLARE @Text1 Nvarchar(4000),-- сюда пишем строки для записи в файл
@FS int,    
@OLEResult int,    
@FileID int,    
@hr int,
@source varchar(30),    
@desc varchar (200)

set @file_description='    <name>Адресная база </name>
<description>Адресная база </description>
<open>0</open>
<Snippet maxLines="2">Адресная база'+N'</Snippet>
'

set @filename='c:\Адресная база.kml' -- имя выходного файла

EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUTPUT

IF @OLEResult <> 0    
BEGIN PRINT 'Scripting.FileSystemObject'
GOTO Error_Handler
END

execute @OLEResult = sp_OAMethod @FS,'CreateTextFile',@FileID OUTPUT, @filename,1,true
IF @OLEResult <> 0    
BEGIN PRINT 'CreateTextFile'
GOTO Error_Handler
END
-- тег <Style> </Style> задает внешний вид точек и путей - используется для placemark
set @Text1 = N'<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://www.opengis.net/kml/2.2" xmlns:gx="http://www.google.com/kml/ext/2.2"    
xmlns:kml="http://www.opengis.net/kml/2.2" xmlns:atom="http://www.w3.org/2005/Atom">
<Document>'+@file_description+'
<Style id="lineStyle">
<LineStyle>
<color>99ffac59</color>
<width>6</width>
</LineStyle>
</Style>
<StyleMap id="msn_track-none">
<Pair>
<key>normal</key>
<styleUrl>#sn_track-none0</styleUrl>
</Pair>
<Pair>
<key>highlight</key>
<styleUrl>#sh_track-none</styleUrl>
</Pair>
</StyleMap>

<Style id="sh_caution">
<IconStyle>
<scale>0.816667</scale>
<Icon>
<href>http://maps.google.com/mapfiles/kml/shapes/caution.png</href>
</Icon>
<hotSpot x="0.5" y="0" xunits="fraction" yunits="fraction"/>
</IconStyle>
<ListStyle>
</ListStyle>
<LabelStyle>
<scale>0.7</scale>
</LabelStyle>
</Style>
<StyleMap id="msn_caution">
<Pair>
<key>normal</key>
<styleUrl>#sn_caution</styleUrl>
</Pair>
<Pair>
<key>highlight</key>
<styleUrl>#sh_caution</styleUrl>
</Pair>
</StyleMap>
<Style id="sn_caution">
<IconStyle>
<scale>0.7</scale>
<Icon>
<href>http://maps.google.com/mapfiles/kml/shapes/caution.png</href>
</Icon>
<hotSpot x="0.5" y="0" xunits="fraction" yunits="fraction"/>
</IconStyle>
<ListStyle>
</ListStyle>
<LabelStyle>
<scale>0.7</scale>
</LabelStyle>
</Style>'
execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', NULL, @Text1
IF @OLEResult <> 0    
BEGIN PRINT 'WriteLine'
GOTO Error_Handler
END

open cur
fetch next from cur into @lat,@lon,@addr
while @@fetch_status=0 begin select @Text1 = N'<Placemark>
<name>'+cast(@addr as nvarchar(100))+N'</name>
<Snippet maxLines="0"></Snippet>
<description>'+cast(@addr as nvarchar(100))+N'</description>
<visibility>1</visibility>
<LookAt>
<longitude>'+str(@lon,14,9)+N'</longitude>
<latitude>'+str(@lat,14,9)+N'</latitude>
<altitude>0</altitude>
<range>1000</range>
<tilt>0</tilt>
<heading>0.119</heading>
<altitudeMode>relativeToGround</altitudeMode>
<gx:altitudeMode>relativeToSeaFloor</gx:altitudeMode>
</LookAt>
<styleUrl>#msn_caution</styleUrl>
<Point>
<coordinates>'+str(@lon,14,9)+','+str(@lat,14,9)+N'</coordinates>
</Point>
</Placemark>'

execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', NULL, @Text1
IF @OLEResult <> 0    
BEGIN PRINT 'WriteLine'
GOTO Error_Handler
END

fetch next from cur into @lat,@lon,@addr
end
close cur
deallocate cur
-- закрываем документ
set @Text1 = N'</Document>
</kml>'
execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', NULL, @Text1
IF @OLEResult <> 0    
BEGIN PRINT 'WriteLine'
GOTO Error_Handler
END

goto Done

Error_Handler:    
PRINT '*** ERROR ***'
EXEC @hr = sp_OAGetErrorInfo null, @source OUT, @desc OUT
SELECT hr = CONVERT (binary(4), @hr), source = @source, description = @desc EXECUTE @OLEResult = sp_OADestroy @FileID
EXECUTE @OLEResult = sp_OADestroy @FS

Done:
EXECUTE @OLEResult = sp_OADestroy @FileID
EXECUTE @OLEResult = sp_OADestroy @FS