como puedo concatenar esta instruccion de sql en visual basic

[elpaisa]

Bueno miren tengo una aplicativo de escritorio para enviar a una base datos un procedimiento almacenado desde visual

pero el problema que tengo es que es demasiado grande el procedimiento almacenado para juntarlos todo en una linea y tengo que cojerlo todo y necesito espacios aca les paso una parte

create PROCEDURE Contabilidad
@MesConsol Varchar (02),
@DiaConsol_I Varchar(02),
@DiaConsol_F Varchar(02),
@Tipo_Consol varchar (10)
As
declare @nrofactura Varchar(10),
@nroReversada varchar(10),
@Fechafac Datetime,
@ID3 varchar(15),
@NomClie Varchar(60),
@NomProv Varchar(60),
@MtoTotFac decimal (34,4),
@MtoTaxFac decimal (34,4),
@TotCostoFac decimal (34,4),
@Base_Iva16Fac decimal (34,4),
@Base_Iva10Fac decimal (34,4),
@TGravableFac decimal (34,4),
@VrIVA16Fac decimal (34,4),
@VrIVA10Fac decimal (34,4),
@TExentoFac decimal (34,4),
@Bodega varchar (5),
@tipo_Operacion Varchar(15),
@CancelI decimal (10,2),
@Descuentos decimal (10,2),
@BDConta varchar (25),
@Prefix Varchar (5),
@siPeriod smallint,
@KeyTrans int,
@KeyEntry int,
@ID_Class Varchar (5),
@Nro_Comprob Varchar(10),
@Descrip_Comprob varchar(60),
@ID_Entry varchar (10),
@Mes_Comprob Tinyint,
@CtaCxCDev varchar (10),
@CtaDev varchar (10),
@CtaCostoDev varchar (10),
@SqlQry varchar (100),
@CodInst int,
@NombreInsta Varchar (35),
@TotalItem decimal (10,2),
@BIva16Item decimal (10,2),
@VrIVA16Item decimal (10,2),
@BIVA10Item decimal (10,2),
@VrIVA10Item decimal (10,2),
@VrExcentoItem decimal (10,2),
@RetenIva decimal (28,4),
@CtaCxC Varchar(12),
@CtaVenGrab Varchar(12),
@CtaVenEx Varchar(12),
@CtaVrIvaVen Varchar(12),
@CtaDeVenGrab Varchar(12),
@CtaDeVenEx Varchar(12),
@CtaIvaDeVen Varchar(12),
@CtaIvaRetVen Varchar(12),
@CtaRfteVen Varchar(12),
@CtaCostoVen Varchar(12),
@CtaInvVen Varchar(12),
@CtaDescVen Varchar(12),
@CtaCxP Varchar(12),
@CtaComGrab Varchar(12),
@CtaComEx Varchar(12),
@CtaVrIvaCom Varchar(12),
@CtaDevComGrab Varchar(12),
@CtaDevComEx Varchar(12),
@CtaIvaDevCom Varchar(12),
@CtaIvaRetCom Varchar(12),
@CtaRfteCom Varchar(12),
@CtaDescCom Varchar(12)


Set @ID_Class='01'
Set @siPeriod='2011'
Set @Mes_Comprob= CASE When @mesconsol <'10' then right (@mesconsol,1) Else @MesConsol End

IF @Tipo_Consol='VENTAS'

Begin
SELECT @CtaCxC=CxCGeneral,@CtaVenGrab=CtaVtaCredito,@CtaD eVenGrab=CtaDevolucionesCRV, @CtaIvaRetVen=CtaProvidenciaV,@CtaCostoVen=CtaCost oVenta,@CtaInvVen=CtaRealInventario,@CtaDescVen=Ct aDctoCrV,
@CtaCxP=CxPGeneral,@CtaComGrab=CtaCompras,@CtaDevC omGrab=CtaDevolucionesC, @CtaIvaRetCom=CtaProvidenciaC,@CtaDescCom=CtaDescu entosC,@CtaCostoVen=CtaCostoVenta,@CtaInvVen=CtaRe alInventario from SAINT_ADM.DBO.SCIPARAM
select @CtaVrIvaVen=CtaCr,@CtaIvaDeVen=CtadevolucionesCrV ,@CtaVrIvaCom=CtaCompra,@CtaIvaDevCom=CtaDevolucio nesC from SCIALICUOTA where Codigo='IVA'
select @CtaVenEx=CtaCr,@CtaDeVenEx=CtadevolucionesCrV,@Ct aComEx=CtaCompra,@CtaDevComEx=CtaDevolucionesC from SCIALICUOTA where Codigo='EXENTO'
select @CtaRfteVen=CtaVtasCredito,@CtaRfteCom=CtaCompras from sciopera where Codigo='RF'



es decir necesito que todo esto me lo coja como string pero no me deja

a por cierto estoy trabajando en el visual studio 2008

[Aquaventus]

