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
Post a Comment