Mensajes

[kub0x]

Creo que entendi.

Ya me salio.

Efectivamente me captura el error pero debo de hacer esto por cada uno? esa es mi ultima duda.

Código (vbnet) [Seleccionar] Expandir

If txtDircPed.Text.Length > 0 Then
   comando1.Parameters.Add("@direccionDeEntrega", SqlDbType.VarChar, 100).Value = txtDircPed.Text
 End If

If mskTelPed.Text = "____-__-__" Then
Else
  comando1.Parameters.Add("@telefono", SqlDbType.VarChar, 11).Value = mskTelPed.Text
End If




Se me olvidaba muchas gracias kub0x

Hola gracias por contestar

Modifique la linea y me lanza el siquiente error

Código (vbnet) [Seleccionar] Expandir

comando1.Parameters.Add("@codigoProveedor", SqlDbType.Int).Value = Nothing



Error con si el campo esta vacio

Código (vbnet) [Seleccionar] Expandir

comando1.Parameters.Add("@codigoProveedor", SqlDbType.Int).Value = txtCodProv.Text


Error si ya esta la llave primaria


pero como hago con los campos como telefono o direccion para que me capture la excepcion del not null de la BD es parte es la que no logro comprender.

Hola como están.

Mi consulta es la siguiente

Cuando envió datos a la BD no me detecta los errores el try explico cuando no tiene código de pedido ni de proveedor si me marca los errores como la llave de ese valor ya existe  o que no estoy mandando la llave primaria eso es con los valores int.

Ahora cuando no ingreso por ejemplo la dirección debería marcarme que el campo no puede quedar nulo porque así lo declare en la BD pero no me aparece la excepción es decir lo manda vacío.

Aca una imagen  Donde los campos como direccion telefono ... deberia de capturarme una excepcion por que los declare como not null pero no se que pasa. Como pueden ver en el registro 1 y 2


De esta forma mando los datos a la BD

Código (vbnet) [Seleccionar] Expandir

Dim con = New SqlConnection(conexion)
       Try
con.Open()

           Dim comando1 As New SqlCommand("Insert into Pedido(codigoDelPedido, codigoProveedor, direccionDeEntrega," & _
                                          "telefono, tipoDePedido, prioridad, formaDePago, fechaDelPedido, horaDelPediddo," & _
                                          "fechaDeEntrega, horaDeEntrega, total, observaciones)" & _
                                          "values (@codigoDelPedido, @codigoProveedor, @direccionDeEntrega," & _
                                          "@telefono, @tipoDePedido, @prioridad, @formaDePago, @fechaDelPedido, @horaDelPediddo," & _
                                          "@fechaDeEntrega, @horaDeEntrega, @total, @observaciones)", con)

           'Datos de la tabla proveedores
           comando1.Parameters.Add("@codigoDelPedido", SqlDbType.Int).Value = txtCodPedido.Text
           comando1.Parameters.Add("@codigoProveedor", SqlDbType.Int).Value = txtCodProv.Text
           comando1.Parameters.Add("@direccionDeEntrega", SqlDbType.VarChar, 100).Value = txtDircPed.Text
           comando1.Parameters.Add("@telefono", SqlDbType.VarChar, 11).Value = mskTelPed.Text
           comando1.Parameters.Add("@tipoDePedido", SqlDbType.VarChar, 15).Value = cmbTipoPedi.Text
           comando1.Parameters.Add("@prioridad", SqlDbType.VarChar, 15).Value = cmbPrioriPedi.Text
           comando1.Parameters.Add("@formaDePago", SqlDbType.VarChar, 20).Value = cmbFormPagoPedi.Text
           comando1.Parameters.Add("@fechaDelPedido", SqlDbType.Date).Value = dtpFechaPedido.Value
           comando1.Parameters.Add("@horaDelPediddo", SqlDbType.DateTime).Value = tpHoraPedido.Value
           comando1.Parameters.Add("@fechaDeEntrega", SqlDbType.Date).Value = dtpFechaEntregaPedido.Value
           comando1.Parameters.Add("@horaDeEntrega", SqlDbType.DateTime).Value = tpHoraPedido.Value
           comando1.Parameters.Add("@total", SqlDbType.Decimal).Value = txtTotalPedido.Text
           comando1.Parameters.Add("@observaciones", SqlDbType.VarChar, 100).Value = txtObservacionesPedidos.Text
