[مبرمج صغير 1]

(24-01-24, 12:00 AM)Taha Okla كتب : استبدل هذا الكود بالكود الذي عندك في نافذة كود (Form1)..

كود :

Imports System.Data.OleDb
Imports JbsaPrintDataGridView

Public Class Form1
   Public connAccess999 As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATA.accdb")

   'ConnP تعريف كائن جديد للاتصال مع قاعدة البيانات بشكل سريع ومنفصل بحيث لا يتداخل مع كائن الاتصال الأساسي مع البرنامج
   Public ConnP As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATA.accdb")

   Function Existing_Value(sSQLSelect As String, pConn As OleDbConnection) As Boolean
       '  هذا إجراء للتحقق من أي قيمة موجودة أو لاااا بأي جدول بأي قاعدة بيانات
       If pConn.State <> ConnectionState.Open Then pConn.Open()

       Dim cmd As OleDbCommand = New OleDbCommand(sSQLSelect, pConn)
       Dim dt As New DataTable

       dt.Load(cmd.ExecuteReader())

       If pConn.State <> ConnectionState.Closed Then pConn.Close()
       If dt.Rows.Count > 0 Then
           Return True
       Else
           Return False
       End If
   End Function

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try
           '  التحقق من تواجد رقم الهوية في جداول أخرى قبل الاتصال بـ قاعدة البيانات للحفظ
           If Existing_Value("SELECT * FROM [mtl]  WHERE [id_mtl]='" & id_mr.Text.Trim() & "'", ConnP) Then
               MsgBox("الشخص مطلوب لقسم الحوادث!", MsgBoxStyle.Exclamation, "تنبية!")
               Exit Sub
           End If

           If Existing_Value("SELECT * FROM [aml]  WHERE [id_aml]='" & id_mr.Text.Trim() & "'", ConnP) Then
               MsgBox("الشخص مطلوب لقسم المخالفات!", MsgBoxStyle.Exclamation, "تنبية!")
               Exit Sub
           End If

           ' الاتصال مع قاعدة البيانات  واجراء عملية حفظ البيانات
           If connAccess999.State = ConnectionState.Closed Then connAccess999.Open()

           Dim arrImage() As Byte
           Dim myMs As New IO.MemoryStream
           If Not IsNothing(pic_mr.Image) Then
               pic_mr.Image.Save(myMs, pic_mr.Image.RawFormat)
               arrImage = myMs.GetBuffer
           Else
               arrImage = Nothing
           End If

           time_mr.Text = Format(Date.Today, "dd/MM/yyyy")
           sad_mr.Text = TimeOfDay
           Dim cmdinsert As New OleDbCommand("insert into tan (name_mr, id_mr,jn_mr,num_mr,jeh_mr,time_mr,sad_mr,pic_mr) values (?,?,?,?,?,?,?,?)")
           cmdinsert.Parameters.AddWithValue("@", name_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", Val(id_mr.Text))
           cmdinsert.Parameters.AddWithValue("@", jn_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", num_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", jeh_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", time_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", sad_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", arrImage)
           cmdinsert.Connection = connAccess999
           cmdinsert.ExecuteNonQuery()
           MsgBox("تم حفظ البيانات بنجاح")
           name_mr.Clear()
           id_mr.Clear()
           jn_mr.Clear()
           num_mr.Clear()
           jeh_mr.Clear()
           time_mr.Clear()
           sad_mr.Clear()
           pic_mr.Image = Nothing
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       OpenFileDialog1.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"

       With OpenFileDialog1
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
               MsgBox("image is not choised")
               Return
           Else
               pic_mr.Image = Image.FromFile(.FileName)
           End If
       End With
   End Sub
   
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Form3.Show()
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       mtl.Show()
   End Sub


End Class

الله يعطيك الف عافيه ويرحم والديك

عمل الكود تمام