Insertion de plusieurs valeurs dans une base de données SQL à partir d'EXCEL via VBA script

Je crois que les colonnes que vous spécifiez dans votre instruction INSERT sont dupliqués et donc pas correct.
Essayez:

item4 = item4 & "  [server_name],[middleware],[version],[license]"

Mise à jour:
Votre instruction SQL doit ressembler à ceci:

INSERT INTO [IndustrialComp].[dbo].[Middleware]([server_name],[middleware],[version],[license])
VALUES ('TEST6','Testing',1,1)
      ,('TEST6','Testing1',1,1)
      ,('TEST6','Testing2',1,1)
      ,('TEST6','Testing3',1,1)

Donc, vous avez à répéter le bloc entre parenthèses pour chaque ligne que vous souhaitez insérer.

Cependant, désormais vous n'4 variables qui détiennent des 4 valeurs différentes dans votre solution, de sorte que vous ne sera jamais en mesure d'insérer ces 4 lignes différentes parce que vous ne sélectionnez des valeurs dans les cellules B126, C126, C127 et D126. Qui sera probablement la première ligne que vous souhaitez insérer? Ou voulez-vous ajouter le 1,2,3 pour Testing - vous et répétez avec les autres valeurs?
Veuillez expliquer et de mettre à jour votre réponse en conséquence.

Si vous avez plusieurs lignes de données, il est beaucoup plus efficace pour insérer toutes les lignes en une seule fois en un seul appel à une procédure stockée. Pour ce faire, vous sérialiser vos données en xml et ensuite appeler une procédure stockée qui prend xml comme un paramètre de chaîne.

Autant que je sache, vous ne pouvez pas sérialiser un Dictionnaire, mais vous pouvez sérialiser une Liste.

Alors je vous suggère de faire une boucle par votre Dictionnaire (Liste de Dictionnaires) remplir une Liste avec les valeurs appropriées. J'ai tendance à utiliser des Structures pour cela, mais de simples classes fonctionnent très bien ainsi, par exemple:

Public Class DBData
    Public pKey As Integer
    Public pValue As Double
    Public Sub New(key As Integer, val As Double)
        pKey = key
        pValue = val
    End Sub
    Public Sub New()
        pKey = 0
        pValue = 0.0
    End Sub
End Class

Créer votre Liste et le remplissage d'e.g:

Dim myList As New List(Of DBData)
For Each kvPair In dict
    myList.Add(New DBData(kvPair.Key, kvPair.Value))
Next

Maintenant pour le peu de magie pour sérialiser:

Dim sw As New StringWriter
Dim serializer As New XmlSerializer(GetType(List(Of DBData)))
Dim ns As New XmlSerializerNamespaces()
serializer.Serialize(sw, myList)

Dim xml As String
xml = sw.ToString
Dim pos As Integer

pos = xml.IndexOf("<Array")
xml = xml.Substring(pos)

Avis ici, je suis dépouiller de l'en-tête du fichier xml qui vient d'être créé. C'est parce que je n'ai jamais été en mesure d'obtenir SQL Server fonctionner si l'en-tête a été incluse - vous pouvez probablement, je n'ai simplement jamais regardé assez dur.

Nous appeler la procédure stockée comme ça (évidemment modifier la chaîne de connexion à celui qui fonctionne pour vous):

Using conn As New SqlConnection("Integrated Security=true; Initial Catalog=dbname; Data Source=servername")
    Using cmd As New SqlCommand("uspDBDataInsert", conn)
        cmd.CommandType = CommandType.StoredProcedure
        Dim param As SqlParameter
        param = cmd.CreateParameter
        param.ParameterName = "@dbdata"
        param.DbType = DbType.String
        param.Value = xml
        cmd.Parameters.Add(param)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Using
End Using

De SQL Server la procédure ressemble à ceci:

CREATE PROCEDURE [dbo].[uspDBDataInsert] 
    -- Add the parameters for the stored procedure here
    @dbdata varchar(MAX)

AS

BEGIN try
    -- SET NOCOUNT ON added to prevent extra result sets from
    -- interfering with SELECT statements.
    SET NOCOUNT ON;

    declare @idoc int

    --Create an internal representation of the XML document
    EXEC sp_xml_preparedocument @idoc OUTPUT, @dbdata

    insert into DBData
    (
        id, rowvalue    
    )
    select
        pKey,pValue
    FROM OPENXML (@idoc, '/ArrayOfDBData/DBData',2)
    WITH (
        pKey int,
        pValue float
    )
    select @@ROWCOUNT

end try

begin catch
    declare @msg nvarchar(200)
    SELECT @msg = ('Error during insert of DBData...')
end catch

Évidemment ici, vous aurez besoin de changer le ArrayOf à ce que vous appelez votre classe et bien sûr utiliser votre propre table.

Bien que j'ai montré ici, juste une simple paire clé/valeur, vous pouvez remplir un multi-colonne de la table exactement de la même manière.

Un point à noter: votre classe/structure doit être Public dans un module Public, sinon sérialiser ne fonctionnera pas. Aussi, si vous fournissez votre propre paramètre de constructeur pour une classe (comme moi), vous devez également fournir un sans paramètre, sinon de nouveau le sérialiseur objet.

HTH

Additif

Ce que j'ai oublié de mettre, pour la VB à travailler, vous devez:

Imports System.IO
Imports System.Xml.Serialization
Imports System.Data.SqlClient