Ok dekui, perziuresiu atejus laikui.

Vbscripte nelabai patiko ribotos input/output galimybes, bet velgi, nuo 
rugpjucio ir pradesiu gilintis kas ten kur ir kaip.


"Vitas" <vitas@vito.lt> wrote in message 
news:mmjh9g$sjr$1@trimpas.omnitel.net...
> Nuobodžiauju, tai parašiau tau pilną programą, tik pasikoreguok užklausą 
> ir eksportą :)
>
> Dim FDefPath, FSys, SConn, OutFileName
> Dim SQL, Serveris, duomb
>
> Serveris = InputBox("Serveris:",":)")
> duomb = InputBox("Duomenu baze:",":)")
>
>
> Set SConn = CreateObject("ADODB.Connection")
>
> SConn.Open
> "conn=Application;Name=MQIS;Provider=sqloledb;Trusted_Connection=yes;Server="& 
> Serveris &";Database="& duomb'uzklausa SQL = "select * from 
> table"SConn.Execute(SQL)'eksportuojam i xmlSet objFile = 
> CreateObject("Scripting.FileSystemObject")failo_vardas= InputBox("Iveskite 
> pavadinima:")Set objMyFile = objFile.CreateTextFile("C:\"& failo_vardas & 
> ".xml", True)objmyfile.writeLine("<?xml version=""1.0"" 
> encoding=""utf-8""?>")objmyfile.writeLine("<Sailo_xml>")Set rst_uzklausa = 
> SConn.Execute(SQL)Do While not rst_uzklausa.eofobjmyfile.writeLine(" 
> <sailo_data> " 
> &rst_uzklausa("kazkoks_stulpelis")&</sailo_data>" )rst.movenextLoopobjmyfile.writeLine("</Sailo_xml>")objMyFile.CloseConn.Close