منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التحقق من عدد السجلات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحقق من عدد السجلات (/showthread.php?tid=17207)

التحقق من عدد السجلات - abdulla2 - 07-09-16

أرجو المساعدة بعمل كود للتحقق من عدد السجلات في قاعدة البيانات ..
اذا وصلت 10 سجل يظهر رسالة تبية بشراء البرنامج ..
---
نوع قاعدة البيانات أكسس فجول بيسك دوت نت 2010
---
أرجو المساعدة بالكود وسأكون شاكراً لكم ..

RE: التحقق من عدد السجلات - أبو عمر - 07-09-16

[align=left]
PHP كود :
Protected Sub SqlDataSource1_Selected(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SqlDataSource1.Selected
        Label1.Text = (e.AffectedRows.ToString())
if val(label10.text)=10 then
MessageBox.show("......")
    End Sub 

سبحان الله

RE: التحقق من عدد السجلات - abdulla2 - 07-09-16

أخي أبو عمر ممكن تعطي مثال ..
لا،ي حاولت افهم الكود ولكن أجد صعوبه ..
أتمنى لو تضع مشروع ليتضح الامر لاني لم افهم لماذا وضعت Label
---
لكي يتضح الامر أتمنى لو تضع مثال بارك الله فيك .

RE: التحقق من عدد السجلات - أبو عمر - 08-09-16

وفيك بارك الله
اذا كنت مستعجل فارفع انت مثال بسيط وعلي التعديل او اي احد من الاخوة يقوم بذلك
او انتظر احد الاخوة يشارك بالمساعدة

RE: التحقق من عدد السجلات - Adrees - 08-09-16

جرب الكود التالي
PHP كود :
Imports System.Data.OleDb
Public Class Form1
    Dim myconnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("Select Count(M_id) from Table1", myconnection)
        da.Fill(dt)
        Label2.Text = dt.Rows(0)(0)
        If dt.Rows(0)(0) = 10 Then
            MessageBox.Show("عفواً....انتهت صلاحية البرنامج يجب عليك شراء النسخة الكاملة.", "إنتهاء الصلاحية", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
            Application.ExitThread()
        End If
    End Sub
End Class 


RE: التحقق من عدد السجلات - abdulla2 - 08-09-16

شكرا أدريس شكرا لك كثيرا ..

وايضا أشكر من حاول يساعدني شكرا لك ابو عمر