saeid taheri
چهارشنبه 03 آبان 1385, 19:18 عصر
با سلام خدمت اساتید محترم
من در کامپیوتر خود به هیچ عنوان نمی تمانم در فایل xml اطلاعات ذخیره نمایم و با اشکال زیر مواجه می شوم اگر راهنمایی بفرمایید متشکرم
Access to the path "s:\inetpub\wwwroot\Ajax\saeid.xml" is denied.
کد برنامه بصورت زیر می باشد
Dim ds As DataSet = New DataSet
Dim strCon As String
strCon = "Initial Catalog=northwind;uid=;pwd=;"
Dim conn As SqlConnection
conn = New SqlConnection(strCon)
conn.Open()
Dim strcomm As String
strcomm = "select * from Customers where Country='usa'"
Dim da As SqlDataAdapter
da = New SqlDataAdapter(strcomm, conn)
da.Fill(ds, "Customers")
Dim doc As XmlDataDocument = New XmlDataDocument(ds)
Dim writer As XmlTextWriter = New XmlTextWriter(Server.MapPath("saeid.xml"), Nothing)
doc.Save(writer)
DataGrid1.DataSource = ds
DataGrid1.DataBind()
writer.Close()
da.Dispose()
ds = Nothing
writer = Nothing
doc = Nothing
من در کامپیوتر خود به هیچ عنوان نمی تمانم در فایل xml اطلاعات ذخیره نمایم و با اشکال زیر مواجه می شوم اگر راهنمایی بفرمایید متشکرم
Access to the path "s:\inetpub\wwwroot\Ajax\saeid.xml" is denied.
کد برنامه بصورت زیر می باشد
Dim ds As DataSet = New DataSet
Dim strCon As String
strCon = "Initial Catalog=northwind;uid=;pwd=;"
Dim conn As SqlConnection
conn = New SqlConnection(strCon)
conn.Open()
Dim strcomm As String
strcomm = "select * from Customers where Country='usa'"
Dim da As SqlDataAdapter
da = New SqlDataAdapter(strcomm, conn)
da.Fill(ds, "Customers")
Dim doc As XmlDataDocument = New XmlDataDocument(ds)
Dim writer As XmlTextWriter = New XmlTextWriter(Server.MapPath("saeid.xml"), Nothing)
doc.Save(writer)
DataGrid1.DataSource = ds
DataGrid1.DataBind()
writer.Close()
da.Dispose()
ds = Nothing
writer = Nothing
doc = Nothing