CursorAdapter 起步 (2)

【译者注】 
附带的示例文件是一个PRG,实在太简单了,我就直接把内容贴在这里了。 

local lcConnString, ; 
loCursor as CursorAdapter, ; 
laErrors[1] 
lcConnString = 'driver=SQL Server;server=(local);database=Northwind;' + ; 
'uid=sa;pwd=;trusted_connection=no' 
* change password to appropriate value for your database 
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

 
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值