Insérer une datatable dans une base de données SQL sans boucle

Bonjour,

Je débute en SQL et en vb.net. Je fait une application en VB.net pour Ipaq.
J'ai une fonction mise à jour, qui va chercher des données sur des clients dans un serveur SQL, qui les insere dans la datatable Table_OCRD puis, qui les insére dans le serveur SQLCe d'un IPAQ.
Je voudrais savoir si c'est possible d'insérer une datatable dans une base de données SQL sans avoir à utiliser une boucle avec Insert Into pour insérer rangée par rangée.

Pour l'instant, j'insère les données dans le server SQL Ce comme ca

Code:

---

1 2 3 4 5

For i As Integer = 0 To 300   Dim SQLCmd2 As String = "INSERT INTO ClientGeneralReduit VALUES('" Table_OCRD.Rows(i).Item("CardCode").ToString & "'," & Table_OCRD.Rows(i).Item("rownb") & ...."')"   Next

---

Je voudrais savoir si je pourrais faire quelque chose qui ressemble à ca pour insérer ma table dans la base de données en une ligne.

Code:

---

Dim SQLCmd2 As String = "select * into ClientGeneralReduit [in DataBaseGarde] from Table_OCRD"

---

Est-ce que je dois creer un objet Command et un Dataset ?:roll:

J'ai trouvé une solution ! C'est beaucoup plus rapide que les insert into. Je met 5 min a charger ma table sur le serveur. Avant je mettais, une heure !!

Code:

---

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

Try Dim SQLCmd As String = "exec UpdateListeClient"   Table_OCRD = SQLServerMiseAjour.SendCmd(SQLCmd).Tables(0)   ' je supprime les donnees de la table dans le serveur sqlce Dim SQLCmdCe As String = "DELETE from ClientGeneralReduit" SqlServerCe.SendCmd(SQLCmdCe, True)   Dim con As SqlCeConnection = SqlServerCe.GETConnection If con.State = ConnectionState.Closed Then con.Open()   Using cmd As SqlCeCommand = New SqlCeCommand() cmd.Connection = con cmd.CommandText = "ClientGeneralReduit" cmd.CommandType = CommandType.TableDirect   Using rs As SqlCeResultSet = cmd.ExecuteResultSet(ResultSetOptions.Updatable Or ResultSetOptions.Scrollable) Dim record As SqlCeUpdatableRecord = rs.CreateRecord()   For i = 0 To 17000 record.SetValue(0, Table_OCRD.Rows(i).Item("CardCode")) record.SetValue(1, Table_OCRD.Rows(i).Item("rownb")) record.SetValue(2, Table_OCRD.Rows(i).Item("Cardname")) record.SetValue(3, Table_OCRD.Rows(i).Item("Address")) record.SetValue(4, Table_OCRD.Rows(i).Item("ZipCode")) record.SetValue(5, Table_OCRD.Rows(i).Item("City")) record.SetValue(6, Table_OCRD.Rows(i).Item("Phone1")) record.SetValue(7, Table_OCRD.Rows(i).Item("Freq1")) record.SetValue(8, Table_OCRD.Rows(i).Item("U_BGDerniereLivr")) record.SetValue(9, Table_OCRD.Rows(i).Item("U_BGLivraisonEnCour")) record.SetValue(10, Table_OCRD.Rows(i).Item("U_BGListeNoire")) record.SetValue(11, Table_OCRD.Rows(i).Item("U_BGendroitGeo")) record.SetValue(12, Table_OCRD.Rows(i).Item("U_LEmpID")) record.SetValue(13, Table_OCRD.Rows(i).Item("U_BGNbLitres")) record.SetValue(14, Table_OCRD.Rows(i).Item("U_BGSTOPLI")) record.SetValue(15, Table_OCRD.Rows(i).Item("Livreur")) record.SetValue(16, Table_OCRD.Rows(i).Item("Liv2")) rs.Insert(record) Next End Using   End Using con.Close()       Catch ex As Exception PanelProgression.Hide() MsgBox("erreur: " + ex.Message)   End Try

---