05-06-2011, 20:47
Öncelikle herkese iyi çalışmalar.
İçerik olarak access kullanıcısını destekleyen ve yardımlarını biz temel kullanıcılardan esirgemeyen sitenize teşekkür ediyorum.
Access dosyasından xml çıktı almak için bir uygulama yaptım.Gerçi çok ciddi bir çalışma oldumu yada kodlarım eski mi yoksa yeni mi bilemiyorum (Kodlar bir yabancı siteden alınıtıdır.) ama html sitede uygulamak istediğim haber bölümüne xml çıktısı almak istiyorum.XML çıktısı almak için Yüzlerce program ve editor var ama çogu exe program olduğu için ya demo yada ücretli,yada istediğim gibi değil.
Uygulamamı flash resim,haber sergileyicileri için kullanmak istiyorum.Arama kısmında "xml" başlığı altında arattırma yaptığımda 7 tane başlığa rastladım fakat çıktı alma konusu hakkında değildi.
Örnek dosya ektedir.Acces dosya içinde xml butona bastığınızda belgelerim içerisinde "haberdata" adında bir xml dosya oluşturuyor.Fakat xml dosyasının encoding değeri ANSI olarak çıkıyor.bu yüzdende uygulamalarda ya karakter hatası veriyor yada çalışmıyor.Elle notepad 'den utf-8 olarak değiştirmek gerekiyor.XML dosya Koda "<?xml version='1.0' encoding='utf-8'?>"başlığını eklediğim halde çalışmıyor ve karakterler bozuk çıkıyor.
XML dosya çıktısını utf-8 almak için aşağıdaki kodda nasıl bir uygulama yapılabilir.Öneri ve yardımlarınızı bekliyorum.
Herkese iyi çalışmalar.
Dim kvl_tabledef As New TableDef
Dim kvl_xml As Integer
Dim kvl_recordset As New ADODB.Recordset
Dim kvl_sql As String
Set kvl_tabledef = CurrentDb.CreateTableDef("haber")
kvl_tabledef.Fields.Append kvl_tabledef.CreateField("date", dbText)
kvl_tabledef.Fields.Append kvl_tabledef.CreateField("title", dbText)
kvl_tabledef.Fields.Append kvl_tabledef.CreateField("description", dbText)
On Error Resume Next
CurrentDb.TableDefs.Append kvl_tabledef 'add the table to the DB
kvl_recordset.Open "haber", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set kvl_recordset = Nothing
kvl_xml = FreeFile()
Open "haberdata.xml" For Output As kvl_xml
Print #kvl_xml, "<?xml version='1.0' encoding='utf-8'?>"
Print #kvl_xml, "<newsscroll>"
Print #kvl_xml, "<parameters>"
Print #kvl_xml, "<registration_code>aW52cYWxpcZA==c</registration_code>"
Print #kvl_xml, "<domain_name>invalid</domain_name>"
Print #kvl_xml, "<movie_width>320</movie_width>"
Print #kvl_xml, " <movie_height>175</movie_height>"
Print #kvl_xml, "<top_margin>8</top_margin>"
Print #kvl_xml, "<left_margin>8</left_margin>"
Print #kvl_xml, "<bottom_margin>8</bottom_margin>"
Print #kvl_xml, "<right_margin>8</right_margin>"
Print #kvl_xml, "<bgcolor_solidorgradient>0</bgcolor_solidorgradient>"
Print #kvl_xml, "<bgcolor_gradientangle>1</bgcolor_gradientangle>"
Print #kvl_xml, "<bgcolor>1A8FBA</bgcolor>"
Print #kvl_xml, "<bgcolor_gradient1>0000DD</bgcolor_gradient1>"
Print #kvl_xml, "<bgcolor_gradient2>000000</bgcolor_gradient2>"
Print #kvl_xml, "<background_transparency>0</background_transparency>"
Print #kvl_xml, "<background_image>bgimage.jpg</background_image>"
Print #kvl_xml, "<image_positionx>0</image_positionx>"
Print #kvl_xml, "<image_positiony>0</image_positiony>"
Print #kvl_xml, "<bgimage_exist>0</bgimage_exist>"
Print #kvl_xml, "<background_image_transparency>0</background_image_transparency>"
Print #kvl_xml, "<bgimage_scaletype>0</bgimage_scaletype>"
Print #kvl_xml, "<bgimage_scalewidth>100</bgimage_scalewidth>"
Print #kvl_xml, "<bgimage_scaleheight>100</bgimage_scaleheight>"
Print #kvl_xml, "<isthere_item_mouseover_background>1</isthere_item_mouseover_background>"
Print #kvl_xml, "<item_mouseover_bgpadding>8</item_mouseover_bgpadding>"
Print #kvl_xml, "<item_mouseover_bgroundradius>8</item_mouseover_bgroundradius>"
Print #kvl_xml, "<item_mouseover_borderthickness>2</item_mouseover_borderthickness>"
Print #kvl_xml, "<item_mouseover_bgtransparency>50</item_mouseover_bgtransparency>"
Print #kvl_xml, "<item_mouseover_bgcolor>808000</item_mouseover_bgcolor>"
Print #kvl_xml, "<item_mouseover_bordercolor>FF8000</item_mouseover_bordercolor>"
Print #kvl_xml, "<item_mouseover_bordertransparancy>30</item_mouseover_bordertransparancy>"
Print #kvl_xml, "<mouseover_action>0</mouseover_action>"
Print #kvl_xml, "<border_width>0</border_width>"
Print #kvl_xml, "<border_color>FF8000</border_color>"
Print #kvl_xml, "<font_color>E7E1B8</font_color>"
Print #kvl_xml, "<titlefont_color>DED174</titlefont_color>"
Print #kvl_xml, "<mouseover_font_color>C8EDAF</mouseover_font_color>"
Print #kvl_xml, "<mouseover_titlefont_color>84BD87</mouseover_titlefont_color>"
Print #kvl_xml, "<text_font>comic Sans MS</text_font>"
Print #kvl_xml, "<title_font>comic Sans MS</title_font>"
Print #kvl_xml, "<text_align>0</text_align>"
Print #kvl_xml, "<font_size>16</font_size>"
Print #kvl_xml, "<title_font_size>16</title_font_size>"
Print #kvl_xml, "<paragraph_space>10</paragraph_space>"
Print #kvl_xml, "<scroll_style>0</scroll_style>"
Print #kvl_xml, "<scroll_speed>2</scroll_speed>"
Print #kvl_xml, "<isthere_downbutton>0</isthere_downbutton>"
Print #kvl_xml, "<downbuttonnormal_transparency>75</downbuttonnormal_transparency>"
Print #kvl_xml, "<downbuttonmover_transparency>20</downbuttonmover_transparency>"
Print #kvl_xml, "<downbutton_positionx>50</downbutton_positionx>"
Print #kvl_xml, "<downbutton_positiony>180</downbutton_positiony>"
Print #kvl_xml, "<downbutton_halignorvaluex>1</downbutton_halignorvaluex>"
Print #kvl_xml, "<downbutton_horalign>1</downbutton_horalign>"
Print #kvl_xml, "<downbutton_name>downbutton1.png</downbutton_name>"
Print #kvl_xml, "<titlefont_bold>yes</titlefont_bold>"
Print #kvl_xml, "<titlefont_italic>no</titlefont_italic>"
Print #kvl_xml, "<font_bold>no</font_bold>"
Print #kvl_xml, "<font_italic>no</font_italic>"
Print #kvl_xml, "<title_underline>no</title_underline>"
Print #kvl_xml, "<underline>no</underline>"
Print #kvl_xml, "<startblank>yes</startblank>"
Print #kvl_xml, "<space_between_title_and_text>10</space_between_title_and_text>"
Print #kvl_xml, "<pause_time>40</pause_time>"
Print #kvl_xml, "<nameofscroller>haber</nameofscroller>"
Print #kvl_xml, "<scrollerfolder_name>haber/haberler</scrollerfolder_name>"
Print #kvl_xml, "</parameters>"
Print #kvl_xml, "<content>"
kvl_recordset.Open "haber", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not kvl_recordset.EOF
Print #kvl_xml, " <subitem>"
Print #kvl_xml, " <title>" & kvl_recordset.Fields("date") & "</title>"
Print #kvl_xml, " <but_text>" & kvl_recordset.Fields("title") & "</but_text>"
Print #kvl_xml, " <but_link>" & kvl_recordset.Fields("description") & "</but_link>"
Print #kvl_xml, " <but_target>_top</but_target>"
Print #kvl_xml, " </subitem>"
kvl_recordset.MoveNext
Loop
Print #kvl_xml, "</content>"
Print #kvl_xml, "</newsscroll>"
Close kvl_xml
kvl_recordset.Close
Set kvl_recordset = Nothing
İçerik olarak access kullanıcısını destekleyen ve yardımlarını biz temel kullanıcılardan esirgemeyen sitenize teşekkür ediyorum.
Access dosyasından xml çıktı almak için bir uygulama yaptım.Gerçi çok ciddi bir çalışma oldumu yada kodlarım eski mi yoksa yeni mi bilemiyorum (Kodlar bir yabancı siteden alınıtıdır.) ama html sitede uygulamak istediğim haber bölümüne xml çıktısı almak istiyorum.XML çıktısı almak için Yüzlerce program ve editor var ama çogu exe program olduğu için ya demo yada ücretli,yada istediğim gibi değil.
Uygulamamı flash resim,haber sergileyicileri için kullanmak istiyorum.Arama kısmında "xml" başlığı altında arattırma yaptığımda 7 tane başlığa rastladım fakat çıktı alma konusu hakkında değildi.
Örnek dosya ektedir.Acces dosya içinde xml butona bastığınızda belgelerim içerisinde "haberdata" adında bir xml dosya oluşturuyor.Fakat xml dosyasının encoding değeri ANSI olarak çıkıyor.bu yüzdende uygulamalarda ya karakter hatası veriyor yada çalışmıyor.Elle notepad 'den utf-8 olarak değiştirmek gerekiyor.XML dosya Koda "<?xml version='1.0' encoding='utf-8'?>"başlığını eklediğim halde çalışmıyor ve karakterler bozuk çıkıyor.
XML dosya çıktısını utf-8 almak için aşağıdaki kodda nasıl bir uygulama yapılabilir.Öneri ve yardımlarınızı bekliyorum.
Herkese iyi çalışmalar.
Dim kvl_tabledef As New TableDef
Dim kvl_xml As Integer
Dim kvl_recordset As New ADODB.Recordset
Dim kvl_sql As String
Set kvl_tabledef = CurrentDb.CreateTableDef("haber")
kvl_tabledef.Fields.Append kvl_tabledef.CreateField("date", dbText)
kvl_tabledef.Fields.Append kvl_tabledef.CreateField("title", dbText)
kvl_tabledef.Fields.Append kvl_tabledef.CreateField("description", dbText)
On Error Resume Next
CurrentDb.TableDefs.Append kvl_tabledef 'add the table to the DB
kvl_recordset.Open "haber", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set kvl_recordset = Nothing
kvl_xml = FreeFile()
Open "haberdata.xml" For Output As kvl_xml
Print #kvl_xml, "<?xml version='1.0' encoding='utf-8'?>"
Print #kvl_xml, "<newsscroll>"
Print #kvl_xml, "<parameters>"
Print #kvl_xml, "<registration_code>aW52cYWxpcZA==c</registration_code>"
Print #kvl_xml, "<domain_name>invalid</domain_name>"
Print #kvl_xml, "<movie_width>320</movie_width>"
Print #kvl_xml, " <movie_height>175</movie_height>"
Print #kvl_xml, "<top_margin>8</top_margin>"
Print #kvl_xml, "<left_margin>8</left_margin>"
Print #kvl_xml, "<bottom_margin>8</bottom_margin>"
Print #kvl_xml, "<right_margin>8</right_margin>"
Print #kvl_xml, "<bgcolor_solidorgradient>0</bgcolor_solidorgradient>"
Print #kvl_xml, "<bgcolor_gradientangle>1</bgcolor_gradientangle>"
Print #kvl_xml, "<bgcolor>1A8FBA</bgcolor>"
Print #kvl_xml, "<bgcolor_gradient1>0000DD</bgcolor_gradient1>"
Print #kvl_xml, "<bgcolor_gradient2>000000</bgcolor_gradient2>"
Print #kvl_xml, "<background_transparency>0</background_transparency>"
Print #kvl_xml, "<background_image>bgimage.jpg</background_image>"
Print #kvl_xml, "<image_positionx>0</image_positionx>"
Print #kvl_xml, "<image_positiony>0</image_positiony>"
Print #kvl_xml, "<bgimage_exist>0</bgimage_exist>"
Print #kvl_xml, "<background_image_transparency>0</background_image_transparency>"
Print #kvl_xml, "<bgimage_scaletype>0</bgimage_scaletype>"
Print #kvl_xml, "<bgimage_scalewidth>100</bgimage_scalewidth>"
Print #kvl_xml, "<bgimage_scaleheight>100</bgimage_scaleheight>"
Print #kvl_xml, "<isthere_item_mouseover_background>1</isthere_item_mouseover_background>"
Print #kvl_xml, "<item_mouseover_bgpadding>8</item_mouseover_bgpadding>"
Print #kvl_xml, "<item_mouseover_bgroundradius>8</item_mouseover_bgroundradius>"
Print #kvl_xml, "<item_mouseover_borderthickness>2</item_mouseover_borderthickness>"
Print #kvl_xml, "<item_mouseover_bgtransparency>50</item_mouseover_bgtransparency>"
Print #kvl_xml, "<item_mouseover_bgcolor>808000</item_mouseover_bgcolor>"
Print #kvl_xml, "<item_mouseover_bordercolor>FF8000</item_mouseover_bordercolor>"
Print #kvl_xml, "<item_mouseover_bordertransparancy>30</item_mouseover_bordertransparancy>"
Print #kvl_xml, "<mouseover_action>0</mouseover_action>"
Print #kvl_xml, "<border_width>0</border_width>"
Print #kvl_xml, "<border_color>FF8000</border_color>"
Print #kvl_xml, "<font_color>E7E1B8</font_color>"
Print #kvl_xml, "<titlefont_color>DED174</titlefont_color>"
Print #kvl_xml, "<mouseover_font_color>C8EDAF</mouseover_font_color>"
Print #kvl_xml, "<mouseover_titlefont_color>84BD87</mouseover_titlefont_color>"
Print #kvl_xml, "<text_font>comic Sans MS</text_font>"
Print #kvl_xml, "<title_font>comic Sans MS</title_font>"
Print #kvl_xml, "<text_align>0</text_align>"
Print #kvl_xml, "<font_size>16</font_size>"
Print #kvl_xml, "<title_font_size>16</title_font_size>"
Print #kvl_xml, "<paragraph_space>10</paragraph_space>"
Print #kvl_xml, "<scroll_style>0</scroll_style>"
Print #kvl_xml, "<scroll_speed>2</scroll_speed>"
Print #kvl_xml, "<isthere_downbutton>0</isthere_downbutton>"
Print #kvl_xml, "<downbuttonnormal_transparency>75</downbuttonnormal_transparency>"
Print #kvl_xml, "<downbuttonmover_transparency>20</downbuttonmover_transparency>"
Print #kvl_xml, "<downbutton_positionx>50</downbutton_positionx>"
Print #kvl_xml, "<downbutton_positiony>180</downbutton_positiony>"
Print #kvl_xml, "<downbutton_halignorvaluex>1</downbutton_halignorvaluex>"
Print #kvl_xml, "<downbutton_horalign>1</downbutton_horalign>"
Print #kvl_xml, "<downbutton_name>downbutton1.png</downbutton_name>"
Print #kvl_xml, "<titlefont_bold>yes</titlefont_bold>"
Print #kvl_xml, "<titlefont_italic>no</titlefont_italic>"
Print #kvl_xml, "<font_bold>no</font_bold>"
Print #kvl_xml, "<font_italic>no</font_italic>"
Print #kvl_xml, "<title_underline>no</title_underline>"
Print #kvl_xml, "<underline>no</underline>"
Print #kvl_xml, "<startblank>yes</startblank>"
Print #kvl_xml, "<space_between_title_and_text>10</space_between_title_and_text>"
Print #kvl_xml, "<pause_time>40</pause_time>"
Print #kvl_xml, "<nameofscroller>haber</nameofscroller>"
Print #kvl_xml, "<scrollerfolder_name>haber/haberler</scrollerfolder_name>"
Print #kvl_xml, "</parameters>"
Print #kvl_xml, "<content>"
kvl_recordset.Open "haber", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not kvl_recordset.EOF
Print #kvl_xml, " <subitem>"
Print #kvl_xml, " <title>" & kvl_recordset.Fields("date") & "</title>"
Print #kvl_xml, " <but_text>" & kvl_recordset.Fields("title") & "</but_text>"
Print #kvl_xml, " <but_link>" & kvl_recordset.Fields("description") & "</but_link>"
Print #kvl_xml, " <but_target>_top</but_target>"
Print #kvl_xml, " </subitem>"
kvl_recordset.MoveNext
Loop
Print #kvl_xml, "</content>"
Print #kvl_xml, "</newsscroll>"
Close kvl_xml
kvl_recordset.Close
Set kvl_recordset = Nothing
