[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

شكرا