Duda sobre DropDownList y consulta Sql

[isch]

Hola a todos, escribo aqui para solicitar su valiosa ayuda en este foro, Lo que sucede es que soy nuevo en esto del desarrollo web en .Net y puesto que apenas estoy comenzano me surgen muchas dudas, que incluso yo mismo conisdero absurdas, pero creo que la mayoria asi comienza. Muchas de las respuestas las encuentro en internet pero otras es mas complicado. Pero bueno mi duda es la siguiente ya no quiero hacerla mas larga jaja:

Quisiera saber si para ejecutar esta consulta es suficiente con el siguiente codigo ya que no hace la insercion en la BD, que es lo que me hace falta ??

Dim ScmdA = "INSERT INTO Empleados VALUES ('++','+nombre+','+direccion+','+telefono+','+valu eDDl+');"

cmd = New SqlDataAdapter(ScmdA, conx)

Segun yo, lo que me faltaba era un cmd.Fill("Empleados"), pero me manda un error:

"Error de sintaxis al convertir el valor varchar '+valueDDl+' para una columna de tipo de datos int "

En todo caso les pongo el codigo completo en abajo para que lo entiendan mejor.

Y me gustaria saber que parametro debo utilizar dentro del DropDownList (en este caso DDlTipo) para asignar una opcion antes de los resultados que arroja la consulta SELECT que lo llenara, ya saben, el clasico "Seleccione una opcion..."

Este es el codigo completo, les agradeceria que me comentaran tambien otros posibles errores y algo sobre el estilo de programacion:

Dim ds As DataSet
Dim conx As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("c onx"))
Dim cmd As SqlDataAdapter

Dim nombre As String
Dim apellido As String
Dim telefono As String
Dim Scmd As String
Dim valueDDl As Integer

ds = New DataSet

Scmd = "SELECT PuestoID, Nombre FROM Puestos"
cmd = New SqlDataAdapter(Scmd, conx)
cmd.Fill(ds, "Puestos")

DDlTipo.DataSource = ds.Tables("Puestos").DefaultView
DDlTipo.DataTextField = "Nombre"
DDlTipo.DataValueField = "PuestoID"
DDlTipo.DataBind()

If TBxNombre.Text <> "" And TBxApellido.Text <> "" And TBxTel.Text <> "" And DDlTipo.DataTextField <> "" Then

nombre = TBxNombre.Text
apellido = TBxApellido.Text
telefono = TBxTel.Text
valueDDl = DDlTipo.SelectedValue

Dim ScmdA = "INSERT INTO Empleados VALUES('+ +','+nombre+','+direccion+','+telefono+','+valueDD l+');"
cmd = New SqlDataAdapter(ScmdA, conx)

cmd.Fill(ds, "Empleados")

End If


SALUDOS A TODOS !!!

Les agradezco su valiosa ayuda y tiempo, de antemano.

[RootK]

hola y bienvenido... , antes que nada hay que estructura el code que tienes, vamos por parte.. primero puedes tener un método que se encargue de llenar tu DDL

ejemplo.

Código:

Private Sub BindDropDown ()
Dim ds As DataSet
Dim conx As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("c onx"))
Dim cmd As SqlDataAdapter
ds = New DataSet
Scmd = "SELECT PuestoID, Nombre FROM Puestos"
cmd = New SqlDataAdapter(Scmd, conx)
cmd.Fill(ds, "Puestos")

DDlTipo.DataSource = ds.Tables("Puestos").DefaultView
DDlTipo.DataTextField = "Nombre"
DDlTipo.DataValueField = "PuestoID"
DDlTipo.DataBind()

End Sub

y ese lo mandas a llenar en el page load e tu pagina.. ejemplo>

Código:

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            If Not IsPostBack Then
                 BindDropDown ()
            End If

        End Sub

Y me gustaria saber que parametro debo utilizar dentro del DropDownList (en este caso DDlTipo) para asignar una opcion antes de los resultados que arroja la consulta

Código:

....
DDlTipo.DataSource = ds.Tables("Puestos").DefaultView
DDlTipo.DataTextField = "Nombre"
DDlTipo.DataValueField = "PuestoID"
DDlTipo.DataBind()
DDlTipo.Items.Insert(0, New ListItem(" [Seleccione Uno]", "-1"))

