مشاهده نسخه کامل
: mdarling
20-04-2009, 23:44
sub btn_insert(src as object, e as eventargs)
dim cn as new oledbconnection(strcon)
cn.open
dim strsql as string = "insert into agahi values ('" & trim(name.text) & "','" & trim(family.text) & "','" & trim(tel.text) & "' , '" & trim(email.text) & "','" & trim(noe.text) & "','" & trim(nkhodro.text) &"' ,'"& trim(mah.text) & " ',' " & trim(sal.text) & "','" & trim(karkarde.text & "','" & trim(ghimat.text) & "'," & trim(frosh.text) & " ) "
dim cmd as new oledbcommand
cmd.connection=cn
cmd.commandtext=strsql
cmd.executescalar()
cn.close
end sub
:19: </script>
dim cn as new oledbconnection(strcon)
cn.open
dim strsql as string = "insert into agahi values ('" & trim(name.text) & "','" & trim(family.text) & "','" & trim(tel.text) & "' , '" & trim(email.text) & "','" & trim(noe.text) & "','" & trim(nkhodro.text) &"' ,'"& trim(mah.text) & " ',' " & trim(sal.text) & "','" & trim(karkarde.text & "','" & trim(ghimat.text) & "'," & trim(frosh.text) & " ) "
dim cmd as new oledbcommand
cmd.connection=cn
cmd.commandtext=strsql
cmd.executescalar()
cn.close
end sub
:19: </script>