roh_8_it_3
Registered User.
- Local time
- Today, 12:24
- Joined
- Feb 15, 2005
- Messages
- 79
hi all ,
i have a adp project with the sql server200 as a backend.So the software is running on the client machines.
I have a requirent to generate the xml files and then save them to a server or a shared drive .
this is the code i m usig to generate the recordset and then saving it as xml-
Dim objRS As New ADODB.Recordset
Dim objcmd As New ADODB.Command
Dim strconn As New ADODB.Connection
Dim connstring As String
Dim strquery As String
Dim i As Integer
connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user;Pwd=user;Initial Catalog=dbname;Data Source=servername"
strquery = "select * from tbla where id=<id>"
strconn.Open connstring
objRS.Open strquery, strconn
objRS.Save "c:\myfolder\test.xml", adPersistXML
MsgBox ("Saved successfully at the specified location")
strconn.Close
I have 2 problems-
1.First as this is a client application so how can i save it at a common place?
as every can have mapped the shared drive differently??
2.I need to generate the files with some kind of version info ex say for a partiuclar id 21
i will first check on the folder is there any file exists if not i will save it as 21vs0.xml and next time i have to save it like 21vs1.xml
Any help on this please.
Thanks
i have a adp project with the sql server200 as a backend.So the software is running on the client machines.
I have a requirent to generate the xml files and then save them to a server or a shared drive .
this is the code i m usig to generate the recordset and then saving it as xml-
Dim objRS As New ADODB.Recordset
Dim objcmd As New ADODB.Command
Dim strconn As New ADODB.Connection
Dim connstring As String
Dim strquery As String
Dim i As Integer
connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user;Pwd=user;Initial Catalog=dbname;Data Source=servername"
strquery = "select * from tbla where id=<id>"
strconn.Open connstring
objRS.Open strquery, strconn
objRS.Save "c:\myfolder\test.xml", adPersistXML
MsgBox ("Saved successfully at the specified location")
strconn.Close
I have 2 problems-
1.First as this is a client application so how can i save it at a common place?
as every can have mapped the shared drive differently??
2.I need to generate the files with some kind of version info ex say for a partiuclar id 21
i will first check on the folder is there any file exists if not i will save it as 21vs0.xml and next time i have to save it like 21vs1.xml
Any help on this please.
Thanks