ca测试.prg

来自「苏付军的CS系统例子」· PRG 代码 · 共 30 行

*这里是一个示例来自附带的示例文件 （CursorAdapterExample.prg），它用于从 SQL Server 自带的 Northwind 数据库的 Customers 表中取得巴西客户的某几个字段数据。产生的 Cursor 是可更新的，所以如果你对 Cursor 中的数据做了某些改动，然后再次运行程序，你会看到刚才所作的改动已经被保存在后台数据库中了。
local lcConnString, ;
   loCursor as CursorAdapter,laErrors[1]
   lcConnString = 'driver=SQL Server;server=(local);database=Northwind;uid=sa;pwd=;trusted_connection=no' 
* 把这里的密码改成你自己的数据库中密码
 loCursor = createobject('CursorAdapter') 
with loCursor
   .Alias              = 'Customers'
   .DataSourceType     = 'ODBC'
   .DataSource         = sqlstringconnect(lcConnString)
   .SelectCmd          = "select CUSTOMERID, " + ;
     "COMPANYNAME, CONTACTNAME from CUSTOMERS " + ;
     "where COUNTRY = 'Brazil'"
   .KeyFieldList       = 'CUSTOMERID'
   .Tables             = 'CUSTOMERS'
   .UpdatableFieldList = 'CUSTOMERID, COMPANYNAME, ' + ;
     'CONTACTNAME'
   .UpdateNameList     = ;
     'CUSTOMERID CUSTOMERS.CUSTOMERID, ' + ;
     'COMPANYNAME CUSTOMERS.COMPANYNAME, ' + ;
     'CONTACTNAME CUSTOMERS.CONTACTNAME'
   if .CursorFill()
     browse
   else
     aerror(laErrors)
     messagebox(laErrors[2])
   endif
 .CursorFill()
 endwith