'Ejecuta la instruccion comando1
           comando1.ExecuteNonQuery()
           'Cierra la conexion
           con.Close()

           'Mensaje datos guardados con exito
           RadMessageBox.Show(Me, "Los datos se registraron correctamente", "Mensaje",
                                  MessageBoxButtons.OK, RadMessageIcon.Info)

       Catch ex As Exception : RadMessageBox.Show(ex.Message) 'captura el error original del sistema
           'RadMessageBox.Show("Verifique sus datos o que el codigo no exista")
       End Try

Esta es mi tabla en la BD

Código (sql) [Seleccionar] Expandir

Create table Pedido
(
codigoDelPedido int primary key,
codigoProveedor int not null,
direccionDeEntrega varchar (100) not null,
telefono varchar (11) not null,
tipoDePedido varchar (15) not null,
prioridad varchar(15) not null,
formaDePago varchar(20) not null,
fechaDelPedido date not null,
horaDelPediddo time not null,
fechaDeEntrega date not null,
horaDeEntrega time,
total decimal (7,2) not null,
observaciones varchar(100)
)


Espero puedan ayudarme saludos.

[Eleкtro]

Muchas gracias Eleкtro

Lo probé de las dos formas y funciona perfecto. Lo entendí todo lo único que investigare es el .trim

Gracias por lo de las llaves, y agregar condiciones a ellas como llaves. (Valga la redundancia)

Saludos  

Código (vbnet) [Seleccionar] Expandir

Dim lvItem1 As New ListViewDataItem()
       lvItem1.Key = txtArticulosPedidos.Text.ToLower


       If Me.lvListaPedidos.FindItemByKey(key:=txtArticulosPedidos.Text.ToLower, searchVisibleItems:=False) IsNot Nothing Then
           RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
       Else
           Me.lvListaPedidos.Items.Add(lvItem1)
           lvItem1.Item(0) = txtArticulosPedidos.Text
           lvItem1.Item(1) = rseCantidadPedido.Text
       End If

Veo que quito este, lo dejo por si a alquien le sirve de esta forma lo entendi. : ). ahora vere el que modifico

Código (vbnet) [Seleccionar] Expandir

Dim key As String = txtArticulosPedidos.Text.Trim

       If Me.lvListaPedidos.FindItemByKey(key:=key.ToLower, searchVisibleItems:=True) IsNot Nothing Then
           RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
       Else
           Dim lvItem1 As New ListViewDataItem
           lvItem1.Key = key.ToLower
           Me.lvListaPedidos.Items.Add(lvItem1)
           lvItem1.Item(0) = key
           lvItem1.Item(1) = rseCantidadPedido.Text
       End If

Falto ) despues de }

Código (vbnet) [Seleccionar] Expandir

