将XML文档作为参数传递给.net vb中的sql脚本

时间:2016-03-21 09:43:01

标签: xml vb.net tsql sql-server-2008-r2 smo

如何在vb.net中将XML文档作为参数传递给SQL脚本?我想在XML脚本中使用XML作为变量。 SQL脚本不识别我作为.net

中的参数提交者的变量

这是我的XML。

<?xml version="1.0"?>
<sqlSkript>
   <parameter>
      <name>name</name>
      <datentyp>varchar</datentyp>
   </parameter>
   <parameter>
      <name>strasse</name>
      <datentyp>varchar</datentyp>
   </parameter>
</sqlSkript>

这是我的SQL脚本。

DECLARE @xml xml

SET @xml = @test

SELECT  t.name AS table_name,
        SCHEMA_NAME(t.schema_id) AS schema_name,
        c.name AS column_name,
        st.name as datatyp

FROM    sys.tables AS t
        INNER JOIN sys.columns c ON t.OBJECT_ID = c.OBJECT_ID
        INNER JOIN sys.types st ON st.system_type_id = c.system_type_id 
        AND st.name != 'sysname'

WHERE   (c.name like '%' + (SELECT @xml.value('(/sqlSkript/parameter/name)[1]', 'varchar(100)')) + '%'
        AND st.name like (SELECT @xml.value('(/sqlSkript/parameter/datentyp)[1]', 'varchar(100)')))
        or
        (c.name like '%' + (SELECT @xml.value('(/sqlSkript/parameter/name)[2]', 'varchar(100)')) + '%'
        AND st.name like (SELECT @xml.value('(/sqlSkript/parameter/datentyp)[2]', 'varchar(100)')))

ORDER BY schema_name, table_name;

这是我的vb.net代码

        Dim command As SqlCommand = New SqlCommand()

        Dim xmldoc As New Xml.XmlDocument
        xmldoc.Load(System.IO.Path.GetFullPath(Application.StartupPath & "\XML\indivudellParameter.xml"))

        Dim param As SqlParameter = New SqlParameter("@test", SqlDbType.Xml)
        param.Value = New SqlXml(New XmlTextReader(xmldoc.InnerXml, XmlNodeType.Document, Nothing))
        command.Parameters.Add(param)

        Using reader As SqlDataReader = _server.ConnectionContext.ExecuteReader(script, command)
            While reader.Read()
                //do something
            End While
            reader.Close()
        End Using

编辑:

解决方法

        Dim xmldoc As New Xml.XmlDocument
        xmldoc.Load(System.IO.Path.GetFullPath(Application.StartupPath & "\XML\indivudellParameter.xml"))

        script = script.Replace("@test", xmldoc.InnerXml)

        Using reader As SqlDataReader = _server.ConnectionContext.ExecuteReader(script)
            While reader.Read()
                  // do something
            End While

1 个答案:

答案 0 :(得分:0)

可能很简单:

您是否确定要在两种情况下将XML数据值与st.name进行比较(使用***标记地点)?

WHERE   (c.name like '%' + (SELECT @xml.value('(/sqlSkript/parameter/name)[1]', 'varchar(100)')) + '%'
        AND ***st.name*** like (SELECT @xml.value('(/sqlSkript/parameter/datentyp)[1]', 'varchar(100)')))
        or
        (c.name like '%' + (SELECT @xml.value('(/sqlSkript/parameter/name)[2]', 'varchar(100)')) + '%'
        AND ***st.name*** like (SELECT @xml.value('(/sqlSkript/parameter/datentyp)[2]', 'varchar(100)')))

如果不是那么简单:尝试检查您的参数是否正确进入SQL脚本(将其写入某个临时表并在那里检查。