Asp .net + store procedure (sql server 2000)

[xylvyna]

Hola a todos, tengo para hacer una consulta.

Logré hacer un SP con una cláusula de Select. Lo pego a continuación:

CREATE PROCEDURE [dbo].[CargarGrillaZona]
@cd_zona int

AS

BEGIN

SELECT
Planes.cd_central AS Codigo_Central,
Penetracion.tx_central AS Nombre_Central,
Competidores.tx_competidor AS Nombre_Competidor,
Productos.tx_producto AS Nombre_Producto,
Planes.tx_plan AS Velocidad,
Planes.[full price] AS Full_Price,
Planes.[costo instalacion] AS Costo_Instalacion,
Planes.promo AS Promo,
Planes.observacion AS Observacion,
Planes.area_cobertura AS Area_Cobertura,
Planes.fecha_actualiz AS Fecha_Actualiz,
Planes.validacion AS Campo_Validado
FROM Planes, Penetracion, Competidores, Productos
WHERE
Penetracion.cd_zona = @cd_zona
and Penetracion.cd_central = Planes.cd_central
and Planes.cd_competidor = Competidores.cd_competidor
and Planes.cd_producto = Productos.cd_producto
ORDER BY Planes.cd_central
END
GO

Mi problema en el código. Estoy con ASP.NET y VB.NET. Lo pego a continuación. El error que me tira está en la línea del Da.Fill(Ds, "Planes") .
¿Algún piadoso que me de una mano?

With conexion
.ConnectionString = System.Configuration.ConfigurationManager.AppSetti ngs("conn") --> lo tengo en el web config
.Open()
End With

Dim cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "CargarGrillaZona"
cmd.Connection = conexion

Dim miParam As New SqlParameter("@cd_zona", SqlDbType.Int)
miParam.Direction = ParameterDirection.Input
cmd.Parameters.Add(miParam)
cmd.Parameters("@cd_zona").Value = ddlZona.SelectedItem.ToString

Dim Da As New SqlDataAdapter
Da.SelectCommand = cmd
Da.Fill(Ds, "Planes")

grdCompetidores.DataSource = Ds
grdCompetidores.DataBind()

[Bravenap]

Hola xylvyna. No veo que tengas definido el DataSet Ds. En cualquier caso, puedes no recurrir a una DataSet y rellenar directamente una tabla DataTable:

Código:

Dim Da As New SqlDataAdapter
Dim Dt As DataTable
Da.SelectCommand = cmd
Da.Fill(Dt)

grdCompetidores.DataSource = Dt
grdCompetidores.DataBind()

A ver si así te marcha.
Un saludo.

[xylvyna]

Hola Bravenap, como estas? Muchas gracias por contestar.

Te cuento, pegué el código tal cual me lo sugeriste y me tiró este error:

El valor no puede ser nulo. Nombre del parámetro: dataTable.

Te cuento, antes de ejecutar la página en cuestión, me tira un error en esta línea:
Da.Fill(Dt)

que me dice:Variable 'Dt' is used before it has been assigned a value. A null reference exception could result at runtime.

¿Alguna sugerencia? Muchas gracias!!!

[gigamaxter]

xylvyna: No tienes que complicarte tanto, usa este codigo que es mas facil.

Dim sqlConn As SqlConnection = New SqlConnection(System.Configuration.ConfigurationMa nager.AppSetti ngs("conn") )
Dim sqlCmd As New SqlCommand("CargarGrillaZona", sqlConn)
sqlCmd.Parameters.Add("@cd_zona", SqlDbType.Int).Value = ddlZona.SelectedItem.ToString
Dim sqlDa As New SqlDataAdapter(sqlCmd)
Dim Dt As New DataTable
sqlDa.Fill(Dt)

Bendiciones.

[Bravenap]

Ups, es verdad, el detalle que se me escapó:

Dim Dt As New DataTable

La opción de gigamaxter también es buena y ahorras líneas.

Un saludo.

[xylvyna]

GRACIAS CHICOS!!!! Ahora voy a probar sus dos opciones, y les digo!! Muchas gracias de nuevooo!!!