Dim lvItem As New ListViewDataItem(text:="", values:={articulo, cantidad} with

Código (vbnet) [Seleccionar] Expandir

'Dim cantidad As String = Convert.ToInt32(rseCantidadPedido.Text).ToString("00")

Gracias le da un mejor formato a la cantidad vere si no me causa problema en la BD ya que si no me equivoco lo manda como string.



Muchas gracias de nuevo Eleкtro

Antes de nada, cuando formules una pregunta de este tipo asegúrate de aclarar que estás utilizando los componentes de Telerik, que no todo el mundo los conoce y eso puede confundir a los demás.

Lo tendre muy en cuenta.
==============================

Hola estaba probando lo de case sensitive pero todavía no me detecta si la palabra esta en mayus o no.

que estoy haciendo mal.

Código (vbnet) [Seleccionar] Expandir

Dim lvItem1 As New ListViewDataItem()
       lvItem1.Key = txtArticulosPedidos.Text

       If Me.lvListaPedidos.FindItemByKey(key:=txtArticulosPedidos.Text, searchVisibleItems:=True) IsNot Nothing Then
           RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
       Else

           Me.lvListaPedidos.Items.Add(lvItem1)
           lvItem1.Item(0) = txtArticulosPedidos.Text
           lvItem1.Item(1) = rseCantidadPedido.Text
       End If

Saludos Gracias.

Hola gracias por responder ya lo logre si hay otra forma mas eficiente se los agradeceria

Código (vbnet) [Seleccionar] Expandir

Private Sub RadButton4_Click(sender As System.Object, e As System.EventArgs) Handles btnAgregarBoton.Click
        'Verifica que el dato ingresado no exista
        Dim existe As Boolean = False

        For Each lvItem1 In lvListaPedidos.Items 'Recorre el listview
            If lvItem1.Item(0) = txtArticulosPedidos.Text Then 'Compara la columna (subitem de la columna)
                existe = True 'Si lo que hay en listview es igual a lo que hay en el artículo ya existe
                Exit For
            End If
        Next

        'Si es verdadero se muestra este mensaje
        If existe Then
            MessageBox.Show("el item ya existe")
            Return
        End If

        'Si los campos están vacíos no ingresa datos
        If txtArticulosPedidos.Text = "" Or rseCantidadPedido.Text = "0" Then
            RadMessageBox.Show(Me, "No ha seleccionado datos", "Información", MessageBoxButtons.OK, RadMessageIcon.Info)

        Else
            Dim lvItem1 As New ListViewDataItem() 'Variable para los items
            'Agrega a cada columna valores
            Me.lvListaPedidos.Items.Add(lvItem1)
            lvItem1.Item(0) = txtArticulosPedidos.Text
            lvItem1.Item(1) = rseCantidadPedido.Text
        End If

    End Sub

Saludos!

Hola como estan.

Mi consulta es la siquiente tengo un listview y no puedo lograr que no me ingrese datos repetidos



Este es mi codigo. de como ingreso los datos. He probado muchas cosas solo pongo el codigo limpio de como ingreso datos para que me den una idea de como hacer para que no me repita datos.

Código (vbnet) [Seleccionar] Expandir

Private Sub RadButton4_Click(sender As System.Object, e As System.EventArgs) Handles RadButton4.Click
       If txtArticulosPedidos.Text = "" Or rseCantidadPedido.Text = "0" Then
           RadMessageBox.Show(Me, "No ha seleccionado datos", "Información", MessageBoxButtons.OK, RadMessageIcon.Info)

       Else
           Dim lvItem1 As New ListViewDataItem() 'Variable para los items
           'Agrega a cada columna valores
           Me.lvListaPedidos.Items.Add(lvItem1)
           lvItem1.Item(0) = txtArticulosPedidos.Text
           lvItem1.Item(1) = rseCantidadPedido.Text
       End If

   End Sub

Saludos.

Gran ejemplo para alquien que esta aprendiendo y no sabe como trabajar con clases  me recordastes varias cosas.

Gracias Saludos.

Con resgistra me imagino que te refieres a guardar la hora, puedes sacer el texto y mandarlo a la BD,

O puedes hacer un insert con la hora.

Código (java) [Seleccionar] Expandir

PreparedStatement inserter =conn.prepareStatement("INSERT INTO nombreTabla (hora) VALUES(?);"); //Si sabes hacer un insert sabras que va en value

inserter.setString(1,s); // donde s es un string donde se guarda la hora
//en formato: "hh:mm:ss"

Código (java) [Seleccionar] Expandir


////////////////////////////////////////////////////////////////////////////////
//Tambien puedes guardar la fecha en una variable y mandarla a la BD

import java.text.SimpleDateFormat;

java.util.Date date = new java.util.Date();
java.text.SimpleDateFormat sdf=new java.text.SimpleDateFormat("yyyy-MM-dd");
String fecha = sdf.format(date);

Usted puede ser mas espesifico en su pregunta.

Espero te sirva saludos.

PD: tambien podria espesificar con que tipo de controles esta trabajando ...

Muchas Gracias  

Ya resolví el problema

Explico

1. No tenías las DLL en mi proyecto (en las carpetas que me remarcaste)
2. Cuando me daba error(en la otra PC) lo que hacía es copiar las DLL en la otra PC ósea copiar las en debug y relase de la otra máquina, no en la mía y ahi el error.
3. En mi PC elimine una por una y referencie una por una las DLL que me indicaba luego lo reconstruí lo pase al otro PC y funciono.

El problema es que yo pasaba las DLL al otro PC y desde ahí lo reconstruía pensando que ahí era el error en el otro pc pero no era así era en el mío.





Muchas gracias de nuevo te agradezco el tiempo al principio no te entendía pero fui entendiendo poco a poco y probando.

Saludos.