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.