can some body help me out with this. i have create a cursor adapter class, and i am trying to fill it and browse the results
but it seems not to be working. when i go
lo = NEWOBJECT("caCustumers","myClass")
BROWSEit keeps on asking me for a table
here is the class code
DEFINE CLASS cacustomers AS cursoradapter
Height = 22
Width = 23
Name = "cacustomers"
PROCEDURE Init
LOCAL lcConnStr, lnConn, llRetVal
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
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
llRetVal = .F.
ENDIF
ENDWITH
RETURN llRetVal
ENDPROC
PROCEDURE Destroy
IF this.DataSource > 0 THEN
SQLDISCONNECT(this.DataSource)
ENDIF
ENDPROC
ENDDEFINE
Karben Selim Mejia
.......
DO WHILE .T.
ME.Work()
ENDDO
