03-11-22, 10:22 PM
(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)
هل هكذا نوع الحقول
هل من رد
