Visual Basic

1. Read the question carefully
   
2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
   
3. If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
   
4. If the question is inappropriate then click the 'vote to remove message' button
   

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
   
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
   
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
   
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
   
   
5. Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
   
   
6. Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
   
   
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode "<" (and other HTML) characters when pasting" checkbox before pasting anything inside the PRE block, and make sure "Use HTML in this post" check box is checked.
   
   
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
   
   
9. Please do not post links to your question into an unrelated forum such as the lounge. It will be deleted. Likewise, do not post the same question in more than one forum.
   
   
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
    
    
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
    
    
12. No advertising or soliciting.
    
    
13. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

I would want to prompt user to select a tool name from combobox1, then out automatically, combobox2 gets filled with tool description and size, which is a column in the selected table. Currently i have been using the following code, however the problem comes when i would like to update the database and add another table. This would mean adding the code in the application as well. I would like the application to be able to detect that a new tool table has been added and show that automatically without having to code again

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' ADDING TABLE NAMES TO COMBOBOX 1 (TOOL NAME)

    con.Open()

    Dim schemaTable As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

   For Each dr As DataRow In schemaTable.Rows

            Combobox1.Items.Add(dr.Item("TABLE_NAME"))

   Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Combobox1.SelectedIndexChanged          

'FILLING COMBOBOX 2 (TOOL DESCRIPTION AND SIZE) DEPENDING ON SELECTION IN COMBOBOX 1 (TOOL NAME)

 If Combobox1.SelectedIndex = 1 Then             

Combobox2.Text = ""                         

con.Open()             

Combobox2.Items.Clear()             

Dim dr As OleDbDataReader             

Dim cmd As New OleDbCommand 

cmd.CommandText = "Select * from 14_POUND_HAMMER"            

cmd.Connection = con             

dr = cmd.ExecuteReader             

While dr.Read                 

Combobox2.Items.Add(dr.GetString(1))              

End While             

dr.Close()             

con.Close()



 ElseIf Combobox1.SelectedIndex = 2 Then             

Combobox2.Text = ""                       

con.Open()             

Combobox2.Items.Clear()             

Dim dr As OleDbDataReader             

Dim cmd As New OleDbCommand             

cmd.CommandText = "Select * from 3_QUARTER_IMPACT_WRENCH"             
cmd.Connection = con             

dr = cmd.ExecuteReader             

While dr.Read                 

Combobox2.Items.Add(dr.GetString(0))             

End While             

dr.Close()             

con.Close()



ElseIf Combobox1.SelectedIndex = 3 Then             

Combobox2.Text = ""                         

con.Open()             

Combobox2.Items.Clear()             

Dim dr As OleDbDataReader             

Dim cmd As New OleDbCommand             

cmd.CommandText = "Select * from ABRASIVE_CUT_OFF_SAW "        
cmd.Connection = con             

dr = cmd.ExecuteReader             

While dr.Read                 

Combobox2.Items.Add(dr.GetString(0))             

End While             

dr.Close()             

con.Close() 

Public gvYear As String
Public gvFromMonth As Integer
Public gvToMonth As Integer

Public Sub makeTxData()

       'create table TxDataTable String for cmd
       Dim create_table As String = String.Empty
       create_table = "CREATE TABLE IF NOT EXISTS TxData(
                       TID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,
                       txSortDate TEXT,
                       txYear TEXT,
                       txType TEXT,
                       txAmount TEXT,
                       txCKNum TEXT,
                       txDesc TEXT,
                       txBalance TEXT,
                       txSearchMonth TEXT)"

       Dim dbTable As String = "TxDataTable"