<div>
How are the buttons named, does their name have the Shop number in it, or is it just the text on the button itself? 
 
Is there a one to one relationship between the rows in the table of Shops, and the buttons. &nbsp;Or are there more or less in either? 
 
Did you program this so far, so can we assume that you have a connection to the database, and know how to select the rows from the table involved? 
 

<hr />
»bp
</div>

<div>
Hello @Bill Prew , 
 
yes the data base connected and the picture above is a ready form, 
 
How are the buttons named, does their name have the Shop number in it, or is it just the text on the button itself? 
the button text &nbsp;and the button name is the same in the database column like : shop_id = 22 there is button called &nbsp;button22 
 
Is there a one to one relationship between the rows in the table of Shops, and the buttons. &nbsp;Or are there more or less in either? 
yes the relationship is one to one, each row in the table have one button in the form. 
 
Did you program this so far, so can we assume that you have a connection to the database, and know how to select the rows from the table involved? 
yes I already done this but its a long way and need a lots of code, so i know that this can be done by for loop but i cant do it . 
 
this is my code, but i have many forms and this is a long way to do it. 
 

<pre><code class="code-10 nolinks" id="code-20-42352345-1"> Dim mylist1 As New List(Of Boolean)
 Private Sub sss()

 If SQL.conn.State = ConnectionState.Open Then
 SQL.conn.Close()
 End If
 SQL.conn.Open()
 Dim cmd As New SqlCommand()
 cmd.Connection = SQL.conn
 cmd.CommandText = &quot;select * from shops where floor=@floor and location=@location order by shop_id&quot;
 cmd.Parameters.AddWithValue(&quot;floor&quot;, &quot;1&quot;)
 cmd.Parameters.AddWithValue(&quot;location&quot;, &quot;G2&quot;)
 Dim dr As SqlDataReader = cmd.ExecuteReader
 While dr.Read
 Dim status As Boolean = dr.Item(4)
 mylist1.Add(String.Format(status))
 End While
 dr.Close()
 SQL.conn.Close()

 End Sub
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 sss()
 MsgBox(mylist1.Item(0))
 MsgBox(mylist1.Item(mylist1.Count - 1))

 For i As Integer = 0 To mylist1.Count - 1
 If mylist1.Item(0) = False Then
 Button21.BackColor = Color.Green
 End If
 If mylist1.Item(1) = False Then
 Button22.BackColor = Color.Green
 End If
 If mylist1.Item(2) = False Then
 Button23.BackColor = Color.Green
 End If
 If mylist1.Item(3) = False Then
 Button24.BackColor = Color.Green
 End If
 If mylist1.Item(4) = False Then
 Button25.BackColor = Color.Green
 End If
 If mylist1.Item(5) = False Then
 Button26.BackColor = Color.Green
 End If
 If mylist1.Item(6) = False Then
 Button27.BackColor = Color.Green
 End If
 If mylist1.Item(7) = False Then
 Button28.BackColor = Color.Green
 End If
 If mylist1.Item(8) = False Then
 Button29.BackColor = Color.Green
 End If
 Next
 End Sub
</code></pre>
</div>

<div>
thank you, its work now 
 
the final code is : 
[code]Dim pagingAdapter As SqlDataAdapter 
&nbsp; &nbsp; &nbsp; &nbsp; Dim pagingDS As DataSet 
&nbsp; &nbsp; &nbsp; &nbsp; Dim dt As New DataTable 
 
&nbsp; &nbsp; &nbsp; &nbsp; Dim sqlstring As String = &quot;Select * FROM shops where location=N'مجمع 02'&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; 'فحص الاتصال بقاعدة البيانات 
&nbsp; &nbsp; &nbsp; &nbsp; If SQL.conn.State = ConnectionState.Open Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SQL.conn.Close() 
&nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; SQL.conn.Open() 
 
&nbsp; &nbsp; &nbsp; &nbsp; pagingAdapter = New SqlDataAdapter(sqlstring, SQL.conn) 
&nbsp; &nbsp; &nbsp; &nbsp; pagingDS = New DataSet() 
&nbsp; &nbsp; &nbsp; &nbsp; pagingAdapter.Fill(pagingDS, &quot;shops&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; dt = pagingDS.Tables(&quot;shops&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox(dt.Rows.Count) 
&nbsp; &nbsp; &nbsp; &nbsp; Try 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each row As DataRow In dt.Rows 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim state As String = row(&quot;status&quot;).ToString 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim btn As Button = TryCast(Panel1.Controls(&quot;Button&quot; &amp;&nbsp;row.Item(&quot;Shop_id&quot;).ToString), Button) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If state = &quot;فارغ&quot; Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; btn.BackColor = Color.Green 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; btn.BackColor = Color.Red 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next 
&nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception 
 
&nbsp; &nbsp; &nbsp; &nbsp; End Try 
 
&nbsp; &nbsp; &nbsp; &nbsp; SQL.conn.Close() 
[/code]
</div>

<div>
<div class="content wysiwyg-content">
Hello all, 
 
i want to change the backcolor for buttons depends on information from database, 
i have form has multiple buttons like this picture bellow. 
 
I have a database table for shops (stores),There is a column in this table that contains the shop number and a column for its status : Yes or No (if rented or empty) 
 
in the model Each shop has a button and this button named as the number of the store number in the database 
How can I do for loop to Retrieve store data from the database 
and &nbsp;changes the color of the button depends on the data from the database if it is empty or rented. 
 
thank you, 
 
<a href="https://filedb.experts-exchange.com/incoming/2017/11_w44/1202767/vb.PNG" target="_blank" title="picture (207 KB)"><img alt="picture" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2017/11_w44/800_1202767/vb.PNG" /></a>
</div>
</div>

vb.PNG

Hello all,

i want to change the backcolor for buttons depends on information from database,
i have form has multiple buttons like this picture bellow.

I have a database table for shops (stores),There is a column in this table that contains the shop number and a column for its status : Yes or No (if rented or empty)

in the model Each shop has a button and this button named as the number of the store number in the database
How can I do for loop to Retrieve store data from the database
and  changes the color of the button depends on the data from the database if it is empty or rented.

thank you,



Change button color depends on the data from the database

Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to  Visual Basic pre-2002, it is not the same technology,

Visual Basic.NET

Microsoft Visual C++ (often abbreviated as MSVC or VC++) is an integrated development environment (IDE) product from Microsoft for the C, C++, and C++/CLI programming languages. It features tools for developing and debugging C++ code, especially code written for the Microsoft Windows API, the DirectX API, and the Microsoft .NET Framework. Many applications require redistributable Visual C++ packages to function correctly and are often installed independently of applications, allowing multiple applications to make use of the package while only having to install it once

Visual C++.NET

Databases are organized collections of data, most commonly accessed through management systems including schemas, tables, queries and processes that allow users to enter and manipulate the information or utilize it in other fashions, such as with web applications or for reporting purposes.