SoloCodigo

Private Sub id_cliente_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles id_cliente.KeyPress
        bus_id_cliente()
        MsgBox("Ingrese el ID a buscar y preione Enter")
        If id_cliente.Text <> "" Then
            If cond_bus = "ID" Then 'And Asc(e.KeyChar) = 13 Then
                conectar_bd()
                Command = New SqlCommand("SELECT * FROM clientes WHERE
Q tal Camaradas espero y estén bien……paso a mi problema

Tengo un menú en donde esta el botón buscar y este a su vez tiene un RadioButton, entonces lo q necesito es q al presionar el radio button (.checked ) este me envié a una caja de texto lo cual resulta un poco lento pero resulta y lo que necesito es q una vez q ingrese el ID a buscar y se presione Enter se desplieguen los demás datos en sus respectivas cajas de texto, lo tengo con un keypress pero al presionar un tecla entra al textbox(código) como lo puedo hacer para q me deje ingresar el dato y después apretar el Enter y ahí realice lo q esta digitado en el código de la caja de texto. Espero haberme explicado bien.


ID_cliente = '" & Trim(id_cliente.Text) & "' ", Connection)
                Command.ExecuteNonQuery()
                id_cliente.Text = ds.Tables(0).Rows(0)(0)
                rut_cliente.Text = ds.Tables(0).Rows(0)(1)
                emp_cliente.Text = ds.Tables(0).Rows(0)(2)
                nom_cliente.Text = ds.Tables(0).Rows(0)(3)
                direc_cliente.Text = ds.Tables(0).Rows(0)(4)
                fono_cliente.Text = ds.Tables(0).Rows(0)(10)
                correo_cliente.Text = ds.Tables(0).Rows(0)(13)
                rubro_cliente.Text = ds.Tables(0).Rows(0)(17)
                com_est_cliente.Text = ds.Tables(0).Rows(0)(19)
                fecha_ing_cliente.Text = ds.Tables(0).Rows(0)(20)
                Actualizar.Focus()
            End If
            Connection.Close()
        Else
            MsgBox("Ingrese un ID para la busqueda")
            id_cliente.Focus()
        End If
    End Sub

Camaradas tengo le siguiente Query

SELECT * FROM clientes WHERE ID_cliente =102

En el cual selecciono un registro de la base de datos, entonces lo que quiero hacer es asignar un par de campos de ese registro a cajas de texo q tengo en ese formulario de buisqueda y una vez q lo logre poder jugar con esos valores y despues devolverlos a la base de datos ya modificados...ojala y puedan ayudarme.....

Camaradas, tengo una nueva pregunta q hacerles…
Sucede q tengo una aplicación en donde desde una formulario llamo a un procedimiento Sub (Public Sub) y para llegar ahí desde ese mismo formulario no hay problema solo con Eliminar() llego sin problemas, pero para llegar hay desde otro formulario no me deja me dice q no esta declarado, mi solución fue meter ese SUB en un Modulo pero se me imagina q debe haber otra solución mas prolija.
Lo otro como puedo hacer un llamado para q desde dos botones llegue al mismo Private dentro del mismo formulario se puede hacer esto….

lo que quiero hacer es cerrar un Panel1 con unos textbox, label y un boton al hacer click en una MainMenu q esta en otro formulario lo hago de la siguiente manera.

New_Req.Inicio.Panel1.Visible = False

en donde New_Req es el nombre del proyecto
Inicio es el nombre del Formulario en donde esta el Panel1

y esto lo hago desde un Formulario llamado Menu_Principal que contiene un MainMenu.

El error q me da es

La referencia a un miembro no compartido requiere una referencia de objeto.

Ojala y puedan ayudarme.......de antemano gracias.

Camaradas espero esten bien y con salud q es lo principal, bueno mi problemas es el siguiente quiero llenar un DatGrid desde 4 tablas de una misma Base de Datos y lo hago de la siguiente manera.

conectar_bd()
Command = New SqlCommand("SELECT ID_cotizacion, Fecha_Creacion, Usuario_Crea, Estado FROM Orden_de_Compra",_    Connection)
Command.ExecuteNonQuery()
leer = Command.ExecuteReader()
Dim Tabla As New DataTable
Tabla.Columns.Add(New DataColumn("ID Cotizacion"))
Tabla.Columns.Add(New DataColumn("Fecha Creacion"))
Tabla.Columns.Add(New DataColumn("Usuario"))
Tabla.Columns.Add(New DataColumn("Estado"))
While leer.Read
     Dim fila As DataRow
     fila = Tabla.NewRow()
     For i = 0 To 3
         fila(i) = leer(i).ToString
      Next
      Tabla.Rows.Add(fila)
End While
Me.DataGrid_cotiz.DataSource = Tabla
leer.Close()

Aca asigno las 4 columnas a la Grilla con sus campos de un tabla de la BD, ningun problema, luego

Command = New SqlCommand("SELECT razon_social FROM clientes", Connection)
Command.ExecuteNonQuery()
leer = Command.ExecuteReader()
Dim Tabla1 As New DataTable
Tabla1.Columns.Add(New DataColumn("Empresa"))
While leer.Read
  Dim fila As DataRow
  fila = Tabla1.NewRow()
  For i = 0 To 0
     fila(i) = leer(i).ToString
  Next
  Tabla1.Rows.Add(fila)
End While
Me.DataGrid_cotiz.DataSource = Tabla1
leer.Close()

Y al hacer esto me crea la columna encima de las anteriores, entonces, como lo puedo hacer para q la asigne a continuacion de las 4 primeras, como puedo asignar una ubicacion especifica al DataColumn , o de q otra manera se puedes hacer, ojala y puedan ayudarme, de antemano gracias.....

Camaradas ojala y puedan ayudarme con esta duda.

Tengo un proyecto con 5 formularios y en c/u de estos tengo botones para buscar, actualizar y todo lo demas, mi duda es, en un proyecto como este puede haber un MainMenu por cada formulario, lo q pasa es que en el 2º formulario lo creo y todo bien pero al momento de ejecutar la aplicacion no lo muestra en pantalla y cuando presiono stop y estoy fuera de la ejecucion en el diseñador, cuando pincho sobre el formulario desaparece el MainMenu y cuando pincho abajo en donde van los controles de base de datos (SQLConnection, SQLDataAdapter, etc) aparece el MainMenu en el dicho formulario y hay lo puedo ver y configurar, pero vuelvo a pinchar en el form y desparece, entonces repito mi pregunta

¿ Se pude tener mas de un MainMenu(componente) en un Proyecto?

De antemano gracias y un saludo.......

Camaradas ojala y esten bien, mi duda creo yo es simple miren tebgo un query el cual esta en un codigo de VB.Net 2003 y quiero asignar el valor o los valores q encuentre a las diferentes cajas de texto y no se como va el query aca les va el q tengo puesto en mi codigo...

conectar_bd()
Command = New SqlCommand("SELECT ID_solicitud_BD  FROM Tsolicitud WHERE ID_solicitud_BD = '" & TextBox1.Text & "' ", Connection)
Command.ExecuteNonQuery()

en donde quiero q ID_solicitud_BD quede desplegado (el valor) en una caja de texto, todo esto lo hago en un modulo de busqueda......

de antemano gracias, y ojala puedan ayudarme una vez mas, jejeje saludilllos

Camaradas cometi un error gravisimo con mi datagrid por esas cosas de la mente se me ocurrio cambiar la base de datos(SQL) me refiero a los campos de esta, borre un par de campos y agregue otros y despues de esto me tiro una serie de errores, y durante el proceso de arreglarlos se me ocurrio la genial idea de eliminar los dataadapter, la conexion y el dataset y volver a crearlos , si es verdad fui un inocente novato, bueno una vez hecho esto quedo peor a si que lo fui arreglando pero me quedo una grave falla.......
Al ejecutar mi formuilario de ingreso me despliega los datos en el DataGrid pero antes de cambiar todo yo posicionaba el cursor al costado izquierdo de cada registro, pinchaba y me tiraba los datos en las respectivas cajas de texto, lo cual ahora no hace y nose como o mejor dicho no me acuerdo como lo hice y sin esto es un problema para eliminar y actualizar los dattos, ojala y puedan ayudarme Camardas, si les queda alguna duda solo diganme, de antemano gracias....

Camaradas hola espero esten bien, mi problema es simple creo yo, necesito refrescar la Grilla (datagrid) con un boton "refrescar Grilla" y al presionar este actualize mi grilla con respecto de los datos q he ingresado, eliminado o actualizado, depediendo esto del usuario.....gracias de antemano.

Camaradas del Foro, saludos desde aca de Chile.....

Tengo una sentencia While que recorre toda una tabla hasta encontrar dos campos y despues asigna true a un valor, PERO, despues de entrar al IF q esta dentro del While sigue recorriendo la tabla y lo que yo quiero es que una vez que entre al IF y entrege el valor a esa variable se salga del While, es eso posible con alguna instruccion, trate asignandole false a la variabla condicion del While pero no me deja, Favor ayudarme, de antemano gracias, adjunto codigo. la parte en Negrita es donde ocurre lo anterior explicado.....

Public Sub ingreso()
        If chkDesarrollo.Checked Then
            strServidor = "SERVIDOR"
        Else
            strServidor = "SOPORTE"
        End If
        conectar_bd()
        Command = New SqlCommand("select * from Usuarios", Connection)
        Command.ExecuteNonQuery()
        leer = Command.ExecuteReader
        While leer.Read = True
            If usu.Text = leer.Item("nombre_usuario") AndAlso password.Text = leer.Item("password") Then
                segu = True
            End If
        End While        
        leer.Close()
        If segu = False Then
            MsgBox("el usuario no existe")
            usu.Text = ""
            password.Text = ""
            usu.Focus()
        Else
            Dim FormSolicitud As New Solicitud
            FormSolicitud.Show()
        End If
        Connection.Close()
    End Sub

Camaradas un agrado saludarlos como siempre espero esten bien, bueno mi duda es la siguiente quiero posicionar el cursor en una caja de texto y lo hago de la siguiente manera, pero no me funciona.

id_solic.focus()    >> id_solic  es el nombre de la textbox


Porque no me funciona.......ojala puedan ayudarme, gracias......

Camaradas espero esten bien y con salud, mi duda es para cargar un combobox con una tabla (SQL) especifica de productos lo hago de la siguiente manera


Private Sub com_prod_solic_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles com_prod_solic.SelectedIndexChanged
       
       ADproducto.Fill(CDproducto1)
        For I As Short = 0 To ds.Tables("producto").Rows.Count '- 1
            Me.com_prod_solic.Items.Add(ds.Tables("producto").Rows(I).Item(2))
        Next

End Sub

 (la cual obtuve de aca ded otro forero), pero no me depliega nada en el combobox, ojala puedan ayudarme please......desde ya gracias

la parte del codigo ds.tables que es "tables" obvio "tablas" pero a que se refiere o llama, por favor una pekeña explicacion....