take 3 text box.
imports system.data.oledb
dim cn as oledbconnection
dim cmd as oledbcommand
dim q as string
q=';insert into tablename values(@value1,@value2,@value3)
cn=new oledbconnection(';provider=microsoft.jet.鈥?source= path %26amp; name of your database;';)
cn.open
cmd=new oledbcommand(q,cn)
with cmd.parameters
.addwithvalues(';@value1';,textbox1.text)
.addwithvalues(';@value2';,textbox2.text鈥?br>
.addwithvalues(';@value3';,textbox2.text鈥?br>
end with
cmd.execute nonquery
Any problem ask
No comments:
Post a Comment