Hola elpaisa, una manera seria colocandolo esa instruccion a un txt y hacerle un ReadtoEnd y ejecutar la instruccion con la cadena devuelta. Y la otra manera que hacia para crear un procedure probablemente muy rudimentario seria asi... :

Código vb.net:

Sub crearProcedure7()
        Dim cnn As New SqlConnection("Server=" & cboInstancias.Text & "; database=" & txtBase.Text & "; integrated security=yes")
        Dim strSQL As String = "CREATE PROCEDURE modificar_paciente @cod nvarchar(10), @nom nvarchar(45), @pat nvarchar(45), @mat nvarchar(45), @ocu nvarchar(100), @dom nvarchar(250), @sex char(1), @fec nvarchar(10), @tel nvarchar(8), @cel nvarchar(9), @ale nvarchar(200), @enf nvarchar(200) as update paciente set nom_pac=@nom,pat_pac=@pat,mat_pac=@mat,ocu_pac=@ocu,dom_pac=@dom,sex_pac=@sex,fec_pac=@fec,tel_pac=@tel,cel_pac=@cel,ale_pac=@ale,enf_pac=@enf where cod_pac = @cod"
        Dim cmd As New SqlCommand(strSQL, cnn)
        cmd.CommandType = CommandType.Text
        Try
            cnn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As SqlException
            MessageBox.Show(ex.ToString, "Clients")
        Finally
            cmd.Dispose()
            cnn.Close()
        End Try
    End Sub
 

[elpaisa]

Iniciado por Aquaventus

Hola elpaisa, una manera seria colocandolo esa instruccion a un txt y hacerle un ReadtoEnd y ejecutar la instruccion con la cadena devuelta. Y la otra manera que hacia para crear un procedure probablemente muy rudimentario seria asi... :

Código vb.net:

Sub crearProcedure7()
        Dim cnn As New SqlConnection("Server=" & cboInstancias.Text & "; database=" & txtBase.Text & "; integrated security=yes")
        Dim strSQL As String = "CREATE PROCEDURE modificar_paciente @cod nvarchar(10), @nom nvarchar(45), @pat nvarchar(45), @mat nvarchar(45), @ocu nvarchar(100), @dom nvarchar(250), @sex char(1), @fec nvarchar(10), @tel nvarchar(8), @cel nvarchar(9), @ale nvarchar(200), @enf nvarchar(200) as update paciente set nom_pac=@nom,pat_pac=@pat,mat_pac=@mat,ocu_pac=@ocu,dom_pac=@dom,sex_pac=@sex,fec_pac=@fec,tel_pac=@tel,cel_pac=@cel,ale_pac=@ale,enf_pac=@enf where cod_pac = @cod"
        Dim cmd As New SqlCommand(strSQL, cnn)
        cmd.CommandType = CommandType.Text
        Try
            cnn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As SqlException
            MessageBox.Show(ex.ToString, "Clients")
        Finally
            cmd.Dispose()
            cnn.Close()
        End Try
    End Sub
 

muchas gracias por responder tan pronto pero te pregunto

bueno ademas en la instruccion que tengo que enviar hay parte

select @KeyEntry= max(KeyEntry)from SAINT_CONTAB.dbo.C03Entry

-- Insertar Tercero si no existe en Ventas Credito

If not exists (select * from SAINT_CONTAB.[dbo].[C03Thirds] where ID_Third=@ID3)
Begin
INSERT INTO SAINT_CONTAB.[dbo].[C03Thirds]
([ID_Third]
,[Descrip]
,[ID_OrgThird])
VALUES
(@ID3,@NomClie,@ID3)
Print 'SE INSERTO EL TERCERO '+@ID3
End
-- Insertar Registro Cuenta x Cobrar en Ventas Credito

INSERT INTO SAINT_CONTAB.[dbo].[C03Trans] ([KeyEntry],[siPeriod],[ID_Entry],[Id_Trans],[Nline],[ID_Account],[ID_Document],[dtDate],[siMonth],[Reference],[dtDateTrc],[Detail],[ID_Class],[Amount],[Cr],[TaxBase]) Values

es decir no puedo meter todo en una sola linea porque en ciertas partes hay que colocar un comentario y si lo coloco en una sola linea del resto para adelante lo puede tomar como un comentario y no como instruccion


lo que yo quiero es que me lo pueda tomar toda la instruccion string tal cual como es

Ademas en el procedimiento tengo que enviar los parametros para poder ejecutarlo en la base de datos

[Aquaventus]

Mmmm.. tu estas construyendo la estructura de tu bd mediante visual(tablas, procedures, foreign key....)? o en si cual es tu objetivo ?

[elpaisa]

Aquaventus gracias por tu colaboracion ya lo solucione lo que hice fue de la 2 manera solo copie parte del codigo parte por parte y lo pego en el navegador de esa manera queda en una sola linea y asi me quedo


Muchas gracias por tu colaboracion

[Aquaventus]

Ah que bueno!! excelente. Cualquier otro problema no dudes en preguntarnos. Saludos!