Imports System.Data.SqlClient

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Regresa_Nombres_Botones()
        For k As Integer = 0 To Regresa_Nombres_Botones.Count - 1
            Me.Controls(Regresa_Nombres_Botones(k)).BackColor = Color.Red
            Me.Controls(Regresa_Nombres_Botones(k)).Enabled = False

        Next


    End Sub

    Private Function Regresa_Nombres_Botones()
        Dim objConn As SqlConnection
        objConn = New SqlConnection("Data Source=xxxxxxxxxxxxxx;Initial Catalog=SIVHOFMANN;User ID=us")
        Dim m As Integer
        Dim Lista_Nombres As New List(Of String)

        Try
            objConn.Open()

            'Creo un Adapter
            Dim objAdapter As New SqlDataAdapter("select local=rtrim(localizacion) from localizacionproducto where producto<>''", objConn)
            'Creo un DataSet
            Dim objDataSet As New DataSet

            'Lleno el DataSet con la Tabla
            objAdapter.Fill(objDataSet, "localizacionproducto")

            'Recorro la tabla para ver que no exista un registro con el mismo nombre
            For m = 0 To objDataSet.Tables(0).Rows.Count - 1
                Lista_Nombres.Add(objDataSet.Tables(0).Rows(m).Item("local"))
            Next

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            objConn.Close()
        End Try

        Return Lista_Nombres


    End Function


    Private Sub btn7h1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7h1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click

        Dim objConn As SqlConnection
        objConn = New SqlConnection("Data Source=xxxxxxxxxxxxxxxxx;Initial Catalog=SIVHOFMANN;User ID=us")
        Try
            objConn.Open()
            Dim objcomand3 As New SqlCommand("insert into localizacionproducto (producto,localizacion) values ('" + txtproducto.Text + "' ,'" + txtlocalizacion.Text + "')", objConn)
            objcomand3.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            objConn.Close()
        End Try

        Call Regresa_Nombres_Botones()
        For k As Integer = 0 To Regresa_Nombres_Botones.Count - 1
            Me.Controls(Regresa_Nombres_Botones(k)).BackColor = Color.Red
        Next

    End Sub

  Private Function Regresa_Nombres_Botones()
        Dim objConn As SqlConnection
        objConn = New SqlConnection("Data Source=xxxxxxxxxxxxxx;Initial Catalog=SIVHOFMANN;User ID=us")
        Dim m As Integer
        Dim Lista_Nombres As New List(Of String)

        Try
            objConn.Open()

            'Creo un Adapter
            Dim objAdapter As New SqlDataAdapter("select local=rtrim(localizacion) from localizacionproducto where producto<>''", objConn)
            'Creo un DataSet
            Dim objDataSet As New DataSet

            'Lleno el DataSet con la Tabla
            objAdapter.Fill(objDataSet, "localizacionproducto")

            'Recorro la tabla para ver que no exista un registro con el mismo nombre
            For m = 0 To objDataSet.Tables(0).Rows.Count - 1
                Lista_Nombres.Add(objDataSet.Tables(0).Rows(m).Item("local"))
            Next

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            objConn.Close()
        End Try

        Return Lista_Nombres


    End Function

        private void Form1_Load(object sender, EventArgs e)
        {
            Regresa_Nombres_Botones();
            for (int k = 0; (k <= (Regresa_Nombres_Botones.Count - 1)); k++)
            {
                this.Controls[Regresa_Nombres_Botones(k)].BackColor = Color.Red;
                this.Controls[Regresa_Nombres_Botones(k)].Enabled = false;
            }
           
           
         }

  



        private List<string> Regresa_Nombres_Botones()
        {
           
            SqlConnection cn = new SqlConnection();
            cn.ConnectionString = "Data Source=200.119.240.243;Initial Catalog=SIVHOFMANN;User ID=us";
            List<string> lista_nombres = new List<string>();
            
            try
            {
                cn.Open();
                SqlDataAdapter ad = new SqlDataAdapter("select local=rtrim(localizacion) from localizacionproducto where producto<>''", cn);
                DataSet ds = new DataSet();
                ad.Fill(ds, "localizacionproducto");
                for (int m = 0; (m < (ds.Tables[0].Rows.Count - 1)); m++)
                {
                    lista_nombres.Add(ds.Tables[0].Rows[m]["local"].ToString());

                }
            }
            catch (Exception ex)
            {
               
                
            }

            return lista_nombres;
            
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            Regresa_Nombres_Botones();
            for (int k = 0; (k <= (Regresa_Nombres_Botones.Count - 1)); k++)
            {
                this.Controls[Regresa_Nombres_Botones(k)].BackColor = Color.Red;
                this.Controls[Regresa_Nombres_Botones(k)].Enabled = false;
            }
           
           
         }