منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار :- بخصوص qsl - نسخة قابلة للطباعة

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

استفسار :- بخصوص qsl - dubai.eig - 11-11-17

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

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


[attachment=16085]
كيف اعمل نفس الطريقه اللي في الصورة

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

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


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

[attachment=16086]
يحدد لي ال 8   Button1.Enabled = True

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


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

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

RE: استفسار :- بخصوص qsl - a.ahmed - 11-11-17

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 


RE: استفسار :- بخصوص qsl - dubai.eig - 11-11-17

(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


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

RE: استفسار :- بخصوص qsl - a.ahmed - 11-11-17

???
(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 


RE: استفسار :- بخصوص qsl - dubai.eig - 12-11-17

(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 


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

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

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

RE: استفسار :- بخصوص qsl - dubai.eig - 12-11-17

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 




السلام عليكم

عندي سؤال 
[attachment=16101]

احاول اسحب بيانات من قاعدة البيانات لاعبي ال 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


بعد ما ضبط


وشكرا 

RE: استفسار :- بخصوص qsl - dubai.eig - 13-11-17

(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


شكرا  Rolleyes