(05-03-22, 04:27 PM)SaedAmer كتب : انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "حضور" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

وعند حذث / زر اغلاق البرنامج

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "انصراف" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

كود :

conn9 = New OleDbConnection(Constr9)
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM XXX WHERE Cient_Name = " & textbox1.text
                   adapt9 = New OleDbDataAdapter(str9, conn9)
                      adapt9.Fill(ds9, "XXX")
                     BS9.DataSource = ds9
           BS9.DataMember = "XXX"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)

(05-03-22, 04:27 PM)SaedAmer كتب : انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "حضور" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

وعند حذث / زر اغلاق البرنامج

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "انصراف" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

كود :

conn9 = New OleDbConnection(Constr9)
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM XXX WHERE Cient_Name = " & textbox1.text
                   adapt9 = New OleDbDataAdapter(str9, conn9)
                      adapt9.Fill(ds9, "XXX")
                     BS9.DataSource = ds9
           BS9.DataMember = "XXX"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)

(30-10-22, 08:29 PM)ali_ahmed12 كتب :

(05-03-22, 04:27 PM)SaedAmer كتب : انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "حضور" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

وعند حذث / زر اغلاق البرنامج

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "انصراف" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

كود :

conn9 = New OleDbConnection(Constr9)
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM XXX WHERE Cient_Name = " & textbox1.text
                   adapt9 = New OleDbDataAdapter(str9, conn9)
                      adapt9.Fill(ds9, "XXX")
                     BS9.DataSource = ds9
           BS9.DataMember = "XXX"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)

هل هكذا نوع الحقول