Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
CursorAdapter
Message
De
11/12/2003 08:09:23
 
 
À
11/12/2003 05:08:51
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Titre:
Divers
Thread ID:
00858008
Message ID:
00858048
Vues:
14
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()
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform