Question

在我的程序中，我想使用ADODB.Connection连接到SQL Server，然后使用ADODB.RecordSet读取数据，并使用Index and Seek查找搜索到的记录。

我尝试使用此连接字符串Provider=SQLNCLI11;;Data Source=localhost;Initial Catalog=TestDB;Integrated Security=SSPI;Persist Security Info=False;，adOpenDynamic作为cursorType，adLockOptimistic作为LockType和adCmdTable作为CommandType。但是，当我尝试使用adSeek或adIndex调用记录集上的Supports方法时，返回false。

有一种方法可以连接到SQL Server并打开一个支持搜索和索引的记录集？

在此处编辑代码：

LOCAL oCn, nCursor, nLock,oRS
oCn                     := CreateObject( "ADODB.Connection" )
oCn:ConnectionString    := "Provider=SQLNCLI11;;Data Source=localhost;Initial Catalog=TLPosWin;Integrated Security=SSPI;Persist Security Info=False;"
oRS                     := CreateObject( "ADODB.RecordSet" )
nCursor                 := adOpenDynamic
nLock                   := adLockOptimistic
oRS:CursorLocation      := adUseServer
oRS:Open("Articoli",oCn, nCursor, nLock, adCmdTable)
? "seek",oRS:Supports(0x200000),"index",oRS:Supports(0x100000) //both false
oRS:Index := "Articoli_ARTART" //Error
oRS:Seek('=',1,'000611') //Error

ADODB SQLServer与Seek和Index的连接

0 个答案: