sql - Changing Label backcolour if a record is in a database (Visual Basic Express 2010) -


been following question on site try , change label backcolour visible in .mdb database, using sql connect vb.net database. have seating plan set grid in form, using labels seats. labels should turn red if seat-code shown in booking database (the record added when seat booked) otherwise if returns no records label stays green.

private sub checkfriday()     dim friday(11, 20) control      'friday row     friday(1, 1) = fa1     friday(1, 2) = fa2     friday(1, 3) = fa3     friday(1, 4) = fa4     friday(1, 5) = fa5     friday(1, 6) = fa6     friday(1, 7) = fa7     friday(1, 8) = fa8     friday(1, 9) = fa9     friday(1, 10) = fa10     friday(1, 11) = fa11     friday(1, 12) = fa12     friday(1, 13) = fa13     friday(1, 14) = fa14     'friday row b     friday(2, 1) = fb1     friday(2, 2) = fb2     friday(2, 3) = fb3     friday(2, 4) = fb4     friday(2, 5) = fb5     friday(2, 6) = fb6     friday(2, 7) = fb7     friday(2, 8) = fb8     friday(2, 9) = fb9     friday(2, 10) = fb10     friday(2, 11) = fb11     friday(2, 12) = fb12     friday(2, 13) = fb13     friday(2, 14) = fb14     friday(2, 15) = fb15     friday(2, 16) = fb16     'friday row c     friday(3, 1) = fc1     friday(3, 2) = fc2     friday(3, 3) = fc3     friday(3, 4) = fc4     friday(3, 5) = fc5     friday(3, 6) = fc6     friday(3, 7) = fc7     friday(3, 8) = fc8     friday(3, 9) = fc9     friday(3, 10) = fc10     friday(3, 11) = fc11     friday(3, 12) = fc12     friday(3, 13) = fc13     friday(3, 14) = fc14     friday(3, 15) = fc15     friday(3, 16) = fc16     friday(3, 17) = fc17     'friday row d     friday(4, 1) = fd1     friday(4, 2) = fd2     friday(4, 3) = fd3     friday(4, 4) = fd4     friday(4, 5) = fd5     friday(4, 6) = fd6     friday(4, 7) = fd7     friday(4, 8) = fd8     friday(4, 9) = fd9     friday(4, 10) = fd10     friday(4, 11) = fd11     friday(4, 12) = fd12     friday(4, 13) = fd13     friday(4, 14) = fd14     friday(4, 15) = fd15     friday(4, 16) = fd16     friday(4, 17) = fd17     friday(4, 18) = fd18     friday(4, 19) = fd19     'friday row e     friday(5, 1) = fe1     friday(5, 2) = fe2     friday(5, 3) = fe3     friday(5, 4) = fe4     friday(5, 5) = fe5     friday(5, 6) = fe6     friday(5, 7) = fe7     friday(5, 8) = fe8     friday(5, 9) = fe9     friday(5, 10) = fe10     friday(5, 11) = fe11     friday(5, 12) = fe12     friday(5, 13) = fe13     friday(5, 14) = fe14     friday(5, 15) = fe15     friday(5, 16) = fe16     friday(5, 17) = fe17     friday(5, 18) = fe18     friday(5, 19) = fe19     friday(5, 20) = fe20     'friday row f     friday(6, 1) = ff1     friday(6, 2) = ff2     friday(6, 3) = ff3     friday(6, 4) = ff4     friday(6, 5) = ff5     friday(6, 6) = ff6     friday(6, 7) = ff7     friday(6, 8) = ff8     friday(6, 9) = ff9     friday(6, 10) = ff10     friday(6, 11) = ff11     friday(6, 12) = ff12     friday(6, 13) = ff13     friday(6, 14) = ff14     friday(6, 15) = ff15     friday(6, 16) = ff16     friday(6, 17) = ff17     friday(6, 18) = ff18     friday(6, 19) = ff19     friday(6, 20) = ff20     'friday row g     friday(7, 1) = fg1     friday(7, 2) = fg2     friday(7, 3) = fg3     friday(7, 4) = fg4     friday(7, 5) = fg5     friday(7, 6) = fg6     friday(7, 7) = fg7     friday(7, 8) = fg8     friday(7, 9) = fg9     friday(7, 10) = fg10     friday(7, 11) = fg11     friday(7, 12) = fg12     friday(7, 13) = fg13     friday(7, 14) = fg14     friday(7, 15) = fg15     friday(7, 16) = fg16     friday(7, 17) = fg17     friday(7, 18) = fg18     friday(7, 19) = fg19     'friday row h     friday(8, 1) = fh1     friday(8, 2) = fh2     friday(8, 3) = fh3     friday(8, 4) = fh4     friday(8, 5) = fh5     friday(8, 6) = fh6     friday(8, 7) = fh7     friday(8, 8) = fh8     friday(8, 9) = fh9     friday(8, 10) = fh10     friday(8, 11) = fh11     friday(8, 12) = fh12     friday(8, 13) = fh13     friday(8, 14) = fh14     friday(8, 15) = fh15     friday(8, 16) = fh16     friday(8, 17) = fh17     friday(8, 18) = fh18     friday(8, 19) = fh19     'friday row j     friday(9, 1) = fj1     friday(9, 2) = fj2     friday(9, 3) = fj3     friday(9, 4) = fj4     friday(9, 5) = fj5     friday(9, 6) = fj6     friday(9, 7) = fj7     friday(9, 8) = fj8     friday(9, 9) = fj9     friday(9, 10) = fj10     friday(9, 11) = fj11     friday(9, 12) = fj12     friday(9, 13) = fj13     friday(9, 14) = fj14     friday(9, 15) = fj15     friday(9, 16) = fj16     friday(9, 17) = fj17     friday(9, 18) = fj18     friday(9, 19) = fj19     'friday row k     friday(10, 1) = fk1     friday(10, 2) = fk2     friday(10, 3) = fk3     friday(10, 4) = fk4     friday(10, 5) = fk5     friday(10, 6) = fk6     friday(10, 7) = fk7     friday(10, 8) = fk8     friday(10, 9) = fk9     friday(10, 10) = fk10     friday(10, 11) = fk11     friday(10, 12) = fk12     friday(10, 13) = fk13     friday(10, 14) = fk14     friday(10, 15) = fk15     friday(10, 16) = fk16     friday(10, 17) = fk17     friday(10, 18) = fk18     friday(10, 19) = fk19     'friday row l     friday(11, 1) = fl1     friday(11, 2) = fl2     friday(11, 3) = fl3     friday(11, 4) = fl4     friday(11, 5) = fl5     friday(11, 6) = fl6     friday(11, 7) = fl7     friday(11, 8) = fl8     friday(11, 9) = fl9     friday(11, 10) = fl10     friday(11, 11) = fl11     friday(11, 12) = fl12     friday(11, 13) = fl13     friday(11, 14) = fl14     friday(11, 15) = fl15     dim integer = 0     dim x integer     dim y integer     con.connectionstring = dbprovider & dbsource     con.open() 'opens connection database     y = 1 11         x = 1 20             sql = "select * sales seat_id = '" & friday(x, y) & "'"             da = new oledb.oledbdataadapter(sql, con) 'create data adapter store filtered data using sql code             msgbox(sql)             da.fill(ds, a)             = + 1             dim recordcount integer             recordcount = ds.tables(a).rows.count             msgbox(recordcount)              if recordcount = 1                 friday(x, y).backcolor = color.red             else                 friday(x, y).backcolor = color.green             end if         next x     next y  end sub 

i error:

error 1 operator '&' not defined types 'string' , 'system.windows.forms.control'. c:\users\connor loughlin\desktop\windowsapplication1\windowsapplication1\seatingplan.vb 238 23 sads booking system

would grateful suggestions or feedback, vb sure isn't strongest subject.

thank help!

you're using object instead of text represents. try using .tostring if object supports that.

sql = "select * sales seat_id = '" & friday(x, y).tostring & "'"


Comments

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

c++ - qgraphicsview horizontal scrolling always has a vertical delta -