Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Amigo gracais ya me funciona (Y) lo hize con la segunda forma y me sirvio xD jeje muchas gracias (Y) de verdad

Saludos !!!

no esta definido como variable, lo que intento es decirle al programa-si todos los textbox tienen algo escrito, agréguelos al datagrid.. yo se que el error esta en esa linea pero no se cual es la forma correcta de decirlo, me puedes ayudar?

hola Yo otra vez con mis preguntas de Visual Basic 2012, esta vez tengo un problema con mi botón de agregar, tengo que decir que lo que quiero es hacerlo y como es lógico, que no haya cabida a errores, este es mi código:

''BOTON NUEVO REGISTRO''-----------------Error, solo envia el ultimo try
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If Cod_puestoTextBox.Text = Text And Nom_puestoTextBox.Text = Text And Sal_nivel1TextBox.Text = Text And Sal_nivel2TextBox.Text = Text And Sal_nivel3TextBox.Text = Text And Sal_nivel4TextBox.Text = Text And Sal_nivel5TextBox.Text = Text Then
            Me.Esc_SalarialTableAdapter.Insertar(Cod_puestoTextBox.Text, Nom_puestoTextBox.Text, Sal_nivel1TextBox.Text, Sal_nivel2TextBox.Text, Sal_nivel3TextBox.Text, Sal_nivel4TextBox.Text, Sal_nivel5TextBox.Text)
   

        ElseIf Cod_puestoTextBox.Text = "" And Nom_puestoTextBox.Text = "" And Sal_nivel1TextBox.Text = "" And Sal_nivel2TextBox.Text = "" And Sal_nivel3TextBox.Text = "" And Sal_nivel4TextBox.Text = "" And Sal_nivel5TextBox.Text = "" Then
            Try
                Esc_SalarialDataGridView.Update()
                MsgBox("Debe insertar los datos requeridos.")
                Esc_SalarialTableAdapter.Dispose()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            Try
                Esc_SalarialDataGridView.Update()
                MsgBox("Inserte todos los datos.")
                Esc_SalarialTableAdapter.Dispose()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End If
        Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)

        Me.BindingContext(Esc_SalarialBindingSource).Position =
        Me.BindingContext(Esc_SalarialBindingSource).Count - 1
        Esc_SalarialDataGridView.Text = Me.BindingContext(Esc_SalarialBindingSource).Position

    End Sub
y lo que me acongoja esque a mi parecer esta bien pero obviamente no lo esta porque el programa no agrega, bueno, voy a explicar de forma simple cada parte del código para q me entiendan.
  Este es el primer IF que según yo, dice q si en todos los textbox hay textos(valga la redundancia) pues que los agregue a las columnas respectivas:

If Cod_puestoTextBox.Text = Text And Nom_puestoTextBox.Text = Text And Sal_nivel1TextBox.Text = Text And Sal_nivel2TextBox.Text = Text And Sal_nivel3TextBox.Text = Text And Sal_nivel4TextBox.Text = Text And Sal_nivel5TextBox.Text = Text Then
            Me.Esc_SalarialTableAdapter.Insertar(Cod_puestoTextBox.Text, Nom_puestoTextBox.Text, Sal_nivel1TextBox.Text, Sal_nivel2TextBox.Text, Sal_nivel3TextBox.Text, Sal_nivel4TextBox.Text, Sal_nivel5TextBox.Text)

  El siguiente es el primer Elseif, lo hize asi para solucionar el error que daba si usaba el botón sin agregar datos, lo que hace esque si no hay datos en ningún textbox envía un msj:

ElseIf Cod_puestoTextBox.Text = "" And Nom_puestoTextBox.Text = "" And Sal_nivel1TextBox.Text = "" And Sal_nivel2TextBox.Text = "" And Sal_nivel3TextBox.Text = "" And Sal_nivel4TextBox.Text = "" And Sal_nivel5TextBox.Text = "" Then
            Try
                Esc_SalarialDataGridView.Update()
                MsgBox("Debe insertar los datos requeridos.")
                Esc_SalarialTableAdapter.Dispose()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
  Este es el Else (por cierto acá cierra el ciclo If), ya con los anteriores le e dicho al programa que debe hacer en caso de que tenga toda la información en los txtbox, y que hacer en caso que no le escriban nada; sin embargo da un error si se inserta texto en algún txtbox y nada en otros, evitar ese error es mi objetivo con este Else:

