Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
CursorAdapter
Message
From
11/12/2003 08:09:23
 
 
To
11/12/2003 05:08:51
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Title:
Miscellaneous
Thread ID:
00858008
Message ID:
00858048
Views:
15
Bom dia1!!
Caro José,
eu sei muito bem o que vc está passando!!!
vou mandar um codigo que criei que consegui utilizar o CursorAdapter, espero que te ajude,
Abraços,
Luis Ribeiro

Código fonte:

PUBLIC loClientes as CursorAdapter
PUBLIC curCliente as Cursor

PUBLIC loConnDataSource as String
PUBLIC oconn as "ADODB.Connection"
PUBLIC oRS as "ADODB.RecordSet"

loClientes = CREATEOBJECT("CursorAdapter")
loClientes.DataSourceType="ADO"
loClientes.Alias="curCliente"
loClientes.SelectCmd="select * from Customers"

loConnDataSource = [Provider=SQLOLEDB.1;Password=enterprise;Persist Security Info=True;User ID] + ;
[=sa;Initial Catalog=Northwind;Data Source=lua;]

oConn = createobject('ADODB.Connection')
oConn.Open(loConnDataSource)
oRS = CREATEOBJECT("ADODB.RecordSet")
oRs.CursorLocation= 3 && adUseClient
ors.ActiveConnection = oConn

loClientes.DataSource=oRS
loclientes.CursorFill()

SELECT curCliente

thisform.grid1.RecordSource="curcliente"
thisform.grid.refresh()
Previous
Reply
Map
View

Click here to load this message in the networking platform