vb.net - How does the for each loop works with lisbox.items(0)? -
cmd = new oledb.oledbcommand("insert [orderdetail] ([orderid],[cinemaid], [seatid], [moviename],[movietime],[price]) values (@orderid,@cinemaid, @seatid,@moviename,@movietime,@price)", con) cmd.parameters.add("@orderid", dbase.oledbtype.numeric, 15).value = label11.text cmd.parameters.add("@cinemaid", dbase.oledbtype.varchar, 255).value = movie.cinid cmd.parameters.add("@seatid", dbase.oledbtype.varchar, 255).value = listbox1.items(0) cmd.parameters.add("@moviename", dbase.oledbtype.varchar, 255).value = movie.movien cmd.parameters.add("@movietime", dbase.oledbtype.varchar, 255).value = movie.moviet dim sql string dim data dbase.oledbdatareader dim cmdd dbase.oledbcommand sql = "select * seattype id = """ & sid & """" cmdd = new dbase.oledbcommand(sql, con) con.open() data = cmdd.executereader data.read() sprice = data("price") cmd.parameters.add("@price", dbase.oledbtype.varchar, 255).value = sprice con.close() con.open() cmd.executenonquery() msgbox("saved") con.close()
i want whole thing go through each loop, listbox1.items(0)
keep on changing depending on items index. there way that?
is doing need?
for each seatid in listbox1.items.cast(of string)() cmd = new oledb.oledbcommand("insert [orderdetail] ([orderid],[cinemaid], [seatid], [moviename],[movietime],[price]) values (@orderid,@cinemaid, @seatid,@moviename,@movietime,@price)", con) cmd.parameters.add("@orderid", dbase.oledbtype.numeric, 15).value = label11.text cmd.parameters.add("@cinemaid", dbase.oledbtype.varchar, 255).value = movie.cinid cmd.parameters.add("@seatid", dbase.oledbtype.varchar, 255).value = seatid cmd.parameters.add("@moviename", dbase.oledbtype.varchar, 255).value = movie.movien cmd.parameters.add("@movietime", dbase.oledbtype.varchar, 255).value = movie.moviet 'remainder of code next
Comments
Post a Comment