PDA

View Full Version : خطا در XmlTextReader



ehsan957
جمعه 09 فروردین 1387, 08:01 صبح
در زیر برنامه ام را گذاشتم که قراره محتویات دیتابیسم را بخونه و داخل یک فایل XML ذخیره کنه.



Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Xml
Imports System.IO
Public Class GetXmlReader
Public Shared Sub Main()
'Connect to the database
Dim connstring As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & My.Application.Info.DirectoryPath.Substring(0, My.Application.Info.DirectoryPath.Length - 10) & "\data.mdf;Integrated Security=True;User Instance=True"
Dim conn As New SqlConnection(connstring)
conn.Open()
'Specify the command
Dim sqlstring As String = _
"SELECT ID, fname,lname,saham,mande " & _
"FROM users ORDER BY ID " & _
"FOR XML AUTO"
Dim cmd As New SqlCommand(sqlstring, conn)
'Return the results to an XmlTextReader
Dim xDoc As XmlTextReader
xDoc = cmd.ExecuteXmlReader()
'Process the XML Fragment
xDoc.MoveToContent()
Dim fileWriter As New StreamWriter("XMLFile1.xml")
fileWriter.WriteLine("<?xml version='1.0'?>")
fileWriter.WriteLine("<User>")
Do While xDoc.IsStartElement
fileWriter.WriteLine(xDoc.ReadOuterXml())
Loop
fileWriter.WriteLine("</User>")
'Close the XmlTextReader to free the connection
xDoc.Close()
'Clean up
conn.Close()
fileWriter.Close()
End Sub
End Class


فایل بالا داخل کلاس خودش ذخیره شده که اون را از جای دیگه به این شکل صدا می زنم



GetXmlReader.Main()


ولی موقع اجرا چنین خطایی میده



Unable to cast object of type 'System.Xml.XmlTextReaderImpl' to type 'System.Xml.XmlTextReader'.


ممنون میشم اگه من را راهنمایی کنین

ehsan957
جمعه 09 فروردین 1387, 16:31 عصر
حداقل بخونینش