Pregunta: | 68261 - AYUDA CON VB |
Autor: | Claudio |
Hola mi problema es el siguiente soy estudiante de primer año de programación y estamos creando un proyecto, el asunto es que tengo desde los textbox ingreso la información un datagridview pero necesito que toda la información que se va ingresando a las filas del datagriview se guarde en la base de datos de Acces, mi profesor me dijo que ocupara un For pero cuando inicio el programa e ingreso la información al data selecciono guardar y se "guarda" pero cuando voy a la base de datos la información que ingrese al data no se guarda, este es el código que me sugirió el profe: If resultado = vbYes Then For i = 0 To dgvMovimiento.Rows.Count - 1 Dim descripcion As String = dgvMovimiento.Rows(i).Cells("producto").Value Dim codigo As String = dgvMovimiento.Rows(i).Cells("codigo").Value Dim cantidad As String = dgvMovimiento.Rows(i).Cells("cantidad").Value Next y este es el que tengo completo en el data: Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click Dim resultado As DialogResult = MessageBox.Show("Desea guardar?", "Consulta", MessageBoxButtons.YesNo) If resultado = vbYes Then For i = 0 To dgvMovimiento.Rows.Count - 1 Dim descripcion As String = dgvMovimiento.Rows(i).Cells("producto").Value Dim codigo As String = dgvMovimiento.Rows(i).Cells("codigo").Value Dim cantidad As String = dgvMovimiento.Rows(i).Cells("cantidad").Value Next Dim conexion As New Data.OleDb.OleDbConnection(cadenaConexion) Dim comando As Data.OleDb.OleDbCommand conexion.Open() comando = conexion.CreateCommand() Dim sql As String sql = "INSERT INTO Factura(numero_factura,fecha,rut_proveedor) VALUES (" sql &= txtFactura.Text & "," With dtpFecha.Value sql &= "#" & .Year & "-" & .Month & "-" & .Day & "#," End With sql &= txtRutProveedor.Text & ")" sql = "INSERT INTO Producto(cantidad) VALUES (" sql &= txtCantidad.Text & ")" comando.CommandText = sql comando.ExecuteNonQuery() MsgBox("Guardado exitosamente!!", vbInformation) conexion.Close() Else End If End Sub Ayuda por favor, busco por Internet sugerencias pero ninguna me ha resultado. se los agradecería enormemente |