sql server - In Visual Studio 2013 I simply want to pass data to a sql table using VB? -


i designing application forte have code end. using visual studio 2013 devexpress , sql server 2014. may simple question have struggled find straight answer anywhere. have asp.net book still cant find answer. think have connected whole solution connection string in can populate tables , stored procedures dataclass. want add user input table on sql server using button onclick event. surely cant difficult remember bit of newbie appreciated. if there questions need answered assist let me know. writing in vb script struggling work. advice appreciated. in advance!

     protected sub btnaddnewsource_click(sender system.object, e eventargs) handles btnaddnewsource.click       'errdetails.text = ""     'errdetails.visible = false     'focusset = false     'errcount = 0     'errdetails.text = ""      'if txtsourcefunding.text = ""     '    errdetails.text = errdetails.text + "did enter funding source?" + vbnewline     '    errdetails.visible = true     '    txtsourcefunding.focus()     '    focusset = true     '    errcount = errcount + 1     'end if      'if txtcontributionfunding.text = ""     '    errdetails.text = errdetails.text + "did enter contribution?" + vbnewline     '    errdetails.visible = true     '    txtcontributionfunding.focus()     '    focusset = true     '    errcount = errcount + 1     'end if      'if cmbstatus.value = -1     '    errdetails.text = errdetails.text + "did inform of status?" + vbnewline     '    errdetails.visible = true     '    cmbstatus.focus()     '    focusset = true     '    errcount = errcount + 1     'end if      'if focusset = true     '    errdetails.forecolor = drawing.color.red     '    errdetails.height = 20 * errcount     '    errdetails.visible = true     '    return     'end if      'dim btnsource = (from o in dc1.update_grantapplicationcyclefunding o.grantapplicationid = session("currentprojectid").tostring).firstordefault     'if not isnothing(btnsource)     '    btnsource.grantapplicationid = session("currentprojectid")     '    btnsource.grantapplicationcyclefundingsource = txtsourcefunding.tostring     '    btnsource.grantapplicationcyclefundingcontribution = txtcontributionfunding.tostring     '    btnsource.grantapplicationcyclefundingstatusid = cmbstatus.tostring     '    btnsource.grantapplicationcyclefundingnotes = memfundingnotes.tostring      'else      '    dim newgrantapplicationcyclefundings new grantapplicationcyclefunding     '    newgrantapplicationcyclefundings     '        .grantapplicationid = session("currentprojectid")     '        .grantapplicationcyclefundingsource = txtsourcefunding.tostring     '        .grantapplicationcyclefundingcontribution = txtcontributionfunding.tostring     '        .grantapplicationcyclefundingstatusid = cmbstatus.tostring     '        .grantapplicationcyclefundingnotes = memfundingnotes.text     '    end     '    dc1.grantapplicationcyclefundings.insertonsubmit(newgrantapplicationcyclefundings)     '    dc1.submitchanges()     '        end if      'dc1.submitchanges()

