الزملاء و الساتذة الفاضل Ahmads
و [b]أبو خالد الشكري[/b]
لكم خالص الشكر
فى البداية قاعدة البيانات أكسيس بها حقل id مسلسل و مفتاح أساسى
و بها :
كود عميل
اسم عميل
قيمة مبيعات
تفاصيل بيع
و أرغب فى حذف أول 3 صفوف أو سجلات للعميل بكبسة زر واحد
فكيف أستدعى الـ ID الخاص بالسجلات الثلاثة دفعة واحدة و حذفهم بنفس الطريقة دفعة واحدة دون غيرهم
و هل يستخدم فى هذه الحالة loop معينة
أرجو افادتى و مساعدتى جزاكم الله خيرا
و لكم كل التقدير
Public Class Form1 Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb" Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath Dim con As New OleDb.OleDbConnection(str) Dim dt As New DataTable Dim da As New OleDb.OleDbDataAdapter("select * from tb", con) Dim cm As New OleDb.OleDbCommandBuilder(da) Private Sub gd() dt.Clear() Me.DataGridView1.DataSource = Nothing Me.DataGridView1.Rows.Clear() da.Fill(dt) Me.DataGridView1.DataSource = dt End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load gd() End Sub Private Sub aad(ByVal tn As String) Dim row As DataRow = dt.NewRow row(1) = tn dt.Rows.Add(row) da.Update(dt) gd() End Sub Private Sub ddel(ByVal count As Integer) Dim i As Integer i = 0 Do Until i = (count - 1) dt.Rows(i).Delete() i += 1 da.Update(dt) Loop gd() End Sub Private Function found(ByVal tn As String) As Boolean If dt.Select("tname='" & tn & "'").Count = 0 Then Return False Else Return True End If End Function Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click Dim a As String = InputBox("write some name to save.") If Trim(a.Trim).Trim = "" Then Exit Sub If found(a) = False Then aad(a) Else MsgBox("Name Exist!", MsgBoxStyle.Information, "") End If End Sub
Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click If dt.Rows.Count = 0 Then Exit Sub If Trim(txtcount.Text).Trim = "" Then Exit Sub ddel(Val(txtcount.Text)) gd() End Sub End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
10-06-22, 11:30 PM (آخر تعديل لهذه المشاركة : 10-06-22, 11:36 PM {2} بواسطة سعود.)
(10-06-22, 11:23 PM)أبو خالد الشكري كتب : خلاص إذا حضر الماء بطل التيمم ?
لما يجاوب الأستاذ سعود فيعتبر رده نهائيا لا رجعة فيه .
الله يحفظك ويجعلك ذخراً لنا .
من بعدكم جميعا اخواني الكرام .
والله يحفظكم جميعا.
افضل كود سريع للحذف هو التالي:
PHP كود :
Private Sub ddel(ByVal count As Integer) Using cmd As New OleDb.OleDbCommand("delete from tb where tid in (select top " & count & " tid from tb)", con) If con.State = ConnectionState.Closed Then con.Open() Try cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(Err.Description, MsgBoxStyle.Critical, "") End Try If con.State = ConnectionState.Open Then con.Close() End Using gd() End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير