Hola a todos

Tengo un router de telefónica, el cual es el xavi 7968 y me gustaría cambiarle la configuración para que funciona como punto de acceso. He buscado muchos manuales, pero me dicen que elimine las conexiones WAN, las cuales no las encuentro en este router.

Me pueden ayudar diciéndome alguna página en la cual pueda encontrar estos pasos o facilitándome alguno de vosotros lo que tendría que cambiar en mi router.

Saludos y gracias

---

Ahhh algo que se me ha olvidado especificar.

A dicho router "que quiero que actúe de Punto de Acceso" Internet conecta a el por un RJ-45, es decir, por cable.

[MOD] Por favor no hagas doble post, edita.

   Hola a todos, tengo un Samsung Galaxy Mini y el problema que tengo es el siguiente:

   Quiero que mi dispositivo móvil se conecte a mi red Wifi, pero no me conecta. Me gustaría saber como puedo introducirle la IP de manera manual, tiene Sistema Operativo Android 2.3.6.

   El mismo problema tengo con otro dispositivo Blackberry 9300. También me gustaría saber como le puedo configurar las IP de manera manual.

   Espero que me puedan ayudar.

Saludos y gracias.

Hola a todos, estoy intentando instalar Windows XP en un portátil HP Pavilion dv6 Notebook 3060 pero me falla la instalación (pantallazo azul), he estado ojeando por Internet y he leido que es porque necesita el driver del disco duro, pero no se de que manera tendría que hacerlo.

Me podrían ayudar!!!

Saludos

Hola a todos, me gustaría saber si me pueden ayudar, es que me ha caducado el usuario y contraseña del antivirus Nod32, me podrían dar las actuales y alguna página de la cual las pueda sacar.

Yo obtenía el usuario y contraseña de la pagina www.nnvv.org pero al intentar entrar me salta en antivirus y no me deja entrar, alguien me podría decir como puedo hacer para poder entrar en esa página y así no tener problemas para la obtención de los nuevos usuarios y contraseñas.

Saludos

Hola a todos, quiero borrar un registro de la base de datos, pero me da un error en el ExecuteNomQuery y dice: "No se han especificado valores para algunos de los parámetros requeridos.", os pongo el código que he realizado haber si me pueden ayudar.

Private Sub btn_Borrar_Modelo_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Borrar_Modelo_Borrar.Click
        Dim id_marc As Integer
 
        ' consulta para asignar el Id_Marca 
        Dim dtadapterMarca As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT Id_Marca FROM Marcas WHERE Marcas.Marca='" & cbb_Marca_Marcas_Borrar.Text & "'", conexion_access)
        Dim dtsMarca As New DataSet
        dtadapterMarca.Fill(dtsMarca, "Marcas")
        For Each Fila As DataRow In dtsMarca.Tables("Marcas").Rows
            id_marc = Fila("Id_Marca")
        Next
        ' los MsgBox los coloco para ver que me guarda en cada variable
        MsgBox("id_marca: " & id_marc)
        MsgBox("Marca: " & cbb_Marca_Marcas_Borrar.Text)
        MsgBox("modelo: " & cbb_Modelo_Marcas_Borrar.Text)
 
        Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Modelos.Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & id_marc & "", conexion_access)
        ' abro la conexion
        dtadapterModelo.Connection.Open()
        dtadapterModelo.ExecuteNonQuery()
        MessageBox.Show("El modelo se ha borrado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Limpiar_TextBox(cbb_Marca_Marcas_Borrar.Text, cbb_Modelo_Marcas_Borrar.Text)
 
        'cierro la conexion
        dtadapterModelo.Connection.Close()
    End Sub
 

Espero que me puedan ayudar,

Saludos

Hola a todos, estoy realizando un DELETE en sql pero me da error, la consulta es:

Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & cbb_Modelo_Marcas_Borrar.Text, conexion_access)
 

cbb_Marca_Marcas_Borrar.Text  es texto
cbb_Modelo_Marcas_Borrar.Text es numero

y en el error me dice: "No se han especificado valores para algunos de los parámetros requeridos"

Tablas

Marcas                                   Modelos
Id_Marca                                Id_Modelo
Marca                                     Descripcion
                                              Id_Marca


Saludos

hola a todos, me gustaría saber si el posible mostrar un fichero ".doc, .pdf, ..." es decir, no texto plano en un RichTextBox??

o tendría que abrirlo?? si es esto lo que tendría que hacer, que pasos tendría que seguir?

Saludos

Hola a todos, quiero realizar una actualización a un registro que elijo de una base de datos, pero no me lo actualiza bien, me gustaría saber en que parte del código me he equivocado.

