Mensajes

que le tendria que hacer un Cdate(cbb_Fecha_Compra.Text)???

el campo feche es de tipo date

Hola a todos, tengo un error en este código que no consigo solucionar, el error esta en Comando.ExecuteNonQuery() me dice:
      No coinciden los tipos de datos en la expresión de criterios.

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Comprar_Articulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Comprar_Articulo.Click
        ' compruebo que ninguno de los datos de reparacion esta vacio
        ' compra por articulo
        If grb_Datos_Articulo.Enabled = False Then
            If cbb_B_Arc_Marca_Compras.Text = "" Or cbb_B_Arc_Articulo_Compras.Text = "" Or
                cbb_Nomb_Emp_Compra.Text = "" Or cbb_Apel_Emp_Compra.Text = "" Or
                txt_Numero_de_Artículos_Compra.Text = "" Or txt_Num_Serie_Compra.Text = "" Then
                MessageBox.Show("Alguno/s de los campos esta vacio, rellenelo/s", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
        Else
            If grb_Buscar_Art_por_Marca.Enabled = False Then
                If cbb_Nombre_Empres_Compras.Text = "" Or cbb_Modelo_Compra.Text = "" Or cbb_Articulo_Compra.Text = "" Or
                cbb_Nomb_Emp_Compra.Text = "" Or cbb_Apel_Emp_Compra.Text = "" Or
                txt_Numero_de_Artículos_Compra.Text = "" Or txt_Num_Serie_Compra.Text = "" Then
                    MessageBox.Show("Alguno/s de los campos esta vacio, rellenelo/s", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If
            End If
        End If

        ' consulta para asignar el Id_Articulo eligiendo la marca
        Dim id_artic As Integer
        Dim dtadapterArticulo1 As New OleDb.OleDbDataAdapter("SELECT Id_Articulos FROM Articulos WHERE Articulos.Descripcion='" & cbb_B_Arc_Articulo_Compras.Text & "' ORDER BY Articulos.Id_Articulos", conexion_access)
        Dim dtsArticulo As New DataSet

        dtadapterArticulo1.Fill(dtsArticulo, "Articulos")
        For Each Fila As DataRow In dtsArticulo.Tables("Articulos").Rows
            id_artic = Fila("Id_Articulos")
        Next

        ' consulta para asignar el Id_empleado eligiendo el empleado
        Dim id_emp As Integer
        Dim dtadapterEmpleado As OleDbDataAdapter = New OleDbDataAdapter("SELECT Empleados.Id_Empleado FROM Empleados WHERE Empleados.Nombre='" & cbb_Nomb_Emp_Compra.Text & "' AND Empleados.Apellidos='" & cbb_Apel_Emp_Compra.Text & "'", conexion_access)
        Dim dtsEmpleado As New DataSet

        dtadapterEmpleado.Fill(dtsEmpleado, "Empleados")
        For Each Fila As DataRow In dtsEmpleado.Tables("Empleados").Rows
            id_emp = Fila("Id_Empleado")
        Next

        MsgBox("Ejecutando consulta")
        Dim CadenaSql As String = "INSERT INTO Stock (Num_Serie, Vendido, Fecha, Id_Articulo, Id_Empleado) VALUES ('" & txt_Num_Serie_Compra.Text & "', False, '" & cbb_Fecha_Compra.Text & "'," & id_artic & "," & id_emp & ")"
        Dim Comando As New OleDbCommand(CadenaSql, conexion_access)
        Comando.Connection.Open()
        Comando.ExecuteNonQuery()
   
        ' recimensionamos el tamaño de la matriz
        ReDim Preserve S_Stock(S_Stock.Length)

        ' para refrescar la tabla me tengo que crear 2 variables
        Dim ta_stock As New ArcoclimaDataSetTableAdapters.StockTableAdapter
        Dim tabla_stock As New ArcoclimaDataSet.StockDataTable

        ' refrescamos los valores de la tabla
        tabla_stock = ta_stock.GetData
        StockDataGridView.DataSource = tabla_stock

        Me.Validate()
        Me.StockBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.ArcoclimaDataSet)

        ' limpio el contenido de los TextBox que he insertado en la tabla Stock
        Limpiar_TextBox(cbb_Nombre_Empres_Compras.Text, cbb_Modelo_Compra.Text, cbb_Articulo_Compra.Text,
                        cbb_B_Arc_Marca_Compras.Text, cbb_B_Arc_Articulo_Compras.Text, cbb_Nomb_Emp_Compra.Text,
                        cbb_Apel_Emp_Compra.Text, txt_Numero_de_Artículos_Compra.Text, txt_Num_Serie_Compra.Text)

        Comando.Connection.Close()

    End Sub


Espero que me puedan ayudar

Saludos

Solucionado!!!!!

yo lo que quiero hacer el elegir un proveedor y que me ponga el id_proveedor que tiene asignado en la tabla, es algo sencillo en sql, pero al no haberlo implementado nunca en .NET no me termina de salir bien.

No sale bien, al cambiar el proveedor me deja el mismo Id_proveedor, he cambiado la consulta, porque creo que no estaba bien, esta es la consulta modificada:

Código (vbnet) [Seleccionar] Expandir


Dim consulta As New OleDbCommand("SELECT Id_Proveedor FROM  Proveedores WHERE Marca = " & cbb_Marca_Prov.Text, conexion_access)


la he cambiado porque lo que quiero mostrar el el id_proveedor donde la marca sea igual a la elegida en el ComboBox.

Saludos

Hola a todos, estoy realizando una consulta en .NET de una base de datos de Access. El codigo que he generado es el siguiente:

Código (vbnet) [Seleccionar] Expandir


Imports System.Data.OleDb

' me he creado un objeto para establecer la conexión
Public conexion_access As New OleDb.OleDbConnection

' cadena de conexión
conexion_access = New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\carlos\Escritorio\Proyecto Ingegrado Carlos Barea Grado Superior\base de datos\Arcoclima.mdb")


Ahora este es el código que me he creado con la consulta

Código (vbnet) [Seleccionar] Expandir


Private Sub cbb_Marca_Prov_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbb_Marca_Prov.SelectedIndexChanged
       Dim i, j As Integer
       Dim marca_prov, id_prov_comp As String

       For i = 0 To ProveedoresTableAdapter.GetData.Rows.Count - 1
           marca_prov = ProveedoresTableAdapter.GetData.Rows(i).Item(3)

           For j = 0 To CompraTableAdapter.GetData.Rows.Count - 1
               id_prov_comp = CompraTableAdapter.GetData.Rows(j).Item(0)

               txt_Id_Proveedor_compra.Text = id_prov_comp
               Exit For
           Next

           Dim consulta As New OleDbCommand("SELECT Compra.Id_Proveedor FROM  Proveedores", conexion_access)

           conexion_access.Open()
          [color=red] txt_Id_Proveedor_compra.Text = CType(consulta.ExecuteNonQuery(), String)[/color]
       Next
   End Sub


El error me lo da en la linea de color rojo y me dice lo siguiente:
      "No se han especificado valores para algunos de los parámetros requeridos."

Espero que me puedan ayudar a solucionar el problema

Saludos

Hola a todos, tengo una duda:

     Me gustaría saber si existe la posibilidad de parametrizar los datos de VMWare Converter para realizar lo siguiente:

           Quiero realizar una copia desde un pc de la red a mi pc, pero esto quiero hacerlo de manera automatica, que me pida los parameetros que tengo que insertar y los inserte automaticamente en el programa.

NOTA: DICHO PROGRAMA PARA REALIZAR LO INDICADO, DEBE DE GUARDAR LOS DATOS EN UN ARCHIVO "LOGS" ¿NO SE SI ESTO ES ASI?

Si necesitan preguntar algo, no duden en hacerlo.

Espero que me puedan ayudar.

Saludos

vale ya lo he conseguido.

lo que no comprendo es porque utilizando ese codigo, me inserta usuarios con el mismo dni, cuando me deberia de dar error al comprobar que el dni que introduzco ya existe en la base de datos.

Código (vbnet) [Seleccionar] Expandir


For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
                nombre = Usuarios2TableAdapter.GetData.Rows(i).Item(0)
                dni = Usuarios2TableAdapter.GetData.Rows(i).Item(1)
                edad = Usuarios2TableAdapter.GetData.Rows(i).Item(2)
                ' si el dni que quiero insertar ya esta en la tabla muestra un error
               If txt_DNI.Text = dni Then
                   MessageBox.Show("txt_dni: " & txt_DNI.Text & "DNI: " & dni)
                   MessageBox.Show("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                   Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                   Exit Sub
               Else
                   ' inserto el usuario en la base de datos
                   Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
               End If
Next


gracias por tu aportacion abel_c_b

Saludos

Bueno no es un datagrid creado por mi, es al arrastrar la tabla al formulario para que me muestre los datos que se han insertado en esa tabla lo que quiero que se me actualice.

Saludos