no se inserta

[Esfinge02]

saludos, tengo una duda tengo el siguiente codigo

Dim producto As String = txtproc.Text
Dim precio As Decimal = txtprecio.Text
Dim cantidad As String = txtcantidad.Text
Dim medida As String = ltscantidad.Text
Dim titulo As String = "Mensaje del sistema"

Dim con As Boolean = SQLCon.insproc(producto, precio, medida, cantidad)
Me.SQLCon.Fill(Me.PollosDataSet.Cat_Productos)
MessageBox.Show("los valores son " + producto, titulo, MessageBoxButtons.OK, MessageBoxIcon.Information)

con e cual inserto y toda la cosa a una base de datos de acces, con un datagrit que me muestra lo que se va insertando, sin embargo cuando cierro la aplicación y la vuelvo abrir veo que realmente no se a insertado nada nose que pueda suceder ya que no me marca ni un error

[ben_galicia]

Me imagino que en el metodo SQLCon.insproc es donde insertas a la base de datos , pero tengo una duda no ves reflejado el resultado en la BD o en el Datagrid? .

suponiendo que es en el datagrid lo que pasa que en la parte donde llenas el datatable te falta refrescarlo en el datagrid

aqui te muestro el codigo

nombre_grid.Datasource = Me.PollosDataSet.Cat_Productos

espero te halla servido de algo

[Esfinge02]

si me actualiza el datagrit, lo que pasa es que cuando cierro la aplicación y lo vuelvo abrir, ya no me aperasen los datos, osea no incerta realmente en la base de datos.

[alexvar611]

Para Poblar el Datagrid

Sub Poblar_Datagrid()
Try
Dim conn As New MySQLConnection(conn)
Dim sql As String = "select * from clientes"
Dim DsActividad As New DataSet
Dim daactividad As New MySQLDataAdapter(sql, conn)
conn.Open()
daactividad.Fill(DsActividad, "clientes")
With Me.DataGrid1
.DataSource = DsActividad.Tables("clientes").DefaultView
End With
conn.Close()
Catch err As MySQLException
MessageBox.Show(err.Message)
Catch err As Exception
MessageBox.Show(err.Message)
End Try
End Sub


Para Insertar Datos

Sub incluir_cliente(ByVal camp1, ByVal camp2, ByVal camp3, ByVal camp4)
Timer1.Enabled = False
Dim conn As New MySQLConnection(conn)
Dim cmd As MySQLCommand
Dim sqlBuilder As New System.Text.StringBuilder
Try
With sqlBuilder
.Append("INSERT INTO clientes")
.Append("(campo1,campo2,campo3,campo4)")
.Append("VALUES ('")
.Append(camp1 & "','")
.Append(camp2 & "','")
.Append(camp3 & "','")
.Append(camp4 & "')")
End With
conn = New MySQLConnection((New MySQLConnectionString("localhost", "EPDT_DB", "alexander", "yolaima", 3306).AsString))
conn.Open()
cmd = New MySQLCommand(sqlBuilder.ToString, conn)
cmd.ExecuteNonQuery()
conn.Close()
cmd.Dispose()
conn.Dispose()
Catch err As MySQLException
Throw err
Catch err As Exception
Throw err
End Try
End Sub

despues que insertes un registro llamas Poblar_Datagrid()