| |
|
|
| | Как программно можно получить значения из разных полей таблицы?
Есть таблица с различными полями, ну и е-но с ключевым полем (счетчик).
Хотелось бы программно получать значения различных полей выбранной (по ключевому полю) записи.
Например, есть таблица
ID Поле 1 Поле2 Поле3 и т.д.
1 ООО 1 И2 К5 В3
2 ООО 2 А3 П7 Д9
нужно выбрать из таблицы например для записи с ID=2 значения поля 1 и поля 3
т.е. ООО 2 и П7 | |
| |
| |
| |
|
|
| | Help по Recordset
или DlookUp (но в данном случае Recordset лучше) | |
| |
| |
| |
|
|
| | Беда в том что HELP на англицком, а я в нем не силен 
Вот сижу и смотрю как баран на новые ворота | |
| |
| |
|
|
| |
|
|
| | ACCESS 2003, но база в формате 2000 | |
| |
| |
| |
|
|
| |
Dim rst As ADODB.Recordset
Dim lngID As Long
Set rst = New ADODB.Recordset
lngID = 2 ' код записи которую нужно найти
rst.Open "select * from Таблица where id = " & ingID, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
If rst.BOF And rst.EOF Then ' рекордсет пустой
Else
Debug.Print rst![Поле1]
Debug.Print rst![Поле3]
End If
rst.Close
set rst = Nothing
|
| |
| |
| |
| |
|
|
| |
Dim rst As ADODB.Recordset
Dim lngID As Long
Set rst = New ADODB.Recordset
lngID = 2 ' код записи которую нужно найти
rst.Open "select * from Таблица where id = " & ingID, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
If rst.BOF And rst.EOF Then ' рекордсет пустой
Else
Debug.Print rst![Поле1]
Debug.Print rst![Поле3]
End If
rst.Close
set rst = Nothing
|
| |
| |
| |
| |
|
|
| | Большое спасибо, все получилось  | |
| |
| |
