Найти нужную запись в таблице Access'а через VBA Excel

@yuriuss · Регистрация: 10.06.2015

Author24 — интернет-сервис помощи студентам

Народ, никак не получается!!!
И как если нашел сделать ее текущей???
Поделитесь куском кода! Очень надо!!!
Вот что у меня есть:

Visual Basic

Dim objAccess As Object
Dim db As Object
Dim tb As Object
Dim rs As Object
Dim i As Integer, n As Integer
 
Set objAccess = GetObject('test.mdb')
objAccess.UserControl = False
objAccess.Visible = False
Set db = objAccess.currentdb
Set tb = db.tabledefs('TB_TEST')
Set rs = db.openrecordset('TB_TEST')
 
rs.MoveFirst

а что дальше??? Пробовал FindFirst но он не работает. Хотя может я просто не так записал!?
Как будет правильно???
Может есть способ альтернативный FindFirst'у ?
P.S. просто мне это нужно для Апдейта определенных полей в нужной строке.

Заранее спасибо!!!

@slavasl · 02.10.2007, 13:04

Привет я взял твой пример и добавил туда цикл
на всякий случай ещё поставил изменение и добавление.
Вдруг пригодиться

))
Проблема была в том что ты не определил ссылку на вид считываемых данных
надо Set rs = db.openrecordset('Customers', dbOpenDynaset)

Visual Basic

Dim objAccess As Object
Dim db As Object
Dim tb As Object
Dim rs As Object
Dim i As Integer, n As Integer
 
Set objAccess = GetObject('c:   est.mdb')
'=objAccess.UserControl = False
objAccess.Visible = True
'Set db = objAccess.currentdb
Set db = objAccess.currentdb
Set tb = db.tabledefs('Customers')
Set rs = db.openrecordset('Customers', dbOpenDynaset)
 
Crit = 'CompanyName='Alfreds Futterkiste''
 
Do While Not rs.NoMatch
 rs.FindFirst Crit
  test = rs('CustomerID')
  MsgBox test
' Izmenenie znacenij
  rs.Edit
  rs('CompanyName') = 'Alfreds Futterkiste'
  rs.Update
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'dobavlenie novih znacenij
  rs.AddNew
  rs('CustomerID') = 'VS'
  rs('CompanyName') = 'Vjatseslav Stserbakov'
  rs.Update
'''''''''''''''''''''''''''''''''''''''''''''''''''''
  rs.FindNext Crit
Loop
db.Close

	02.10.2007, 13:04

Опции темы