Else
            Try
                Esc_SalarialDataGridView.Update()
                MsgBox("Inserte todos los datos.")
                Esc_SalarialTableAdapter.Dispose()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End If
  A mi parecer el programa debería interpretar esto de esta manera" si tengo todos los datos, los agrego al datagridview; si no tengo nada, entonces envío un msj, y si no se da el primer caso ni el segundo, pues hago el tercero q es enviar otro msj, porque si no es gallo es gallina"

No le e indicado al programa específicamente que haga el Else en caso que hayan algunos datos en txtsbox y en otros no, pero debería funcionar bien creo yo, pero no es asi, si yo pruebo el programa, y no agrego nada a los texbox al tocar el botn hace lo q deberia hacer, si lo pruebo de nuevo y agrego informacion en algun texbox y en otro(s) no; también hace lo q debe hacer...osea que el segundo y tercer caso funcionan bien, pero si agrego información a todos los textbox y toco el botón me tira el msj como si no estuviese agregando a todos, osea se da el tercer caso y eso no tiene sentido 

El resto de código que no explique es para actualizar y mantener la ultima posición, pero si funciona bien esa parte

Gracias por tomarse el tiempo de leer este tema y si me pueden ayudar lo agradecería mucho, espero haberme explicado bien

Saludos !!

Voy a dejar por aca este código que con una idea de Mastermind me ha funcionado, la sintaxis es de Visual Basic 2012 así que no sé si funcione  tan bien en otras versiones pero por si acaso le llega a servir a alguien el objetivo se esta cumplido por aca lo dejo (Y)

    ''BOTON ACTUALIZAR guarda en base de datos y mantienen posición en datagridview

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim record_actual As Integer

        record_actual = Esc_SalarialBindingSource.Position
        Me.Validate()
        Me.Esc_SalarialBindingSource.EndEdit()

        Me.Esc_SalarialTableAdapter.Update(Me.Database1DataSet.Esc_Salarial)
        Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
        Esc_SalarialBindingSource.Position = record_actual

    End Sub

haha no vi eso -.-
gracias, y si guardo la linea en el campo (6,4) x ejemplo, siempre que actualize me llevara ahí, existe forma de que me lleve a la fila en que me encuentre al momento de actualizar?

Creo que tienes razón, puede ser una buena idea : pero mi programa marca como malas algunas palabras porque?

Las palabras que marca erróneas son: Set the current cell to the cell in column 1, Row 0

Amigo muchas gracias por contestar mis mensajes ! me ayudas demasiado de verdad te lo agradezco mucho, gracias a ti pude tener un avance en ese codigo despues de 4 dias de estar pegado en ese boton de guardar en horario de 7a.m a 5.p.m XD y no son bromas estoy trabajando en este proyecto y eso a sido un dolor de cabeza, en especial porque no tengo muchos conocimientos de programacion, asi que de verdad aprecio mucho tu ayuda jeje ahora tengo un pequeñisimo problema mira:
    '' BOTON GUARDAR''

    Private Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
        Dim cadenaconexion As String
        cadenaconexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb"
        Dim comand As New OleDbCommandBuilder
  ***  Dim comand As New OleDbCommand(cadenaconexion)
  ***  comand = conexion

        Try
            Dim GuardarEdicion As OleDbCommandBuilder
            GuardarEdicion = New OleDbCommandBuilder()
            Esc_SalarialDataGridView.Update()
            ' MsgBox("Se han Actualizado los Datos Modificados")

            Cod_puestoTextBox.Text = ""
            Nom_puestoTextBox.Text = ""
            Sal_nivel1TextBox.Text = ""
            Sal_nivel2TextBox.Text = ""
            Sal_nivel3TextBox.Text = ""
            Sal_nivel4TextBox.Text = ""
            Sal_nivel5TextBox.Text = ""

            Esc_SalarialTableAdapter.Dispose()
   ***      conexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub
las partes que tienen 3 asteriscos (***) es porque el programa me subraya las palabras comand o conexion en sentido de indicarme que hay un error pero no se cual es

Saludos!

