[larbihamri]

السلام عليكم 

اخواني كيف يمكنني ان اقوم بتوليد ارقام عشوائية لكن يجب ان لا تتكر في قاعدة البيانات ، استخدمت هذا الكود لكن لم يجد نفعا 

كود :

Dim rndN As Integer
       rndN = Int(Rnd() * 10) + 1
       Me.L_Nbon_credit.Text = rndN.ToString
       For I As Integer = 0 To Me.DbDataSet.credit.Rows.Count - 1
           If Me.DbDataSet.credit.Rows(I).Item("Nbon") = Me.L_Nbon_credit.Text Then
               rndN = Int(Rnd() * 10) + 1
               Me.L_Nbon_credit.Text = rndN.ToString
           End If
       Next

[سعود]

اخي الكريم الاهم الفكرة

لاني عملت مثال مع ملف نصي

وهذا كلاس الفورم

PHP كود :

Public Class Form1
    Dim alln As List(Of String)
    Dim old As Integer = 0
    Private Function str() As String
begin:
        Dim nid As Integer = Int(Rnd() * 1000)
        If old = nid Then GoTo begin
        If alln.Contains(nid) Then GoTo begin
        Return nid
    End Function
    Private Sub loadn()
        alln = New List(Of String)
        alln.AddRange(My.Computer.FileSystem.ReadAllText("n.txt").Split(vbNewLine))
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        loadn()
        Label1.Text = str()
        My.Computer.FileSystem.WriteAllText("n.txt", Label1.Text & vbNewLine, True)
        old = Label1.Text
    End Sub
End Class 


[larbihamri]

اخي سعود بارك الله فيك
لكن كيف يمكنني فعل ذلك في قاعدة البيانات اكسس ؟
الكود الذي جربته يعمل لكن لا يكمل عملية التشييك في كل مرة يجد فيها الرقم في قاعدة البيانات 
فهو يقوم بتغيير الرقم في المرة الاولى التي يجده فيها لكن لايقوم بتغييره كلما وجده

[سعود]

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

[حريف برمجة]

الافضل ولتجنب فكرة التحقق هل الرقم موجود في الجدول او لا هو عمل التالي :

تاخذ الوقت والتاريخ بدون سلاشات مثلاً :
20180724101927

الوقت 10:19:27
التاريخ 2018/07/24

وممكن ايضاً تضيف عليه اجزاء الثانية .

[larbihamri]

اخي سعود ، اخي حريف البرمجة كيف يمكنني شكركما ؟ سوى ان اقول لكما اللهم بارك لهما في علمهما و اهليهما و ارحمهما في الحياة و الممات و اجعلهما جوار سيدنا المصطفى عليه ازكى صلاة و ازكى سلام .
اخي حريف البرمجة هل هناك طريقة يمكنني ان الغي فيها سلاشات التاريخ و نقاط الوقت ؟؟

---

لقد و جدت الحل اذا لم تكن هناك إضافة اخي حريف البرمجة

كود :

Label1.Text = Date.Now.ToString("ddMMyyyy")

[سعود]

ممكن تستخدم طريقة تحويل التاريخ الى رقم طويل وتستطيع اعادته لاحقا ويمكنك الترتيب بواسطته في الجدول
(UnixDate To date And date To Unix Date)

---

الان انت تحتاج دالة ToTimeStamp

[larbihamri]

اخي سعود بارك الله فيك

[سعود]

اخي سعود بارك الله فيك

وفيك بارك الله