os dejo el código

    Private Sub btn_Buscar_Cliente_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Buscar_Cliente_Modificar.Click
        Dim id_cl As Integer
        Dim Nombre_cl, Apellidos_cl, DNI_cl, Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl As String
        Dim i As Integer
        Dim DNI_Buscar As String
 
        ' pido por pantalla que introduzca el DNI del cliente que queremos buscar
        DNI_Buscar = InputBox("Introduce el DNI del cliente a buscar", "Cliente a buscar")
 
        ' almaceno el valor del DNI en un TextBox oculto
        txt_DNI_Cli_Modificar_Oculto.Text = DNI_Buscar
 
        For i = 0 To ClientesTableAdapter.GetData.Rows.Count - 1
            id_cl = ClientesTableAdapter.GetData.Rows(i).Item(0)
            Nombre_cl = ClientesTableAdapter.GetData.Rows(i).Item(1)
            Apellidos_cl = ClientesTableAdapter.GetData.Rows(i).Item(2)
            DNI_cl = ClientesTableAdapter.GetData.Rows(i).Item(3)
            Poblacion_cl = ClientesTableAdapter.GetData.Rows(i).Item(4)
            Domicilio_cl = ClientesTableAdapter.GetData.Rows(i).Item(5)
            Telefono_cl = ClientesTableAdapter.GetData.Rows(i).Item(6)
            Correo_cl = ClientesTableAdapter.GetData.Rows(i).Item(7)
 
            ' compruebo que ha introducido algun DNI
            If DNI_Buscar = "" Then
                MessageBox.Show("No ha introducido ningun DNI, introduzca alguno", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
 
            ' si el DNI que ha introducido existe
            If DNI_Buscar = DNI_cl Then
                grb_Modificar_Clientes.Enabled = True
                txt_Nombre_Cli_Modificar.Text = Nombre_cl
                txt_Apellidos_Cli_Modificar.Text = Apellidos_cl
                txt_DNI_Cli_Modificar.Text = DNI_cl
                txt_Poblacion_Cli_Modificar.Text = Poblacion_cl
                txt_Domicilio_Cli_Modificar.Text = Domicilio_cl
                txt_Telefono_Cli_Modificar.Text = Telefono_cl
                txt_Correo_Cli_Modificar.Text = Correo_cl
                MessageBox.Show("Cliente encontrado", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
                MessageBox.Show("Modifique los valores que desee", "Modificar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                'grb_Modificar_Clientes.Enabled = False
                btn_Buscar_Cliente_Modificar.Enabled = False
                btn_Modificar_Cliente_Modificar.Enabled = True
                btn_Cancelar_Cliente_Modificar.Enabled = True
                Exit Sub
            End If
 
            ' comprobamos si el DNI introducido existe
            If DNI_Buscar <> DNI_cl Then
            Else
                MessageBox.Show("El DNI que ha introducido no existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
        Next
    End Sub
 

Saludos

Hola a todos, os comento lo que quiero realizar y a continuación os pongo la consulta que he realizado para ello:
     - quiero que en el combo1 tengo el nombre de los clientes y quiero conseguir es el Id_Venta.
      codigo que yo he realizado:
         

          "SELECT Ventas.Id_Ventas FROM Ventas WHERE Ventas.Id_Cliente IN (SELECT Clientes.Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Cod_Venta_Instalacion_ins.Text & "')"
 

                  El ultimo combo es el nombre del cliente

Las tablas son las siguientes:
Clientes                       Insatlaciones                    Ventas
Id_Cliente                        Id_Instalacion                   Id_Ventas
Nombre                            Descripcion                       Fecha_Venta
Apellidos                           ......                                 ..........
DNI                                  Id_Venta                          Id_Stock
.......                                 Id_Empleado                    Id_Empleado
                                                                               Id_Cliente

Hola a todos, tengo un error al insertar en la base de datos, el cual me dice "Error no especificado" y la verdad es que no consigo encontrar el fallo, os pongo el código para ver si me pueden ayudar

Private Sub btn_Insertar_Ventas_Clientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Insertar_Ventas_Clientes.Click
        Dim id_marc, id_emp, id_cli As Integer
 
        ' compruebo que ninguno de los datos de venta a cliente esta vacio
        If cbb_Venta_Client_Insertar.Text = "" Or cbb_Nomb_Emp_Vent_Insertar.Text = "" Or
            cbb_Apel_Emp_Vent_Insertar.Text = "" Or cbb_Marca_Artic_Vent_Insertar.Text = "" Or
            cbb_Articulo_Artic_Vent_Insertar.Text = "" Or cbb_Nomb_Client_Vent_Insertar.Text = "" Or
            cbb_Apel_Client_Vent_Insertar.Text = "" Then
            MessageBox.Show("Alguno/s de los datos del articulo esta vacio, rellenelo", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
 
        ' consulta para asignar el Id_Marca eligiendo el nombre del proveedor a la tabla modelos
        Dim dtadapterMarca As OleDbDataAdapter = New OleDbDataAdapter("SELECT Id_Marca FROM Marcas WHERE Marcas.Marca='" & cbb_Marca_Artic_Vent_Insertar.Text & "'", conexion_access)
        Dim dtsMarca As New DataSet
        dtadapterMarca.Fill(dtsMarca, "Marcas")
        For Each Fila As DataRow In dtsMarca.Tables("Marcas").Rows
            id_marc = Fila("Id_Marca")
        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_Vent_Insertar.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
 
        ' consulta para asignar el Id_cliente eligiendo el nombre del cliente a la tabla ventas
        Dim dtadapterCliente As OleDbDataAdapter = New OleDbDataAdapter("SELECT Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Nomb_Client_Vent_Insertar.Text & "' AND Clientes.Apellidos='" & cbb_Apel_Client_Vent_Insertar.Text & "'", conexion_access)
        Dim dtsCliente As New DataSet
        dtadapterCliente.Fill(dtsCliente, "Clientes")
        For Each Fila As DataRow In dtsCliente.Tables("Clientes").Rows
            id_cli = Fila("Id_Cliente")
        Next
 
        ' inserto los datos en la tabla ventas
        Dim CadenaSql As String = "INSERT INTO Ventas (Fecha_Venta, Pagado, Id_Stock, Id_Empleado, Id_Cliente) VALUES ('" & CDate(cbb_Venta_Client_Insertar.Text) & "'," & chk_Pagado_Venta_Insertar.Checked & "," & "(SELECT TOP 1 Stock.Id_Stock FROM Stock WHERE Stock.Id_Articulo IN (SELECT Articulos.Id_Articulos FROM Articulos WHERE Articulos.Descripcion='" & cbb_Articulo_Artic_Vent_Insertar.Text & "' AND Stock.Vendido=False))," & "(SELECT Empleados.Id_Empleado FROM Empleados WHERE Empleados.Nombre='" & cbb_Nomb_Emp_Vent_Insertar.Text & "' AND Empleados.Apellidos='" & cbb_Apel_Emp_Vent_Insertar.Text & "')," & "(SELECT Clientes.Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Nomb_Client_Vent_Insertar.Text & "' AND Clientes.Apellidos='" & cbb_Apel_Client_Vent_Insertar.Text & "'))"
 
        MsgBox(IdStock)
        MsgBox(CadenaSql)
        Dim Comando As New OleDb.OleDbCommand(CadenaSql, conexion_access)
        Comando.Connection.Open()
        Comando.ExecuteNonQuery()
        If Mensaje = "" Then
            MessageBox.Show("La venta se ha insertado correctamente.", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("La venta se ha insertado correctamente. Debe dispensar al cliente el artículo con número de serie: " & Mensaje, "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
 
         ' ME GUSTARÍA SABER SI TENGO QUE REDIMENSIONAR LA MATRIZ
        ' redimensionamos el tamaño de la matriz
        'ReDim Preserve S_Ventas(S_Ventas.Length)
 
        ' para refrescar la tabla me tengo que crear 2 variables
        Dim ta_venta As New ArcoclimaDataSetTableAdapters.VentasTableAdapter
        Dim tabla_venta As New ArcoclimaDataSet.VentasDataTable
 
        ' refrescamos los valores de la tabla
        tabla_venta = ta_venta.GetData
        ArticulosDataGridView.DataSource = tabla_venta
 
        Me.Validate()
        Me.VentasBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.ArcoclimaDataSet)
 
        Comando.Connection.Close()
 
        ' Limpio el contenido de los TextBox que he insertado en la tabla de empleados
        Limpiar_TextBox(cbb_Marca_Artic_Vent_Insertar.Text, cbb_Articulo_Artic_Vent_Insertar.Text,
                        cbb_Nomb_Emp_Vent_Insertar.Text, cbb_Apel_Emp_Vent_Insertar.Text,
                        cbb_Nomb_Client_Vent_Insertar.Text, cbb_Apel_Client_Vent_Insertar.Text)
        Exit Sub
    End Sub
 

El Id me lo devuelve correcto, pero no se si el error esta en la consulta o en el código, espero que me puedan ayudar,

Saludos