How import xml to sql 2000 using vb.net

[Marcio Vidal]

Hello Guys,

How i can do import this stored procedure to sql 2000 ?

After readxml i dont know what i need do.

thanks


<?xml version="1.0" standalone="yes" ?>
- <NewDataSet>
- <xs:schema id="NewDataSet" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
- <xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:Locale="es-ES">
- <xs:complexType>
- <xs:choice maxOccurs="unbounded">
- <xs:element name="Table1">
- <xs:complexType>
- <xs:sequence>
<xs:element name="USUARIO" type="xs:string" minOccurs="0" />
<xs:element name="NOMBRE" type="xs:string" minOccurs="0" />
<xs:element name="ROUTINE_DEFINITION" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
</xs:element>
</xs:schema>
- <Table1>
<USUARIO>[dbo]</USUARIO>
<NOMBRE>[DeleteAplicacion]</NOMBRE>
<ROUTINE_DEFINITION>CREATE PROCEDURE dbo.DeleteAplicacion ( @aplicacion char(10) , @nombrefichero varchar( 255 ) ) AS /* SET NOCOUNT ON */ DELETE FROM Ficheros WHERE Aplicacion = @aplicacion and NombreFichero = @nombrefichero RETURN 0</ROUTINE_DEFINITION>
</Table1>
- <Table1>
<USUARIO>[dbo]</USUARIO>
<NOMBRE>[DeleteAplicacionCompleta]</NOMBRE>
<ROUTINE_DEFINITION>CREATE PROCEDURE dbo.DeleteAplicacionCompleta ( @aplicacion char(10) ) AS /* SET NOCOUNT ON */ DELETE FROM Ficheros WHERE Aplicacion = @aplicacion RETURN 0</ROUTINE_DEFINITION>
</Table1>
- <Table1>
<USUARIO>[dbo]</USUARIO>
<NOMBRE>[DeleteID]</NOMBRE>
<ROUTINE_DEFINITION>CREATE PROCEDURE dbo.DeleteID ( @id integer ) AS /* SET NOCOUNT ON */ DELETE FROM Ficheros WHERE ID = @ID RETURN 0</ROUTINE_DEFINITION>
</Table1>
</NewDataSet>

[Marcio Vidal]

I found some way

see code.

For i = 0 To dsdatos.Tables(0).Rows.Count - 1

Dim NombreProc As New String(dsdatos.Tables(0).Rows(i).Item("NOMBRE").To String)
NombreProc = NombreProc.Remove(0, 1)
NombreProc = NombreProc.Remove((NombreProc.Length - 1), 1)

consult = "IF EXISTS(SELECT name FROM sysobjects WHERE name = '" & NombreProc & "' AND type = 'P') " & _
"DROP PROCEDURE " & (dsdatos.Tables(0).Rows(i).Item("USUARIO").ToStrin g) & "." & (dsdatos.Tables(0).Rows(i).Item("NOMBRE").ToString )
vdato = dsdatos.Tables(0).Rows(i).Item("ROUTINE_DEFINITION ").ToString
BD.EjecutarConsultaSQL(consult)
BD.EjecutarConsultaSQL(vdato)
Next

MsgBox("Importacion realizada correctamente", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("Error en la importación del fichero")
MsgBox(ex.ToString, MsgBoxStyle.Critical)

End Try