| Bueno ya resolvi ese datallito le pongo
MyCommand.Parameters.Add(New SqlParameter("@Estado", SqlDbType.NChar, 40))
MyCommand.Parameters("@Estado").Value = DropDownList1.SelectedItem.Value
y listo
pe aun me genera error en la insercion y no se porque
abajo les pongo mi godigo de insercion a ver si alguno le le ve el error y muchas gracias
Sub buttonAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Message.InnerHtml = ""
If (Page.IsValid)
Dim DS As DataSet
Dim MyCommand As SqlCommand
Dim InsertCmd As String = "insert into Agencia (CodigoID, Agencia, Direccion, Codigo_Area, Telefono,Fax, Horario, Estado, Ciudad, Ubicacion, Estacionamiento, Cajero_Automatico, Autobanco, Taquilla_Externa) values (@CodigoID, @Agencia, @Direccion, @Codigo_Area, @Telefono, @Fax, @Horario, @Estado, @Ciudad, @Ubicacion, @Estacionamiento, @Cajero_Automatico, @Autobanco, @Taquilla_Externa)"
MyCommand = New SqlCommand(InsertCmd, MyConnection)
MyCommand.Parameters.Add(New SqlParameter("@CodigoID", SqlDbType.NVarChar, 11))
MyCommand.Parameters("@CodigoID").Value = textBoxCodigoID.Text
MyCommand.Parameters.Add(New SqlParameter("@Agencia", SqlDbType.NVarChar, 40))
MyCommand.Parameters("@Agencia").Value = textBoxAgencia.Text
MyCommand.Parameters.Add(New SqlParameter("@Direccion", SqlDbType.NVarChar, 40))
MyCommand.Parameters("@Direccion").Value = textBoxDireccion.Text
MyCommand.Parameters.Add(New SqlParameter("@Codigo_Area", SqlDbType.NChar, 12))
MyCommand.Parameters("@Codigo_Area").Value = textBoxCodigoArea.Text
MyCommand.Parameters.Add(New SqlParameter("@Telefono", SqlDbType.NVarChar, 40))
MyCommand.Parameters("@Telefono").Value = textBoxTelefono.Text
MyCommand.Parameters.Add(New SqlParameter("@Fax", SqlDbType.NVarChar, 40))
MyCommand.Parameters("@Fax").Value = textBoxFax.Text
MyCommand.Parameters.Add(New SqlParameter("@Horario", SqlDbType.NChar, 40))
MyCommand.Parameters("@Horario").Value = textBoxHorario.Text
MyCommand.Parameters.Add(New SqlParameter("@Estado", SqlDbType.NChar, 40))
MyCommand.Parameters("@Estado").Value = DropDownList1.SelectedItem.Value
MyCommand.Parameters.Add(New SqlParameter("@Ciudad", SqlDbType.NChar,40))
MyCommand.Parameters("@Ciudad").Value = DropDownList2.SelectedItem.Value
MyCommand.Parameters.Add(New SqlParameter("@Ubicacion", SqlDbType.NChar,40))
MyCommand.Parameters("@Ubicacion").Value = DropDownList3.SelectedItem.Value
MyCommand.Parameters.Add(New SqlParameter("@Estacionamiento", SqlDbType.NChar,40))
MyCommand.Parameters("@Estacionamiento").Value = textBoxEstacio.Text
MyCommand.Parameters.Add(New SqlParameter("@Cajero_Automatico", SqlDbType.NChar,40))
MyCommand.Parameters("@Cajero_Automatico").Value = textBoxCajero.Text
MyCommand.Parameters.Add(New SqlParameter("@Autobanco", SqlDbType.NChar,40))
MyCommand.Parameters("@Autobanco").Value = textBoxAutobanco.Text
MyCommand.Parameters.Add(New SqlParameter("@Taquilla_Externa", SqlDbType.NChar,40))
MyCommand.Parameters("@Taquilla_Externa").Value = textBoxTaquilla.Text
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.InnerHtml = "<b>Record Added</b><br>" & InsertCmd.ToString()
Catch Exp As SQLException
If Exp.Number = 2627
Message.InnerHtml = "ERROR: A record already exists with the same primary key"
Else
Message.InnerHtml = "ERROR: Could not add record, please ensure the fields are correctly filled out"
End If
Message.Style("color") = "red"
End Try
MyCommand.Connection.Close()
End If
BindGrid()
End Sub |