DataBinding com ADO e Access
Exemplo de conexão usando o biding do acess de com outra base de dados, não linkado.
Download: Download snippet as databinding-com-ado-e-access.vbs.
Copy snippet: For this you need a free my code stock.com account.
Embed code : You will find the embed code for this snippet at the end of the page, if you want to embed it into a website or a blog!
Private Sub Form_Open(Cancel As Integer) Dim cn As ADODB.Connection Dim rs As ADODB.Recordset 'Use the ADO connection that Access uses Set cn = CurrentProject.AccessConnection 'Create an instance of the ADO Recordset class, and 'set its properties Set rs = New ADODB.Recordset With rs Set .ActiveConnection = cn .Source = "SELECT * FROM Customers" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With 'Set the form's Recordset property to the ADO recordset Set Me.Recordset = rs Set rs = Nothing Set cn = Nothing End Sub
Create a free my code stock.com account now.
my code stok.com is a free service, which allows you to save and manage code snippes of any kind and programming language. We provide many advantages for your daily work with code-snippets, also for your teamwork. Give it a try!Find out more and register now
You can customize the height of iFrame-Codes as needed! You can find more infos in our API Reference for iframe Embeds.