Programación General > Visual Basic 6.0 e inferiores

 Procedimientos Almacenados

(1/1)

az8:
hola ... estoy desarrollando un sistema en red... y necesti ejecutar varios procedimientos almacenados desde visual.. mis procedimientos los tengo en sql server 7 y 2000... los mas importantes son para borrar, insertar y consultar registros... los kiero ejecutar desde visual mandando datos desde el formulario o bien con alguna instruccion de visual.. y la verdad no se como hacerlo.. espero me puedan mandar un ejemplo de como hacerlo.. a me conecto a sql server con un DSN...

DE ANTEMANO GRACIAS
ATE AZ8

.: Raul :.:
Hola, este es mi primer mensaje y espero q sea de ayuda  :)

Asi es como utilizo yo Procedimientos Almacenados en SQL Server 2000 (7) desde vb.net:


--- Código: Text ---Public Function CargarTablaCamposCondicionOrden(ByVal Tabla As String, ByVal Campos As String, ByVal Condicion As String, ByVal Orden As String, ByVal Da As SqlClient.SqlDataAdapter, ByVal Ds As DataSet)        Dim oCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()        oCommand.CommandText = "[PA_DevolverTablaCamposCondicionOrden]"        oCommand.Connection = Conexion        oCommand.CommandTimeout = 0        oCommand.CommandType = CommandType.StoredProcedure        oCommand.Parameters.Add("@Tabla", SqlDbType.Char, 50).Value = Trim(Tabla)        oCommand.Parameters.Add("@Campos", SqlDbType.Char, 300).Value = Trim(Campos)        oCommand.Parameters.Add("@Condicion", SqlDbType.Char, 200).Value = Trim(Condicion)        oCommand.Parameters.Add("@Orden", SqlDbType.Char, 100).Value = Trim(Orden)        Da = New SqlClient.SqlDataAdapter(oCommand)        Conexion.Open()        Da.Fill(Ds, Tabla)        Conexion.Close()End Function 
El objeto Conexion es un SqlClient.SqlConnection, pasandole como ConnectionString la ip y el puerto del servidor, nombre de usuario, contraseña, etc.

Este es el Procedimiento Almacenado:

--- Código: Text ---set ANSI_NULLS ONset QUOTED_IDENTIFIER ONgo ALTER PROCEDURE [dbo].[PA_DevolverTablaCamposCondicionOrden]@Tabla char(50),@Campos char (300),@Condicion char (200),@Orden char (100)ASEXEC('SELECT '+@Campos+' FROM '+@Tabla+' WHERE '+@Condicion+' ORDER BY '+@Orden) 
Ya diras como te ha ido, un saludo.

Navegación

[0] Índice de Mensajes