ya despues tu debes tener un boton para que se haga la insercion donde te puede quedar de la siguiente forma:

Código:

....

If TBxNombre.Text <> "" And TBxApellido.Text <> "" And TBxTel.Text <> "" And  DDlTipo.SelectedValue<> ="-1"Then
nombre = TBxNombre.Text
apellido = TBxApellido.Text
telefono = TBxTel.Text
valueDDl = DDlTipo.SelectedValue

Dim sSQL As String = String.Format("INSERT INTO Empleados VALUES('{0}','{1}','{2}',{3}", nombre, direccion, telefono, valueDDl)
Dim conx As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("conx"))
dim oCmd as New SqlClient.SqlCommand(sSQL ,conx )

conx.Open
ocmd.ExecuteNonQuery()
conx.Close()

y listo, esa es la forma simple de hacerlo, ahora que hay otros métodos para hacer inserciones mediante Stored Procedures(SP´s), si se manda la cadena directamente en code (como tu ejemplo) hacerlo mediante parámetros, etc..etc.. hay todavía muchas cosas por ver, te recomiendo que busques informacion de ADO.Net para que conozcas su estructura.

Salu2 y cualquier cosa por aqui andamos.

[isch]

Hola, pues muchas gracias por la bienvenida, me da gusto poder contar con gente especializada dispuesta a ayudar gente ignorante como yo jajajajaja. Bueno la cuestion es esta, aproveche algunas de las recomendaciones que me sugeriste, pero ahora me manda un error que por mas que trato de solucionar, no he podido. No se realmente a que se deba, espero me puedan ayudar de nuevo, estoy seguro que es una tonteria, ojala asi sea.

El error que ahora manda es: "sintaxis incorrecta cerca de '1'.
"

Código PHP:

  Imports System.Data 
Imports System.Data.SqlClient 
 
Public Class AgregarEmp 
    Inherits System.Web.UI.Page 
 
    Dim nombre As String 
    Dim apellido As String 
    Dim telefono As String 
    Dim Scmd As String 
    Dim valueDDl As String 
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
         
        Label6.Visible = False 
        Button2.Visible = False 
 
        Dim ds As DataSet 
        Dim conx As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("conx")) 
        Dim cmd As SqlDataAdapter 
 
 
        ds = New DataSet 
 
        Scmd = "SELECT PuestoID, Nombre FROM Puestos" 
        cmd = New SqlDataAdapter(Scmd, conx) 
        cmd.Fill(ds, "Puestos") 
 
        DDlTipo.DataSource = ds.Tables("Puestos").DefaultView 
        DDlTipo.DataTextField = "Nombre" 
        DDlTipo.DataValueField = "PuestoID" 
        DDlTipo.DataBind() 
        DDlTipo.Items.Insert(0, New ListItem("Elija una opcion...", "-1")) 
 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        Response.Redirect("index.aspx") 
    End Sub 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 
        If TBxNombre.Text <> "" And TBxApellido.Text <> "" And TBxTel.Text <> "" And DDlTipo.DataTextField <> "-1" Then 
 
            Dim conx As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("conx")) 
 
            Label6.Visible = True 
            Button1.Enabled = False 
            Button2.Visible = True 
 
            Dim Icmd As SqlCommand 
 
            nombre = TBxNombre.Text 
            apellido = TBxApellido.Text 
            telefono = TBxTel.Text 
            valueDDl = DDlTipo.SelectedValue 
 
            Dim ScmdA As String 
 
            ScmdA = String.Format("INSERT INTO Empleados VALUES('{0}','{1}','{2}',{3}", nombre, apellido, telefono, valueDDl) 
            Icmd = New SqlCommand(ScmdA, conx) 
 
            conx.Open() 
            Icmd.ExecuteNonQuery() 
            conx.Close() 
 
        End If 
 
    End Sub 
End Class  
   

Bueno eso es todo por el momento.

SALUDOS A TODOS !!!

Les agradezco su valiosa ayuda y tiempo, de antemano.