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.

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

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

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

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

hola a todos, estoy realizando una aplicación en la cual quiero insertar registros en la base de datos, insertarlo me lo inserta bien, pero el iconveniente esta en que al lado de los textbox de insertar tengo un DataGrid en el cual tengo la tabla y no me muestra el registro que he insertado al pulsar el botón de insertar.

que tengo que hacer para actualizar la tabla???

aqui os dejo el codigo que he realizado:

Private Sub btn_Insertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Insertar.Click
        Dim nombre, dni As String
        Dim edad As Double
 
        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("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                Exit Sub
            Else
                ' en caso contrario lo inserta
                Try
                    Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
                    Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                    Exit Try
                Catch ex As Exception
 
                End Try
 
                MessageBox.Show("Usuario insertado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                Exit For
            End If
        Next
 
        Me.Validate()
        Me.Usuarios2BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Bd_pruebaDataSet1)
 
    End Sub
 

Espero que me puedan ayudar,

Saludos

hola se que una pregunta muy tonta la que estoy haciendo, pero esque llevo ya un rato realizando unas aplicaciones en .NET y ahora me he quedado en blanco con esta cuestion, el codigo que yo he realizado es el siguiente:

        For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
            MessageBox.Show("e_media: " & e_media & " edad: " & Usuarios2TableAdapter.GetData.Rows(i).Item(2))
            ed = Usuarios2TableAdapter.GetData.Rows(i).Item(2)
            e_media = (e_media + ed) / num_alum
        Next
 

espero que me ayuden con esta tonta cuestion.

Saludos

hola tengo un pequeño problemilla el cual al recorren una base de datos que ya tengo creada solo me accede al primer registro.

les pongo el codigo haber si encuentran algo mal y me pueden ayudar.

Private Sub btn_Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Buscar.Click
        Dim nombre, dni As String
        Dim edad As Integer
 
        For i = 0 To UsuTableAdapter.GetData.Rows.Count - 1
            nombre = UsuTableAdapter.GetData.Rows(i).Item(0)
            dni = UsuTableAdapter.GetData.Rows(i).Item(1)
            edad = UsuTableAdapter.GetData.Rows(i).Item(2)
            If dni <> txt_DNI_Buscar.Text Then
                fila = i
                MessageBox.Show("DNI encontrado: " & UsuTableAdapter.GetData.Rows(i).Item(1), "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
                lbl_DNI_Encontrado.ForeColor = Color.Green
 
                lbl_Nombre.Text = nombre
                lbl_DNI.Text = dni
                lbl_Nombre.Text = edad
                Exit Sub
            Else
                fila = i
                MessageBox.Show("ERROR")
                'Exit Sub
            End If
        Next
    End Sub
 

saludos

hola a todos me gustaría que me ayudasen a resolver el siguiente script:

Se pide construir un script que pida al usuario una ip me devuelva el sitio web al que apunta y el puerto por el que se conecta. Por Ej: Si el usuario introduce la ip 10.0.0.10, el script debe devolver: www.sitio3.com 8080.
En caso de que la ip dada no exista deberá devolver el mensaje: “IP NO REGISTRADA.”

los ficheros son los siguientes:

ips.txt
--------
192.168.0.10 www.sitio01.net
172.26.0.10 www.sitio2.org
10.0.0.10 www.sitio3.com
192.168.10.5 www.sitio4.es

puertos.txt
----------
www.sitio01.net 80
www.sitio2.org 8008
www.sitio3.com 8080
www.sitio4.es 8000

el script que yo he realizado es el siguiente:

#!/bin/bash
 
echo "elegimos la ip de la que queremos saber el puerto: "
cat ./ips.txt
echo ""
 
echo "Introduce una IP para saber su puerto: "
read ip
echo "IP: "$ip
 
buscar_ip=$(cat ./ips.txt | grep -n '^'$ip'$' | cut -d " " -f 1)
 
puerto=$(head -$buscar_ip puertos.txt | tail -1)
echo "puerto: "$puerto
 

Se que no es un script complicado, pero no consigo resolverlo

Saludos

Hola a todos, quiero realizar un Script para que me haga el particionado de mi unidad de disco /dev/sdb, quiero hacer:

      - comprobar que esta vaco, en caso de que no este vacío, lo eliminare todo.
      - cuando este limpio /dev/sdb tengo que hacer 2 particiones:
              * sdb1 del 60 % sistema de archivos ext3.
              * sdb2 del 40 % sistema de archivos fat32.
      - una vez creadas las debo chequear.
      - configuración del sistema para el uso de las particiones:
              * sdb1 se montara en /media/hdext3, dolo la podrá montar root y no debe montarse al iniciar el sistema.
              * sdb2 se montara en /media/hdfat32, la podrá montar cualquier usuario, pero no permitirá ejecutar programas, se montara automáticamente al iniciar el sistema y tendrá programado un chequeo.
      - la información se deberá ir mostrando por pantalla.

#!/bin/bash
 
num=$(ls /dev/ | grep -c '^sdb')
echo "Num: "$num
 
# si num es igual a 1 es que no existen particiones en la unidad /dev/sdb
if [ $num = 1 ]
then
        echo "El directorio /dev/sdb esta vacío."
else
        # si num es mayor a 1 quiere decir que tiene mas de 1 partición
        echo "Existen particiones en /dev/sdb "
fi
 
# me gustaría que me ayudaran a finalizarlo, ya que no esto muy puesto en esto de las particiones.
# creo que para particionar en un script se realiza:
#      parted /dev/sdb mkpart primary ext3 0G 3G
 

Espero que me puedan ayudar

saludos

Hola a todos

tengo una pequeña duda que creo que no es muy complicada de resolver. me gustaría saber cual es el método que tengo que utilizar para elegir de una cadena que me lea un numero de caracteres concreto, por ejemplo;

mis ordenadores

y me devuelva 8 caracteres:

is orden

saludos

hola a todos,  me he instalado una maquina virtual de debian "sin entorno gráfico", a la cual le quiero indicar que para instalar los diferentes paquetes los coja de internet, ya que ahora los coge del CD-ROM, creo que para cambiar esto hay que hacerlo en:
     /etc/apt/sources.list
en la que le he añadido las siguientes lineas de código:
     deb http://ftp.de.debian.org/debian/  testing main contrib non-free
     deb-src http://ftp.de.debian.org/debian/  testing main contrib non-free

estas creo que no son pero también las he probado:
     deb http://ftp.us.debian.org/debian/  stable main contrib non-free
     deb-src http://ftp.us.debian.org/debian/  stable main contrib non-free
-------
     deb http://ftp.de.debian.org/debian/  sarge main contrib non-free
     deb-src http://ftp.de.debian.org/debian/  sarge main contrib non-free

la versión de debian que he instalado es:
     debian testing 32 bits

espero que me puedan ayudar!!!!

Saludos