Tema: Re: Kuom rasyt toki daikta?
Autorius: Vitas
Data: 2015-06-26 10:07:14
vbscript.

pradžia duomenų nuskaitymui gali būti tokia, belieka tau prisirašyti tik 
ekportavimą į xml :)

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

SQL = "select * from table"
SConn.Execute(SQL)

SQL = "create table blabla (xml ntext)"
SConn.Execute(SQL)

MsgBox("Pavyko!")

SConn.Close

> Taigi - kuom rasyt ta softa?
> Mokytis tai teks bet kuriuo atveju.
>
> Dekui jei kas tures protingu minciu.
>