谢谢所有



i在vb.net中解决了我在这个课上的问题

thanks all

i have solve my problem with this class in vb.net

Imports System.Net
Imports System.Xml
Imports System.Data.SqlClient
Imports System.Data
Module Main
    Dim sql As String
    Dim connetionString As String
    Dim connection As SqlConnection
    Dim command As SqlCommand
    Dim adpter As New SqlDataAdapter
    Dim ds As New DataSet
    Dim xmlFile As XmlReader
    Dim doc As New XmlDocument()
    Sub Main()

        'This will execute when your application

        'starts up. This is the equivilent of a
        'Form_Load event in a form application.

        'Put whatever code you want in this sub,

        'but make sure you end it with this statement:
        Try
            connetionString = "Data Source=.;Initial Catalog=Newsfeed;Integrated Security=True"
            connection = New SqlConnection(connetionString)
            connection.Open()
            deletedata()
            Dim ArticleTitle As String
            Dim ArticleDate As String
            Dim ArticleText As String

            Dim RssData As New DataSet
            Dim pry As System.Net.WebProxy = New System.Net.WebProxy("x.x.x.x", 8080)
            pry.Credentials = CredentialCache.DefaultCredentials

            GlobalProxySelection.Select = pry


            RssData.ReadXml("http://www.petra.gov.jo/library/RSS/RSS_General.xml?ID=635283116713881076")

            For Each RssRow As DataRow In RssData.Tables("item").Rows
                ArticleTitle = RssRow.Item("title").ToString
                ArticleDate = RssRow.Item("pubDate").ToString
                ArticleText = RssRow.Item("description").ToString
                sql = "insert into AllNews (Title,NewDate,Content,Catalog) Values('" & ArticleTitle & "','" & ArticleDate & "','" & ArticleText & "','اخبار عالمية')"
                command = New SqlCommand(sql, connection)
                adpter.InsertCommand = command
                adpter.InsertCommand.ExecuteNonQuery()
            Next

            connection.Close()
        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Application.Run()

    End Sub
    Sub deletedata()
        connetionString = "Data Source=.;Initial Catalog=Newsfeed;Integrated Security=True"
        connection = New SqlConnection(connetionString)
        connection.Open()
        sql = "DELETE FROM AllNews"
        command = New SqlCommand(sql, connection)
        adpter.InsertCommand = command
        adpter.InsertCommand.ExecuteNonQuery()
    End Sub
End Module