SoloCodigo

gracias de todas formas amigos , ya encontre como solucionar el problema

aja , ya te coloca parte del codigo para ver si me pueden  ayudar por favor
esto es parte del codigo creo que lo mas importante y donde puedo estar haciendo la cosa mal ya lo demas son los procedimientos de almacenar borrer eliminar etc


repito me funciona todo bien pero solo va pasando el codigo los datos de los otros texboxes quedan igual


Sub LoadData()


        'Inicializar Data Adapter
        DA = New SqlDataAdapter
        Dim SelectCommand As New SqlCommand("SELECT * FROM zonas")
        DA.SelectCommand = SelectCommand

        Connect()

        DA.SelectCommand.Connection = Connection1

        DS.Clear()
        DA.Fill(DS, "zonas")

        Disconnect()
    End Sub


Sub BindTextBox()
        txtcodigozona.DataBindings.Add("Text", DS.Tables("zonas"), "codigozona")
        txtnombrezona.DataBindings.Add("Text", DS.Tables("zonas"), "nombrezona")
        DTPaltazona.DataBindings.Add("Text", DS.Tables("zonas"), "fechaaltazona")
        txtdetallezona.DataBindings.Add("Text", DS.Tables("zonas"), "detallezona")

    End Sub

    Sub DisplayNav()
        Label1.Text = "Registro: " & CM.Position + 1 & " de " & CM.Count
    End Sub

    Private Sub btretroceder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btretroceder.Click
        CM.Position -= 1
        DisplayNav()

    End Sub
    Private Sub btavanzar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btavanzar.Click
        ''  CM.Position += 1
        DisplayNav()
        Me.BindingContext(DS, "zonas").Position += 1
    End Sub

    Private Sub zonas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DS = New DataSet
        LoadData()
        CM = Me.BindingContext(DS.Tables("zonas"))
        DisplayNav()
        ButtonState("comienzo")
        BindTextBox()
        LockTextBox()
        dtpaltazona.Enabled = False

    End Sub

muchas gracias amigo , ya logre conseguir como realizarlo de otra manera pero tengo este pequeno problema  todo funciona bien al ingresar el codigo si existe el me rellena los campos con los datos


los dos problemas son>

1>  al pasar al campo de nombre su longitud solo muestra 10 caracteres pero esta configurado para un maximo de 50 que es lo que acepta la base de datos
cuando el cursor se situa en el campo nombre (recordamos que si existe muestra los datos para modificarlos o eliminarlos) me selecciona todo el campo y el cursor se va al final del texbox para ver los datos entonces tengo que regresar con las flechas de navegacion al principio del texbox para que aparezca el dato y poderlo  modificar ahora como hago para que cuando se situe en el campo de nombre por ejemplo el cursor quede al principio del texbox creo que la solucion es que no me seleccione todo el dato del campo cuando entra en foco pero como hago esto hay un amanera

2> no me deja editar la informacion trato de escribir en el campo de nombre y esta como bloqueado


este es el codigo
  Private Sub txtcodigozona_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtcodigozona.Validating
        If txtcodigozona.Text.Length = 0 Then
            e.Cancel = True
            Errorzona.SetError(txtcodigozona, "Ingrese un Código de registro. El campo no puede estar en blanco")
        Else
            Errorzona.SetError(txtcodigozona, Nothing)
            Me.BindingContext(dszonas, "zonas").Position = BuscarRegistro(Me.BindingContext(dszonas, "zonas").Position)
                   End If
    End Sub

Private Function BuscarRegistro(ByVal prmPos As Integer) As Integer
        'Código para buscar un registro
        'Recibe como parámetro la posición actual en el DataSet
        'para, en el caso de no encontrar el registro solicitado,
        'regresar la posición del registro antes de iniciar.
        'Lo que hace este procedimiento es
        'regresar la posición en la que se encuentra el registro
        'solicitado, en caso de no encontrarlo, regresa la posición
        'antes de iniciar la búsqueda
        Try
            Dim dvzonas As DataView = New DataView(dszonas.Tables(0), "", _
                    "codigozona", DataViewRowState.CurrentRows)
            'Declaramos varcodigocliente
            Dim varcodigozona As String = ""
            'Preguntamos la clave del cliente que se desea buscar
            varcodigozona = (txtcodigozona.Text) '' InputBox("Introduce la clave a buscar", "Buscar")
            If Not varcodigozona = "" Then
                'Regresamos el index del cliente encontrado
                Return dvzonas.Find(varcodigozona)
                Exit Function
            Else
                'Si no se especificó el cliente, regresamos la
                'posición (index) del cliente original(prmPos)
                MessageBox.Show("La búsqueda no se puede realizar", _
                "Información del sistema", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
                Return prmPos
                Exit Function
            End If
        Catch ex As Exception
            'En caso de error, suponiendo que no se encontró el cliente,
            'regresamos la posición original del cliente(prmPos)
            MessageBox.Show(ex.Message, "Error", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return prmPos
            Exit Function
        End Try
    End Function

    Private Sub zonas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Inicializar()
    End Sub
    Private Sub Inicializar()
        Try
            With cnnzonas
                ''Verificamos el estado de la conoexión
                If .State = 1 Then 'si esta abierta
                    .Close()    'cerramos
                End If
                .Open() '' abrimos la conexion
            End With
            ''Cargamos el DataSet Con los datos de La tabla
            dazonas.Fill(dszonas, "zonas")
            ''Enlazamos los Objetos
            txtcodigozona.DataBindings.Add("Text", dszonas, "zonas.codigozona")
            txtnombrezona.DataBindings.Add("Text", dszonas, "zonas.nombrezona")
            Dtfechaaltazona.DataBindings.Add("Text", dszonas, "zonas.fechaaltazona")
            txtdetallezona.DataBindings.Add("Text", dszonas, "zonas.detallezona")
        Catch ex As Exception
            ''Esto ocurriría solo en el caso de que ocurra un error
            MessageBox.Show(ex.Message, "Info del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

bueno ya logre hacerlo pero no me deja editar los campos y cuando selecciono el codigo y me trae la informacion a los texbox me coloca el cursor al final de dicho texbox como hago para que el cursor me aparezca eln el principio de un texbox y no al final

SALUDOS, LO UNICO QUE PIDO DE VERDAS ES QUE ME ORIENTEN COMO ENCONTRAR UN REGISTRO EN UNA BASE DE DATOS SALEXPRESS CON VB 2005

POR EJEMPLO

QUE AL INGRESAR EN UN TEXTBOX EL NOMBRE DEL CAMPO X  QUE ESTA EN UN A TABLA X ME DIGA REGISTRO ENCONTRADO Y SI NO REGISTRO NO ENCONTRADO SOLO ESO PIDO Y DE VERDAD NO HE CONSEGUIDO RESPUESTAS

SALUDOS AMIGOS, SOY NUEVO EN VB2005 Y SQLEXPRESS ESTOY HACIENDO UN SISTEMA SENCILLO DE AGREGAR ELIMINAR ACTUALIZAR ZONAS

MI PROEBLEMA ES QUE TENGO UNA TABLA LLAMADA ZONAS CON CUATRO  CAMPOS  CODIGO CHAR (10)  NOMBRE (CHAR50) Y DETALLE (CHAR100) Y FECHAALTA (DATETIME SHORT)

AHORA TENGO CUATRO TXTBOXES 1)CODIGO 2)NOMBRE 3)FECHA 4)DETALLE DONDE QUIERO  HACER LO SIGUIENTE :