O.O eso tiene mucho sentido muchas gracias! *w* entonces basta con solo eliminar las lineas de las columnas o debo quitar todo lo que tenga q ver con el establecimiento manual?
de antemano gracias gracias gracias *-*

jajajaja si mis disculpas esq no tengo nada de codigo en el boton de "Guardar" por eso no lo puse xD esq ya e visto tantos que mejor borre el código que tenia porq no se cual es la manera correcta la imagen es para que vieras el numero de columnas y eso... Intente con este codigo, intentando moldearlo a mi programa pero no me funciono y daba error, mira el codigo q consegui Public Class Form1
    Dim row(4) As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Guardar"
        Button2.Text = "Cerrar"
        DataGridView1.ColumnCount = 4
        DataGridView1.Columns(0).Name = "Fabricante"
        DataGridView1.Columns(1).Name = "Modelo"
        DataGridView1.Columns(2).Name = "Nombre recambio"
        DataGridView1.Columns(3).Name = "Referencia"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        row(0) = TextBox1.Text
        row(1) = TextBox2.Text
        row(2) = TextBox3.Text
        row(3) = TextBox4.Text
        Dim rowToSave As String() = New String() {row(1), row(2), row(3), row(4)}
        DataGridView1.Rows.Add(row)
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        End
    End Sub
End Class*
*
*
una vez que lo moldee me quedo de esta forma:

Public Class Form1

    Dim row(7) As String

    Private Property BOF As Boolean

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Database1DataSet.Esc_Salarial' Puede moverla o quitarla según sea necesario.
        Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
        'TODO: esta línea de código carga datos en la tabla 'Database1DataSet.Dependencias' Puede moverla o quitarla según sea necesario.
        Me.DependenciasTableAdapter.Fill(Me.Database1DataSet.Dependencias)

        Button1.Text = "Guardar"
        Esc_SalarialDataGridView.ColumnCount = 7
        Esc_SalarialDataGridView.Columns(0).Name = "cod_puesto"
        Esc_SalarialDataGridView.Columns(1).Name = "nom_puesto"
        Esc_SalarialDataGridView.Columns(2).Name = "Sal_nivel1"
        Esc_SalarialDataGridView.Columns(3).Name = "Sal_nivel2"
        Esc_SalarialDataGridView.Columns(4).Name = "Sal_nivel3"
        Esc_SalarialDataGridView.Columns(5).Name = "Sal_nivel4"
        Esc_SalarialDataGridView.Columns(6).Name = "Sal_nivel5"

    End Sub

    '' BOTON GUARDAR''

    Private Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
        'Me.Esc_SalarialTableAdapter.Update(Me.Database1DataSet.Esc_Salarial)

        row(0) = Cod_puestoTextBox.Text
        row(1) = Nom_puestoTextBox.Text
        row(2) = Sal_nivel1TextBox.Text
        row(3) = Sal_nivel2TextBox.Text
        row(4) = Sal_nivel3TextBox.Text
        row(5) = Sal_nivel4TextBox.Text
        row(6) = Sal_nivel5TextBox.Text

        Dim rowToSave As String() = New String() {row(1), row(2), row(3), row(4), row(5), row(6), row(7)}
        Esc_SalarialDataGridView.Rows.Add(row)
        Cod_puestoTextBox.Text = ""
        Nom_puestoTextBox.Text = ""
        Sal_nivel1TextBox.Text = ""
        Sal_nivel2TextBox.Text = ""
        Sal_nivel3TextBox.Text = ""
        Sal_nivel4TextBox.Text = ""
        Sal_nivel5TextBox.Text = ""


    End Sub
End Class*
*
*
 y eso me da este error:

Hola, soy nuevo en lo respecta a programación y estoy haciendo lo que podría considerar yo como mi primer proyecto mas importante..
.
COMO HABRÁN LEÍDO NECESITO AYUDA y el problema con mi programa es que no logro configurar el botón de Guardar de manera que si corro el programa y hago cambios en mi DataGridView, se guarden para la próxima vez que lo corra y a la vez se guarden a la base de datos de access a la que estoy conectado con el programa... y francamente e buscado vídeos de youtube, foros y otros medios de investigación para aprender a hacerlo ya que nadie me esta enseñando y e visto ya tantas formas diferentes que no me han funcionado que no se ni como empezar.. alguien me puede dar ideas, de antemano se lo agradeceré.

Gracias