[سعود]

انت تريد عن طريق dataadapter توجد خاصية insertcommand لم افهم كيف استخدمها

---

لقيت الحل اكتب الكود التالي في زر new

كود :

       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim fn As String = ofd.SafeFileName
           If endwith(fn) Then
               'Dim row As DataRow = ds.Tables(0).NewRow
               'row("pic") = My.Computer.FileSystem.ReadAllBytes(ofd.FileName)
               'ds.Tables(0).Rows.Add(row)
               'da.Update(ds, "pics")

               Dim cmd As New OleDb.OleDbCommand("insert into pics(pic) values(@pic)", con)
               cmd.Parameters.AddWithValue("@pic", My.Computer.FileSystem.ReadAllBytes(ofd.FileName))
               da.InsertCommand = cmd

               If con.State = ConnectionState.Closed Then
                   con.Open()
               End If
               da.InsertCommand.ExecuteNonQuery()
               da.Update(ds, "pics")
               gd()
               Me.BindingContext(ds, "pics").Position = Me.BindingContext(ds, "pics").Count - 1
               pos()
           Else
               MsgBox("no")

           End If

       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If