AL INGRESAR EL CODIGO SI EL REGISTRO O (CODIGO) EXISTE ME MUESTRE LOS DATOS CORRESPONDIENTES A ESE CODIGO EN LOS CUADROS DE TEXTOS CORRRESPONDIENTES NOMBRE. FECHA. DETALLE. PARA MODIFICARLOS O ELIMINARLOS Y SI NO EXISTE PASE AUTOMATICAMENTE AL SIGUIENTE CAMPO EN ESTE CASO NOMBRE PARA COMENZAR A INGRESAR EL REGISTRO COMO NUEVO


DE VERDAD TENGO TIEMPO EN ESTO Y NO ENCUENTRO COMO REALIZAR ESA VALIDACION

LES AGRADEZCO DE CORAZON TODA LA AYUDA DISCPONIBLE

OJO EL CODIGO NO  ES AUTOMATICO COMO PUEDEN DARSE CUENTA EN EL EJEMPLO PERO SI ES LA LLAVE PRINICPAL
Option Strict On

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data
Imports System.Data.SqlClient
Public Class zonas

    Private dt As DataTable
    Private da As SqlDataAdapter
    Private fila As Integer

    Private Sub zonas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        '"data source="& cboInstancias.Text & "; initial catalog=" & cboBases.Text & "; integrated security=yes"
        Dim sCnn As String = "Data Source=PERSONAL\SQLEXPRESS;Initial Catalog=avalon2006;Persist Security Info=True;User ID=sa;Password=Avalon2006"

        Dim cnn As New SqlConnection(sCnn)


        Dim sSel As String = "SELECT * FROM zonas ORDER BY codigozona"
 
        Try
           
            da = New SqlDataAdapter(sSel, cnn)
       
            Dim cb As New SqlCommandBuilder(da)
   
            da.UpdateCommand = cb.GetUpdateCommand()
            da.InsertCommand = cb.GetInsertCommand()
            da.DeleteCommand = cb.GetDeleteCommand()
               
            dt = New DataTable
         
            da.Fill(dt)
         
            Dim rn As String = ""
            rn = CStr(dt.Rows.Count)
            labelregistros.Text = rn

        Catch ex As Exception
            MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
                            ex.Message, "Conectar con la base", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

saludos amigo trata de buscar en esta pagina a ver que encuentras es una de buenos codigos me avisas como te fue suerte...



http://www.somser.com/2000vb/Flash.htm

si te entiendo brroz y gracias por tu cooperacion lo que pasa es que si lo hicimos en clase con ayuda del profesor y al terminar nos dejo lo que estoy planteando como projecto para entregarlo en la tarde por eso al menos necesito una ayuda que tengo que modificar en mi projecto para que funcione al menos dame un apista si no lo logroterminar no importa a la final agradecere su apoyo y que tomaron en cuenta mi pregunta chao gracias .....

pero sirve para el ejemplo que esta posteado gracias por tu respuesta

saludos amigos, quisiera que me ayudaran con un problemilla tengo un codigo el cual tengo que ingresar 7 valores de temperatura y luego me da comop resultado la media pero ahota tengo que hacer que pueda ingresar infinitas temperaturas y no se que hacer me comentaron que utilizara el comando redim pero no se como empezar es un proyecto para la univeridad y tengo que entregar pronto ayuda porfavor saludos...


bueno de todos modos aqui esta el projectico que se olvido postear

para brroz.

el codigo funciona pero tengo un problema cuando comienzo el primer o segundo decimal con numeros muy grandes ejemplo primer decimal 159 segindo decimal 78978978  me sale el suguiente error  5 en tiempo de ejecucion llamada o argumentos no valido que podria estar pasando  saludos y gracias