>TABLEUPDATE(.t.,.t.,"myAlias") >>
>>> >>>lo = NEWOBJECT("caCustumers","myClass") >>>BROWSE >>> >>>>>>
>>> >>>DEFINE CLASS cacustomers AS cursoradapter >>> >>> >>> Height = 22 >>> Width = 23 >>> Name = "cacustomers" >>> >>> >>> PROCEDURE Init >>> LOCAL lcConnStr, lnConn, llRetVal >>> ** string assumes trusted connection (integrated security) >>> lcConnStr = "Driver=SQL Server;Server=(local);DATABASE=Northwind;uid=sa;pwd=12345" >>> lnConn = SQLSTRINGCONNECT(lcConnStr) >>> >>> >>> WITH This >>> llRetVal = .T. >>> >>> IF lnConn > 0 THEN >>> .DataSource = lnConn >>> .SelectCmd = "SELECT CustomerID, CompanyName, ContactName, "+ ; >>> "Address, City, Region, Country "+ ; >>> "FROM Customers WHERE CompanyName LIKE 'C%'" >>> >>> IF NOT .CursorFill() THEN >>> ** unable to fill. >>> llRetVal = .F. >>> ELSE >>> .Tables = "customers" >>> .KeyFieldList = "CustomerID" >>> .UpdatableFieldList ="CompanyName, ContactName, Address, "+ ; >>> "City, Region, Country" >>> .UpdateNameList= "CustomerID Customers.CustomerID, " + ; >>> "CompanyName Customers.CompanyName, ContactName " + ; >>> "Customers.ContactName, Address Customers.Address, " + ; >>> "City Customers.City, Region Customers.Region, " + ; >>> "Country Customers.Country" >>> >>> STORE .T. to .AllowDelete, .AllowInsert, .AllowUpdate >>> ENDIF >>> ELSE >>> ** unable to connect >>> llRetVal = .F. >>> ENDIF >>> ENDWITH >>> >>> RETURN llRetVal >>> ENDPROC >>> >>> >>> PROCEDURE Destroy >>> IF this.DataSource > 0 THEN >>> SQLDISCONNECT(this.DataSource) >>> ENDIF >>> ENDPROC >>> >>> >>>ENDDEFINE >>>* >>>*-- EndDefine: cacustomers >>>************************************************** >>>>>>