Gracias RootK por contestar.
Cita: Detalles de la excepción: System.Data.SqlClient.SqlException: Incorrect syntax near the keyword 'PROCEDURE'.
te pongo el código exacto:
Código:
Dim con As New SqlConnection
con.ConnectionString = ConfigurationSettings.AppSettings("constring")
Dim cmd As SqlCommand = con.CreateCommand
cmd.CommandType = CommandType.StoredProcedure
Dim da As New SqlDataAdapter
Dim nFilas As Integer
Dim fechaInicio As New DateTime(1000, 1, 1) 'Fecha base: 01/01/1000
Dim ts As TimeSpan = DateTime.Now.Subtract(fechaInicio)
Dim nDias As Integer = ts.Days
Dim i As Integer
'Lista de controles
cmd.CommandText = "SP_Controles"
cmd.Parameters.Add("@portal", portal)
da.SelectCommand = cmd
Dim dtControles As New DataTable("Controles")
Try
da.Fill(dtControles)
Catch ex As SqlException
If ex.Number = 2812 Then 'No se ha encontrado el SP
'CREAR STORE PROCEDURE SP_Controles
'############################################3
cmd.CommandType = CommandType.Text
cmd.CommandText = "CREATE PROCEDURE SP_Controles @portal nvarchar" & _
" AS" & _
" SELECT * FROM portales_controles" & _
" WHERE Panel LIKE @portal + '%'" & _
" ORDER BY Panel"
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End If
End Try
......
Gracias.