hey have managed make button add data datagrid. big thing missed declarations of fields values @ bottom of code , of course databind! never forget correct databind. can adapt , use in own code if having similar problems! if need or explanation , can will. add comment. thanks

    ** errdetails.text = ""     errdetails.visible = false     focusset = false     errcount = 0     errdetails.text = ""      if spntotalestimatedcost.value <= 0         errdetails.text = errdetails.text + "please enter cost." + vbnewline         errdetails.visible = true         if focusset = false             spntotalestimatedcost.focus()             focusset = true         end if         errcount = errcount + 1     end if      if txtsourcefunding.text = ""         errdetails.text = errdetails.text + "please........?" + vbnewline         errdetails.visible = true         txtsourcefunding.focus()         focusset = true         errcount = errcount + 1     end if      if spncontributionfunding.value = 0         errdetails.text = errdetails.text + "please......" + vbnewline         errdetails.visible = true         spncontributionfunding.focus()         focusset = true         errcount = errcount + 1     end if      if focusset = true         errdetails.forecolor = drawing.color.red         errdetails.height = 20 * errcount         errdetails.visible = true         return     end if      dim newgrantapplicationmatchfundings new grantapplicationmatchfunding     newgrantapplicationmatchfundings         .grantapplicationid = session("currentprojectid")         .grantapplicationmatchfundingname = txtsourcefunding.text         .grantapplicationmatchfundingcontribution = spncontributionfunding.value         .grantapplicationmatchfundingstatus = cmbstatus.selecteditem.value         .grantapplicationmatchfundingnotes = memfundingnotes.text     end     dc1.grantapplicationmatchfundings.insertonsubmit(newgrantapplicationmatchfundings)     dc1.submitchanges()     'end if       'dc1.submitchanges()      txtsourcefunding.text = ""     spncontributionfunding.value = ""     cmbstatus.value = ""     memfundingnotes.text = ""     grdfunding.databind()       dim btntotal = (from o in dc1.select_grantapplicationmatchfundingtotal(session("currentprojectid").tostring)).firstordefault     if not isnothing(btntotal)         spntotalmatchfunding.text = btntotal.totalfunding         txtgrantfunding.text = (spntotalmatchfunding.value / spntotalestimatedcost.value) * 100     else         spntotalmatchfunding.text = 0         txtgrantfunding.text = 0     end if      dim cafchange = (from o in dc1.grantapplicationcostsandfundings o.grantapplicationid.tostring = session("currentprojectid").tostring).firstordefault     if not isnothing(cafchange)         cafchange.grantapplicationid = session("currentprojectid")         cafchange.grantapplicationprojectcostsyear1 = spntotalestimatedcost.value         cafchange.grantapplicationmatchedfundingnotesyear1 = memnotesmatchfunding.text         cafchange.grantapplicationprojectrequestedyear1 = txtgrantfunding.value         dc1.submitchanges()     else         dim newgrantapplicationcostsandfundings new grantapplicationcostsandfunding         newgrantapplicationcostsandfundings             .grantapplicationid = session("currentprojectid")             .grantapplicationprojectcostsyear1 = spntotalestimatedcost.value             .grantapplicationmatchedfundingnotesyear1 = memnotesmatchfunding.text             .grantapplicationprojectrequestedyear1 = txtgrantfunding.value         end         dc1.grantapplicationcostsandfundings.insertonsubmit(newgrantapplicationcostsandfundings)         dc1.submitchanges()     end if

end sub


Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

php - Nothing but 'run(); ' when browsing to my local project, how do I fix this? -

i added new project. made mistake in projectname.conf file in sites-available apache2, led me reinstalling apache2. after reinstalling , re-enabling projects on every page of every project .. <body> run(); </body> .. i've run composer update, restarted service, restarted pc, checked config files, tried disabling new project. there nothing in error log, , access.log: 127.0.0.1 - - [15/may/2015:01:40:47 +0200] "get / http/1.1" 304 181 "-" "mozilla/5.0 (x11; ubuntu; linux x86_64; rv:38.0) gecko/20100101 firefox/38.0" maybe i'm forgetting apache2 reinstall? don't think did different last time installed it. looks haven't setup php correctly. take @ this great guide , maybe you're forgetting link php config apache2.
Read more

php - How can I echo out this array? -

i don't know how go grabbing data in variable , put foreach loop. class tree{ private $info = array( array('name'=>'jim','state'=>'nu','company'=>'nu','phone'=>array('cell'=>'5615111111','office'=>'5611111111'),'email'=>array('primary'=>'exs@example.com','ex@there.com')), array('name'=>'joe smith','city'=>'phoenix','phone'=>'4805551111','email'=>'jsmith@some_email.com'), array('name'=>'john doe','city'=>'chandler','company'=>'doe co.','email'=>array('jdoe@gmail.com','personal'=>'email@email.com'),'phone'=>'6025550002') ); } if you're inside of class, can access private variable using $this->variablename . example, i...
Read more