Tutorial pour adodb, ado

Commenter

Contenu du snippet

ce How To ADODB easy est un tutorial destine a aide les + ou - debutants pour se connecter a une DB en utilisant les commandes ADO ( et pas l'ancien DAO)
je l ai ecris en anglais paske je l ai fait pour des amis pas francais et en plus VB c est en anglais

Source / Exemple : 


'          Welcome to GuLuCoM's How to ADODB easy.

 '           Please tell me what u think about this How To....   gulucom@hotmail.com

'    ->  3 ways to use ADODB :

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

'-------------   Open the Database ----------------
     Set cn = New ADODB.Connection
     cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TaBaS.mdb;Persist Security Info=False"
     cn.Open

1.
'--------------  Create a Command --------------
     Set cmd = New ADODB.Command
     cmd.CommandText = "authors"    ' table in the database
     cmd.CommandType = adCmdTable
     cmd.ActiveConnection = cn

'--------------- Create a Recordset --------------------
     Set rs = New ADODB.Recordset
     Set rs.Source = cmd
     rs.Open

2.
     Set rs = cn.Execute("select * from Table")    ' Execute opens the recordset

3.
   
     Set rs = New ADODB.Recordset
     rs.CursorType = adOpenKeyset
     rs.LockType = adLockOptimistic
     rs.Source = "TbEscort"
     rs.ActiveConnection = cn
     rs.Open

 '	Now let's play with our recordset (rs)
 
  ' - to add a new row in the recordset :

     rs.AddNew
     rs.Fields("First_Name") = x
     rs.Update

  ' - to keep the reference of a specific record
     Dim varBKM as Variant
     varBKM = rs.Bookmark

 '  - to move in the recordset
     rs.MoveNext
     rs.MoveLast
     ......
   
  ' - to find a specific record
     rs.Find "worker_name LIKE 'r*'"

  ' - to filter the recordset
     rs.Filter = "quantity > 30"

  ' - to sort the recordset
     rs.Sort = "order_date ASC"

  ' - to delete a record
     rs.Delete adAffectCurrent   ' -> default
               adAffectGroup         ' -> after filter
               adAffectAll

  ' - to rexecute the query
     rs.Requery

  ' - to update a field in the record
     rs.Update "worker_name", "david"

  ' - to save the recordset
     rs.Save "C:/MyRS.adtg", adPersistADTG
     or with ADO 2.1 rs.Save "C:/MyRS.xml", adPersistXML

  ' - to open 
     rs.Open "C:/MyRS.adtg", , adOpenStatic, adLockOptimistic, adComdFile

  ' - NEVER FORGET TO CLOSE 	
     rs.Close
     cn.Close
     Set rs = Nothing
     Set cn = Nothing

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (GuluCom)