vb.net - How to insert data into SQL Server database and retrieve it and put into datagridview? -


what want is, after insert data sql server database, datagridview retrieve added data database , add in row.

i'm new vb.net

code in dialog add form. name dlgadd

imports system.windows.forms imports system.data.sqlclient  public class dlgadd     dim constr string = "data source=server008;initial catalog=collectiondb;persist security info=true;user id=sa;password=p@ssw0rd1234"     dim sql string     dim sqlcon new sqlconnection     dim sqlcmd new sqlcommand     private sub ok_button_click(byval sender system.object, byval e system.eventargs) handles ok_button.click             sql = "insert datacollection(customername,or_no,sor_no,balance,cash_amount,check_amount) values('" & txtname.text & "','" & txtor.text & "','" & txtsor.text & "','" & txtbalance.text & "','" & txtcash.text & "','" & txtcheck.text & "')"         sqlcmd = new sqlcommand(sql, sqlcon)         sqlcmd.executenonquery()         me.dialogresult = system.windows.forms.dialogresult.ok     end sub      private sub cancel_button_click(byval sender system.object, byval e system.eventargs) handles cancel_button.click         me.dialogresult = system.windows.forms.dialogresult.cancel         me.close()     end sub      private sub dlgadd_load(byval sender system.object, byval e system.eventargs) handles mybase.load         sqlcon = new sqlconnection(constr)         sqlcon.open()     end sub end class  ' here code in maintrans form  dgmaindata datagridview.  imports system.data imports system.data.sqlclient  public class frmmaintrans     dim constr string = "data source=server008;initial catalog=collectiondb;persist security info=true;user id=sa;password=p@ssw0rd1234"     dim sql string = "select * datacollection"     dim sqlcon new sqlconnection     dim sqlcmd new sqlcommand     dim sqladapter sqldataadapter     dim sqlbuilder sqlcommandbuilder     dim sqldataset dataset     dim sqltable datatable     private sub getdata()         sqlcon = new sqlconnection(constr)         sqlcon.open()         sqlcmd = new sqlcommand(sql, sqlcon)         sqladapter = new sqldataadapter(sqlcmd)         sqlbuilder = new sqlcommandbuilder(sqladapter)         sqldataset = new dataset         sqladapter.fill(sqldataset, "datacollection")         sqltable = sqldataset.tables("datacollection")         sqlcon.close()         dgmaindata.datasource = sqldataset.tables("datacollection")         dgmaindata.readonly = true         dgmaindata.selectionmode = datagridviewselectionmode.fullrowselect     end sub     private sub btnadd_click(byval sender system.object, byval e system.eventargs) handles btnadd.click         dlgadd.showdialog()     end sub     private sub frmmaintrans_load(byval sender system.object, byval e system.eventargs) handles mybase.load         call getdata()      end sub end class


-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being
Read more

Delphi 7 and decode UTF-8 base64 -

in delphi 7, have widestring encoded base64(that received web service widestring result) : pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg== when decoded it, result not utf-8: <?xml version="1.0"?> <string>طھط³طھ</string> but when decoded base64decode.org, result true : <?xml version="1.0"?> <string>تست</string> i have use encddecd unit decodestring function. the problem have using decodestring . function, in delphi 7, treats decoded binary data being ansi encoded. , problem text utf-8 encoded. to continue encddecd unit have couple of options. can switch decodestream . instance, code produce utf-8 encoded text file data: {$apptype console} uses classes, encddecd; const data = 'pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg=='; var input: tstringstream; output: tfilestream; begin input := tstringstream.create(data); try output := tfilestream.
Read more

html - Is there any way to exclude a single element from the style? (Bootstrap) -

so, have img logo, overlaid on div styled background-image: url("...") , , both elements inside 2 div classes .to-color , .to-overlay respectively, black transparent overlay. is there way exclude logo style given these 2 classes? here's jsfiddle example: link html , css example: - html - <div class="to-color"> <div class="to-overlay"> <div class="respo"> <div class="row"> <div class="col-xs-4 col-xs-offset-4 text-center"> <img src="http://ansonalex.com/wp-content/uploads/2011/06/google-logo-768x260.png" alt="..." class="img-responsive"> </div> </div> </div> </div> </div> - css - .to-color { background-color: #000; } .to-overlay { opacity : 0.5; } .respo { background-image: url("https://source.unsplash.com/category/objects/1600x900"); background-position: center center;
Read more