[dubai.eig]

السلام عليكم ورحمة الله 

يسعد الله اوقاتكم


   
كيف اعمل نفس الطريقه اللي في الصورة

مثلا قاعدة البيانات فيها خمس ادخالات يعمل لي المربعات من واحد لين خمس 
 Button1.Enabled = True

ومن 6 لين عشرة
  Button1.Enabled = False


واذا الادخالات في قاعدة البيانات مثلا 8

   
يحدد لي ال 8   Button1.Enabled = True

والتاسع والعاشر 
  Button1.Enabled = False


واذا الادخالات في قاعدة البيانات اكثر من عشر مثلا 20 او 30
   
يطلع لي العشر مربعات 
 Button1.Enabled = True

اتمنى الفكرة وصلت والسموحه 
بارك الله فيكم وشكرا

[a.ahmed]

PHP كود :

Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

For i = 0 To btns.Length - 1
    btns(i).Enabled = (i < dt.Rows.Count)
Next 


[dubai.eig]

(11-11-17, 08:24 PM)a.ahmed كتب :

PHP كود :

Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

For i = 0 To btns.Length - 1
    btns(i).Enabled = (i < dt.Rows.Count)
Next 


تسلم يا بطل

بارك الله فيك

بس سؤال  بعد اذنك

كيف اربط الكود مع قاعدة البيانات

مثال

كود :

           Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

           Dim cntotel As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & contestnyearx & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
           Dim okall As New SQLiteCommand(" SELECT COUNT(id) FROM DBQTC", cntotel)

           cntotel.Open()


           For i = 0 To btns.Length - 1
               btns(i).Enabled = (i < dt.Rows.Count)
           Next

والسموحه ويعطيك العافيه على مجهودك ووقتك

[a.ahmed]

???

(11-11-17, 09:13 PM)dubai.eig كتب : تسلم يا بطل

PHP كود :

          Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

           Dim cntotel As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & contestnyearx & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
           Dim okall As New SQLiteCommand(" SELECT COUNT(id) FROM DBQTC", cntotel)

           cntotel.Open()

           Dim c As Integer = okall.ExecuteScalar()
           For i = 0 To btns.Length - 1
               btns(i).Enabled = (i < c )
           Next 


[dubai.eig]

(11-11-17, 09:34 PM)a.ahme كتب :

PHP كود :

          Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

           Dim cntotel As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & contestnyearx & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
           Dim okall As New SQLiteCommand(" SELECT COUNT(id) FROM DBQTC", cntotel)

           cntotel.Open()

           Dim c As Integer = okall.ExecuteScalar()
           For i = 0 To btns.Length - 1
               btns(i).Enabled = (i < c )
           Next 


تسلم بارك  الله  فيك

دائما تتحفنا بلمساتك الجميله

مبدع يا اخي شكرا شكرا شكرا

[dubai.eig]

PHP كود :

          Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

           Dim cntotel As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & contestnyearx & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
           Dim okall As New SQLiteCommand(" SELECT COUNT(id) FROM DBQTC", cntotel)

           cntotel.Open()

           Dim c As Integer = okall.ExecuteScalar()
           For i = 0 To btns.Length - 1
               btns(i).Enabled = (i < c )
           Next 


السلام عليكم

عندي سؤال 
   

احاول اسحب بيانات من قاعدة البيانات لاعبي ال TextBox

هذا الكود

كود :

       Dim dr As SQLiteDataReader
       Dim cn As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & opencontest & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim cmdi As New SQLiteCommand("SELECT * FROM DBQTC ORDER BY id desc limit 2", cn)
       cn.Open()

       dr = cmdi.ExecuteReader()

       While dr.Read()
           TextBox1.Text = dr.Item(9)
           TextBox2.Text = dr.Item(7)
           TextBox3.Text = dr.Item(15)

       End While

ال desc limit 2

ممكن يكون 2 اواكثر مثلا 9
او10 على حسب المربعات

حاولت بس ما ضبط

بحثت في النت كثير ما حصلت الحل
حاولت اغير في الكود 

كود :

      While dr.Read()
           TextBox1.Text = dr.Item(9)
           TextBox2.Text = dr.Item(7)
           TextBox3.Text = dr.Item(15)

           TextBox6.Text = dr.Item(9)
           TextBox5.Text = dr.Item(7)
           TextBox4.Text = dr.Item(15)

       End While

بعد ما ضبط


وشكرا 

[dubai.eig]

(12-11-17, 11:21 PM)dubai.eig كتب :

PHP كود :

          Dim btns As Button() = {Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10}

           Dim cntotel As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & contestnyearx & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
           Dim okall As New SQLiteCommand(" SELECT COUNT(id) FROM DBQTC", cntotel)

           cntotel.Open()

           Dim c As Integer = okall.ExecuteScalar()
           For i = 0 To btns.Length - 1
               btns(i).Enabled = (i < c )
           Next 


السلام عليكم

عندي سؤال 


احاول اسحب بيانات من قاعدة البيانات لاعبي ال TextBox

هذا الكود

كود :

       Dim dr As SQLiteDataReader
       Dim cn As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DB" & opencontest & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim cmdi As New SQLiteCommand("SELECT * FROM DBQTC ORDER BY id desc limit 2", cn)
       cn.Open()

       dr = cmdi.ExecuteReader()

       While dr.Read()
           TextBox1.Text = dr.Item(9)
           TextBox2.Text = dr.Item(7)
           TextBox3.Text = dr.Item(15)

       End While

ال desc limit 2

ممكن يكون 2 اواكثر مثلا 9
او10 على حسب المربعات

حاولت بس ما ضبط

بحثت في النت كثير ما حصلت الحل
حاولت اغير في الكود 

كود :

      While dr.Read()
           TextBox1.Text = dr.Item(9)
           TextBox2.Text = dr.Item(7)
           TextBox3.Text = dr.Item(15)

           TextBox6.Text = dr.Item(9)
           TextBox5.Text = dr.Item(7)
           TextBox4.Text = dr.Item(15)

       End While

بعد ما ضبط


وشكرا 

الحمدالله حصلت الحل 

كود :

  Private ProductList As New List(Of String)


Dim ProductStr As String = "SELECT * FROM DBQTC ORDER BY id desc limit " & IDQTCS & ""
       Dim ProductSql As New SQLiteCommand(ProductStr, ProductConnection)
       Dim ProductDa As New SQLiteDataAdapter(ProductSql)
       Dim ProductDs As New DataSet
       ProductDa.Fill(ProductDs)
       ProductList.Clear()

       For Each dr As DataRow In ProductDs.Tables(0).Rows
           ProductList.Add(dr.Item(9).ToString)
           ProductList.Add(dr.Item(7).ToString)
           ProductList.Add(dr.Item(15).ToString)
       Next

       For i As Integer = 0 To ProductList.Count - 1
           Me.Controls.Find("TextBox" & i + 1, True)(0).Text = ProductList.Item(i)
       Next

شكرا