1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| 'À chaque fois que vous manipulez du sql, que se soit l'objet connexion ou une requête, faites les IMPORTS suivants
Imports System.Data
Imports System.Data.SqlClient
Imports System.Xml
Public Class Form1
Dim cn As New SqlConnection
Dim cmd As New SqlCommand
'Dim Dr As SqlDataReader
'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 sql As String
Dim URL As String
Dim NOM As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cn.ConnectionString = "server=(local);integrated security=true;database=test"
'cmd.Connection = cn
'cn.Open()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
xmlFile = XmlReader.Create("test.xml", New XmlReaderSettings())
ds.ReadXml(xmlFile)
Dim i As Integer
cn.Open()
For i = 0 To ds.Tables(0).Rows.Count - 1
URL = ds.Tables(0).Rows(i).Item(0)
NOM = ds.Tables(0).Rows(i).Item(1)
sql = "insert into SITE values(" & URL & "," & NOM & ")"
cmd = New SqlCommand(sql, cn)
adpter.InsertCommand = cmd
adpter.InsertCommand.ExecuteNonQuery() ' ERREUR ICI
Next
cn.Close()
End Sub
End Class |