> string strConn = > "Provider=VFPOLEDB.1;Data source=c:\\myPath\\testdata.dbc;"; > OleDbConnection cn = new OleDbConnection(strConn); > cn.Open(); > OleDbCommand cmd = cn.CreateCommand(); > cmd.CommandText = "set null off"; > cmd.ExecuteNonQuery(); > cmd.CommandText = "insert into customer (cust_id) values ('C#INS')"; > cmd.ExecuteNonQuery(); >>
>private int addCustomer(string cName, string cEmail, string cPassword) > { > string lcConStr = > "Provider = VFPOLEDB;Data Source=C:\\VFP8TEST\\testme.dbc;"; > OleDbConnection loConnection = new OleDbConnection(lcConStr); > loConnection.Open(); > OleDbCommand loCommand1 = new OleDbCommand(); > loCommand1.Connection = loConnection; > loCommand1.CommandText = "SET NULL OFF\r\nSET DELETED ON"; > loCommand1.ExecuteNonQuery(); > > OleDbCommand loCommand = new OleDbCommand(); > loCommand.Connection = loConnection; > string lcStoredProc = String.Format( > "CustomerAdd('{0}','{1}','{2}')", > cName,cEmail,cPassword); > loCommand.CommandText=lcStoredProc; > loCommand.CommandType=CommandType.StoredProcedure; > > int liRetValue = (int)loCommand.ExecuteScalar(); > loConnection.Close(); > > return liRetValue; > } >etc.
>>>>>Local oConn as adodb.connection, ; >>>>> oRS as ADOdb.Recordset, ; >>>>> lcCOnnStr as String >>>>>oConn = CreateObject('Adodb.connection') >>>>>lcConnStr = 'Provider=VFPOLEDB.1;Data source='+; >>>>> Sys(5)+Curdir()+'testdata.dbc' >>>>>With oConn >>>>> .Open(lcConnStr) >>>>> >>>>> oRS = .Execute('select * from customer') >>>>> ShowMe('Customer table', oRS) >>>>> >>>>> .Execute('set deleted on') >>>>> .Execute('delete from customer where cust_id = "B"') >>>>> oRS = .Execute('select * from customer') >>>>> ShowMe('Customer table - After Deleted(ansi on,default)', oRS) >>>>> >>>>> .Execute('set ansi off') >>>>> .Execute('delete from customer where cust_id = "B"') >>>>> oRS = .Execute('select * from customer') >>>>> ShowMe('Customer table - After Deleted(ansi off)', oRS) >>>>> >>>>> .Execute('update customer set maxordamt = maxordamt + 1000') >>>>> oRS = .Execute('select * from customer') >>>>> ShowMe('Customer table - After update', oRS) >>>>> >>>>> .Execute('update customer set maxordamt = maxordamt - 1000') && restore >>>>> oRS = .Execute('select * from customer') >>>>> ShowMe('Customer table - After restore', oRS) >>>>> >>>>> .Close >>>>>endwith >>>>> >>>>> >>>>> >>>>>Function ShowMe >>>>>Lparameters tcCaption,toRecordset >>>>>oForm = Createobject('myForm', tcCaption,toRecordset) >>>>>oForm.Show >>>>>Read Events >>>>>Endfunc >>>>> >>>>>Define Class myform As Form >>>>> Height = 450 >>>>> Width = 750 >>>>> Name = "Form1" >>>>> >>>>> Add Object hflex As OleControl With ; >>>>> Top = 10, Left = 10, Height = 430, Width = 730, Name = "Hflex", ; >>>>> OleClass = 'MSHierarchicalFlexGridLib.MSHFlexGrid' >>>>> >>>>> Procedure Init >>>>> Lparameters tcCaption,toRecordset >>>>> This.Caption = tcCaption >>>>> This.hflex.Datasource = toRecordset >>>>>Endproc >>>>> Procedure QueryUnload >>>>> Clear Events >>>>>Endproc >>>>>Enddefine >>>>>>>>>>PS: Didn't use tastrade but testdata. Tastrade not only have triggers that'd fail for a simple sampling worse it has trigger code that's assuming it's always running from within tastrade.app.