ADODB Verbindung

Uselsx "*lsxlc"


Sub Initialize


  Dim ses As New Lcsession
     ' In an LEI Scripted Agent, use the following syntax instead:
     ' Dim session As New LCSession ("mySession")
  Dim con As New Lcconnection("oledb")
  con.provider = "Microsoft.Jet.OLEDB.4.0" ' use Access 2000 database
  con.server = "C:\AccessData\DogData.mdb"
  con.metadata = "DogDob" ' Contains dog's name and date of birth.
  con.Connect
  Dim confldlst As New Lcfieldlist, count As Long
  Dim nameFld As LCField, dateOfBirth As LCField

  con.writeback = True
  count = con.Select(Nothing, 1, confldlst)
  ' Get a "handle" to each of the fields in the list returned by Selection.
  Set nameFld = confldlst.GetField(1)   ' locate field by position
  Set dateOfBirth = confldlst.Lookup("DateOfBirth") ' locate field by name.
                                                     ' Either works.
  While (con.Fetch (conFldLst) > 0)
    Print "Name=" & nameFld.Text(0) & ", " _
    "DateOfBirth=" & dateOfBirth.Text(0)
    ' If this dog's name is Tracy, change it to Tyler.
    If nameFld.text(0) = "Tracy" Then
      nameFld.text = "Tyler"
      ' Now write the change back to the database.
      Call con.Update(confldlst)
      Print "Changed name to Tyler."
    End If
  Wend
  con.Action(LCACTION_COMMIT)
  End Sub