تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها
#1
السلام عليكم 
اخواني كيف يمكنني ان اقوم بتوليد ارقام عشوائية لكن يجب ان لا تتكر في قاعدة البيانات ، استخدمت هذا الكود لكن لم يجد نفعا 
كود :
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
الرد }}}
تم الشكر بواسطة:
#2

اخي الكريم الاهم الفكرةSmile
لاني عملت مثال مع ملف نصي
وهذا كلاس الفورم
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(nidThen 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.ObjectAs System.EventArgsHandles Button1.Click
        loadn
()
 
       Label1.Text str()
 
       My.Computer.FileSystem.WriteAllText("n.txt"Label1.Text vbNewLineTrue)
 
       old Label1.Text
    End Sub
End 
Class 


الملفات المرفقة
.zip   For_larbihamri.zip (الحجم : 28 ك ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة: larbihamri , sendbad100 , elgokr , Done , Done
#3
اخي سعود بارك الله فيك
لكن كيف يمكنني فعل ذلك في قاعدة البيانات اكسس ؟
الكود الذي جربته يعمل لكن لا يكمل عملية التشييك في كل مرة يجد فيها الرقم في قاعدة البيانات 
فهو يقوم بتغيير الرقم في المرة الاولى التي يجده فيها لكن لايقوم بتغييره كلما وجده
الرد }}}
تم الشكر بواسطة: سعود , سعود
#4
اخي الكريم حاول ان تترجم المثال الذي كتبته لك  لكي يعمل مع القاعدة كل اجراء بالمثال الق نظرة عليه هذا افضل لفهم الطريقة لان الكود الذي كتبته انت بالمشاركة يتوقف عند اول نتيجة بعد تنفيذ المطلوب.
اما طريقتي انسب ...
ان لم تجد كلامي مقنعا ارفع مثال بسيط جدا لاجراء التطبيق اللازم.
الرد }}}
تم الشكر بواسطة: sendbad100 , dametucorazon , dametucorazon , Done , Done , larbihamri
#5
الافضل ولتجنب فكرة التحقق هل الرقم موجود في الجدول او لا هو عمل التالي :

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

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

وممكن ايضاً تضيف عليه اجزاء الثانية .
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , dametucorazon , dametucorazon , elgokr , elgokr , Done , Done , larbihamri
#6
اخي سعود ، اخي حريف البرمجة كيف يمكنني شكركما ؟ سوى ان اقول لكما اللهم بارك لهما في علمهما و اهليهما و ارحمهما في الحياة و الممات و اجعلهما جوار سيدنا المصطفى عليه ازكى صلاة و ازكى سلام .
اخي حريف البرمجة هل هناك طريقة يمكنني ان الغي فيها سلاشات التاريخ و نقاط الوقت ؟؟

لقد و جدت الحل اذا لم تكن هناك إضافة اخي حريف البرمجة
كود :
Label1.Text = Date.Now.ToString("ddMMyyyy")
الرد }}}
تم الشكر بواسطة: سعود , elgokr , elgokr
#7
ممكن تستخدم طريقة تحويل التاريخ الى رقم طويل وتستطيع اعادته لاحقا ويمكنك الترتيب بواسطته في الجدول
(UnixDate To date And date To Unix Date)

الان انت تحتاج دالة ToTimeStamp
الرد }}}
تم الشكر بواسطة: larbihamri , larbihamri , elgokr
#8
اخي سعود بارك الله فيك
الرد }}}
تم الشكر بواسطة: سعود , elgokr , elgokr
#9
(26-07-18, 10:41 PM)larbihamri كتب : اخي سعود بارك الله فيك

وفيك بارك الله
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , larbihamri


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  ارقام فوق السطر وتحته Abo Louay 2 191 27-01-24, 11:06 PM
آخر رد: Abo Louay
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم