VB.NET 2008 DataGridView not Updating Visual Foxpro Database -
i'm using vb.net 2008 datagridview , i'm interfacing visual foxpro 6 database using vfpoledb.1 driver. when change value in description field, changes in datagridview database never gets updated. need use code force changes take place?
here's code i'm using:
imports system.data.oledb public class form1 dim sconstring string = "provider=vfpoledb.1;data source=c:\mydatabase.dbc;mode=3;" dim con oledbconnection = new oledbconnection(sconstring) private function fetchdata() con.open() dim ds dataset = new dataset() dim ssql string ssql = "select item_cd, item_desc invent;" dim cmd oledbcommand = new oledbcommand(ssql, con) dim dainv oledbdataadapter = new oledbdataadapter(cmd) dim ireccount integer ireccount = dainv.fill(ds, "invent") me.datagridview1.datasource = ds.tables("invent").defaultview end function private sub btnfetchdata_click(byval sender object, byval e system.eventargs) handles btnfetchdata.click call fetchdata() end sub private sub form1_formclosing(byval sender object, byval e system.windows.forms.formclosingeventargs) handles me.formclosing con.close() con = nothing end sub end class
did code update table , push changes database? don't think so. tried same code sql server 2005, , not working(i don't have foxpro db). modified code , working fine.
imports system.data.oledb public class form1 dim sconstring string = "provider=vfpoledb.1;data source=c:\mydatabase.dbc;mode=3;" dim con oledbconnection = new oledbconnection(sconstring) dim dainv oledbdataadapter dim ds dataset = new dataset() private sub fetchdata() con.open() dim ssql string ssql = "select item_cd, item_desc invent;" dim cmd oledbcommand = new oledbcommand(ssql, con) dainv = new oledbdataadapter(cmd) dim builder new oledbcommandbuilder(dainv) dim ireccount integer ireccount = dainv.fill(ds, "invent") me.datagridview1.datasource = ds.tables("invent").defaultview end sub private sub btnfetchdata_click(byval sender object, byval e system.eventargs) handles btnfetchdata.click call fetchdata() end sub private sub form1_formclosing(byval sender object, byval e system.windows.forms.formclosingeventargs) dainv.update(ds.tables("invent")) con.close() con = nothing end sub end class
hope works :)
Comments
Post a Comment