SoloCodigo

hola mbisurgi, no se si entiendo bien pero,

si esta informacion es de una tabla "SubTarget" (Cree un Datagridview que me trae los datos de una tabla llamada SubTarget)... esta tabla ya deberia tener IDSubTarget por q esta es la clave primaria de la tabla (esto no se puede guaradr como nulo).

esto deberias hacerlo al momento q creas el registro en la tabla, es decir en el insert de cada SubTarget.

Espero haberme explicado y q t sirva de algo.

saludos

Hola

No se si es lo q buscas, pero me parece q te puede servir, simplemente agrega "ToolStripButton1.Click" al Handles. Fijate en el final de la primera linea siguiente:

Private Sub TxtCodigo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCodigo.LostFocus, ToolStripButton1.Click
If Existe_Registro() Then
TSSLabel.Text = " EL REGISTRO: " & TxtCodigo.Text & ", YA EXISTE, ASIGNE OTRO CODIGO "
Beep()
TxtCodigo.Focus()
End Sub


espero t sirva

hola, perdon por la demora

va en el codigo del form y cambia los Private por "Dim"
- Lo q te propongo es hacer funciones por separado una q carga y una q inserta
- Desde la funcion insertar luego de agregar el registro se llama nuevamente a la funcion cargar (la cual asigna los datos al Grid)


saludos

hola
primero q nada decirte q no trabajo con access, asi q disculpas si me equivoco pero espero te sirva:

- de lo q entiendo q el codigo del "boton agregar" agrega correctamente el registro a la BDD.

si es asi deberias llamar nuevamente al proceso de carga de datos desde la BDD (ya q el nuevo dato se encuentra en BDD),
se me acurre la siguiente estructura:


Public Sub CargarDatos()
   Private MiAdaptadorMat As New OleDbDataAdapter("SELECT * FROM precios WHERE COS_MATMDO = 'MAT' ORDER BY COS_DESCR", MiConexion)
   Private MiDataSetMat As New DataSet()
   Private MiEnlazadorMat As New BindingSource
   Me.GridMateriales.DataSource = MiDataSetMat.Tables(0)
End Sub

Form_Load()
        CargarDatos()
End Sub

Sub boton_agregar()
        'aqui se deberia declarar MiAdaptadorMat con el query respectivo
        With MiAdaptadorMat
         .InsertCommand = New System.Data.OleDb.OleDbCommand
         .InsertCommand.Connection = MiConexion
         .InsertCommand.CommandText = "INSERT INTO Precios(COS_DESCR,COS_COSTO) VALUES (@material,@costo)"
         .InsertCommand.CommandType = System.Data.CommandType.Text
         .InsertCommand.Parameters.Add("@material", OleDbType.VarChar).Value = txtMaterialesNuevoMat.Text
         .InsertCommand.Parameters.Add("@costo", OleDbType.VarChar).Value = txtCostoEditMat.Text
        End With
        CargarDatos()
End Sub

saludos

hola, prueba asi:
- En el select puedes sacar tambien el campo No_credencial (en mi codigo es el campo id)
- asigna ValueMember y el DisplayMember al combobox
- en el boton buscar obtines el valor del  No_credencial desde el mismo combobox (Me.cselecciondelcliente.SelectedValue)


Imports MySql.Data.MySqlClient
Imports System.Data

Public Class Form2

    Dim con As New MySqlConnection()
    Dim da As New MySqlDataAdapter()
    Dim ds As New DataSet()
    Dim dr As DataRow

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim I As Integer
        con = New MySqlConnection("datasource=localhost;username=root;password=root;database=prueba")
        da = New MySqlDataAdapter("select concat(apellido ,' ',nombre) as na,id from tableprueba order by apellido asc", con)
        da.Fill(ds, "tableprueba")
        ' If ds.Tables("tableprueba").Rows.Count > 0 Then
        'For I = 0 To ds.Tables("tableprueba").Rows.Count - 1
        'dr = ds.Tables("tableprueba").Rows(I)
        Me.cselecciondelcliente.DataSource = ds.Tables("tableprueba").DefaultView
        cselecciondelcliente.ValueMember = "id" ' en lugar de id pones No_credencial
        cselecciondelcliente.DisplayMember = "na"
        'cselecciondelcliente.Items.Add(dr("na"))
        'Next
        'End If
    End Sub

    Private Sub btn_value_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_value.Click
        Me.txt_value.Text = Me.cselecciondelcliente.SelectedValue
    End Sub
End Class


Saludos

prueba con esto

Try
                Dim sr As System.IO.StreamReader = System.IO.File.OpenText("C:fich.bif")
                Do Until sr.Peek = -1
                    Dim linea As String
                    linea = CStr(sr.ReadLine)

                    If linea.Contains("DeviceUniqueID") Then ' aqui se busca una linea q tenga la palabra DeviceUniqueID
                        'aqui tu código
                    End If
                Loop
                sr.Close()
            Catch ex As Exception

            End Try

saludos

Yo te recomendaria que uses 2008.

Tiene unos cuantos componentes mas q 2005 q son de mucha utilidad.

Además en 2008 puedes aplicar manuales de 2005 (en su gran mayoria).


saludos

disculpa x no haberte contestado, acabo de ver tus mensajes

me alegro q hayas encontrado la solución

saludos

prueba con esto:

System.Windows.Forms.Help.ShowHelp(this, (My.Application.Info.DirectoryPath + "\Ayuda\Documentacion.chm"));

saludos

q tal...

creo q te falta poner => If Not Page.IsPostBack Then

por ejemplo:

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

           ' aqui tus procesos

         End If
    End Sub


saludos

Muchas gracias, acabo de consegiur hacer que una función "suma" de VB funcione a la perfección dentro de mi código c++.

 

De nada bro...

revisa esto:

http://msdn.microsoft.com/es-es/library/aa984416(VS.71).aspx


saludos

Aquí hay un paso a paso:

http://www.onglasses.net/default.aspx?articuloid=265

saludos