Que tal miren he estoy realizando una pequeña aplicacion para el control de inventario de unas computadoras
La cosa es que tengo un datagrid que muestra los resultados de una busqueda por textbox, seguido de eso, al dar click en el datagrid se copian los datos a los textbox para que puedan modificarse y por medio de un click en un boton de haga la actualizacion a la bd de access.
EL prog ya captura y elimina, pero justo en este formulario en donde se harian las cambios de registros recibo un error de nonquery, syntax error les dejo mi codigo, esta documentado+
Espero su ayuda gracias
Public Class Form4
Dim cnn1 As New Data.OleDb.OleDbConnection()
Dim dap1 As New Data.OleDb.OleDbDataAdapter()
Dim das1 As New System.Data.DataSet()
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'InventarioDataSet.EQUIPOS' Puede moverla o quitarla según sea necesario.
Me.EQUIPOSTableAdapter.Fill(Me.InventarioDataSet.EQUIPOS)
Dim str1 = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:InventarioInventario.Mdb"
cnn1.ConnectionString = str1
End Sub
Private Sub surnameFilterTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles surnameFilterTextBox.TextChanged
EQUIPOSBindingSource.Filter = "USER_ID like '%" + surnameFilterTextBox.Text + "%'"
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
surnameFilterTextBox.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(2).Value()
TextBox1.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value()
TextBox19.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(1).Value()
TextBox2.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(3).Value()
TextBox3.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(4).Value()
TextBox4.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(5).Value()
TextBox5.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(6).Value()
TextBox6.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(7).Value()
TextBox7.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(8).Value()
TextBox8.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(9).Value()
TextBox9.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(10).Value()
TextBox10.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(11).Value()
TextBox11.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(12).Value()
TextBox12.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(13).Value()
TextBox13.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(14).Value()
TextBox14.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(15).Value()
TextBox15.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(16).Value()
TextBox16.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(17).Value()
TextBox17.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(18).Value()
TextBox18.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(19).Value()
End Sub
' es un update el que aqui se debe aplicar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str1 As String = "UPDATE VBDotNetShippers " & "SET CompanyName='" & TextBox2.Text & "', " & "Phone='" & TextBox3.Text & "' WHERE ShipperID=" & TextBox1.Text
'Ejecuta la cadena SQL
RunSQLString(str1)
End Sub
Sub RunSQLString(ByVal str1 As String)
'Creamos el objeto oleDbCommand
Dim cmd1 As New Data.OleDb.OleDbCommand()
'Asigna los valores a las propiedades connection y commandtext
'Antes de llamar al comando
With cmd1
.Connection = cnn1
.CommandText = str1
cnn1.Open() 'Abre la bases de datos
.ExecuteNonQuery() 'Ejecuta la consulta
cnn1.Close() 'Cierra la base datos
End With
End Sub
End Class
