ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ADO метод Seek, проверка на наличие записи
25 сообщений из 26, страница 1 из 2
  1  все
ADO метод Seek, проверка на наличие записи
    #32763227
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
пытался проверить запись по составному индексу, не получается.

1. Имеется таблица справочник, имеет два поля : ID и текст
2. Имеются два индекса ID - Primary, Текст- составной уникальный
3. таблица имеет связь с основной таблицей.

Цель:

1.проверить запись по полю текст,
если запись не имеется, то добавить.

2.Вынуть код ID этой записи.

Благодарю за участие!
...
Рейтинг: 0 / 0
01.11.2004, 14:38:06
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763235
Фотография Shurgenz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shurgenz
Участник
а как пытался то?
...
Рейтинг: 0 / 0
01.11.2004, 14:40:29
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763240
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
Function AddID(Table As String, Values As String) As Integer
Dim rs As New ADODB.Recordset, n As Integer
rs.Open Table, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

10:
n = CurrentProject.Connection.Execute("SELECT Count(" & Table & "." & rs.Fields(0).Name & ") AS [Count-" & rs.Fields(0).Name & "] FROM " & Table & " WHERE (((" & Table & ".[" & rs.Fields(1).Name & "])='" & Values & "'))").Fields(0)

If n = 0 Then

rs.AddNew
rs.Fields(1) = Values
rs.Update
rs.Close
GoTo 10
End If

'Здесь не всегда срабатывает
' Ошибка : Run-time error '6' Overflow
':
AddID = CurrentProject.Connection.Execute("SELECT " & Table & ".[" & rs.Fields(0).Name & "] FROM " & Table & " WHERE (((" & Table & ".[" & rs.Fields(1).Name & "]) ='" & Values & "')) ").Fields(0)

End Function
...
Рейтинг: 0 / 0
01.11.2004, 14:42:12
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763242
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
т1, стр.227

Public Sub SeekExample()
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset
Set rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "tblCustomers", Options:=adCmdTableDirect
rst.Index = "PrimaryKey"
rst.Seek "BBBBB", adSeekAfterEQ
If rst.EOF Then
MsgBox "Unable to find a match"
Else
MsgBox "The customer name is: " & rst("CompanyName")
End If
rst.Close
Set rst = Nothing
End Sub
...
Рейтинг: 0 / 0
01.11.2004, 14:43:17
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763245
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Мудрённый клён вернулся :)

если тебе надо искать по полю "текст" Seek'oм, то и индекс тебе надо именно по полю "текст", а не составной.
...
Рейтинг: 0 / 0
01.11.2004, 14:44:41
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763248
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
черт тебя дергает что ля в рекордсеты лезть?
рекордсеты -самое последеее дело.
а тем более для такого новичка как ты
...
Рейтинг: 0 / 0
01.11.2004, 14:46:44
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763250
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Мудрый клёнFunction AddID(Table As String, Values As String) As Integer
Dim rs As New ADODB.Recordset, n As Integer
rs.Open Table, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

10:
n = CurrentProject.Connection.Execute("SELECT Count(" & Table & "." & rs.Fields(0).Name & ") AS [Count-" & rs.Fields(0).Name & "] FROM " & Table & " WHERE (((" & Table & ".[" & rs.Fields(1).Name & "])='" & Values & "'))").Fields(0)

If n = 0 Then

rs.AddNew
rs.Fields(1) = Values
rs.Update
rs.Close
GoTo 10
End If

'Здесь не всегда срабатывает
' Ошибка : Run-time error '6' Overflow
':
AddID = CurrentProject.Connection.Execute("SELECT " & Table & ".[" & rs.Fields(0).Name & "] FROM " & Table & " WHERE (((" & Table & ".[" & rs.Fields(1).Name & "]) ='" & Values & "')) ").Fields(0)

End Function

да уж...
просто без комментариев...
...
Рейтинг: 0 / 0
01.11.2004, 14:47:17
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763279
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
ищчерт тебя дергает что ля в рекордсеты лезть?
рекордсеты -самое последеее дело.
а тем более для такого новичка как ты

А как быть, без рекордсетов?
...
Рейтинг: 0 / 0
01.11.2004, 14:57:21
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763280
Фотография Shurgenz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shurgenz
Участник
А что? настолько неизвестны заранее ни имя таблицы, ни поля? даже поля?
...
Рейтинг: 0 / 0
01.11.2004, 14:57:48
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763283
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
ShurgenzА что? настолько неизвестны заранее ни имя таблицы, ни поля? даже поля?

это наверно универсальная ф-ия, на все случаи жизни
...
Рейтинг: 0 / 0
01.11.2004, 14:59:07
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763292
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Мудрый клён ищчерт тебя дергает что ля в рекордсеты лезть?
рекордсеты -самое последеее дело.
а тем более для такого новичка как ты

А как быть, без рекордсетов?

Ну можно DlookUp использовать для проверки наличия интересующего тебя текста.
Для меня это более понятно и просто чем рекордсеты.

Задачи можно по разному решать ...
...
Рейтинг: 0 / 0
01.11.2004, 15:03:00
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763314
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
На счет этой ошибки я разобрался:

Integer имеет ограничение , а у меня уже здесь перевалило за 60000.
Поменял на String и всё.

'Здесь не всегда срабатывает
' Ошибка : Run-time error '6' Overflow

на счет:
А что? настолько неизвестны заранее ни имя таблицы, ни поля? даже поля?

Это универсальная функция, замысел плохой, но надо подкорректировать кое где и всё не так уж и плохо.
...
Рейтинг: 0 / 0
01.11.2004, 15:08:20
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763319
Фотография Shurgenz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shurgenz
Участник
типа, как я понимаю,

select a.id from основная_таблица a left join справочник b on a.id=b.id where
b.id is null

получаешь id, которых нет ваще... для них надо делать insert

select a.id from основная_таблица a join справочник b on a.id=b.id where
b.text is null

id, у которых нет текста просто... для них update
...
Рейтинг: 0 / 0
01.11.2004, 15:08:40
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763323
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Клён, а где ты в своей универсальной ф-ии используешь Seek?
...
Рейтинг: 0 / 0
01.11.2004, 15:09:42
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763340
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
KelmeКлён, а где ты в своей универсальной ф-ии используешь Seek?

Сейчас доделоваю, под Seek.

И выставлю на обозрение, мож где подправите.
...
Рейтинг: 0 / 0
01.11.2004, 15:14:33
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763355
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
Клен, не мог бы ты объяснить, как это получается.
"2. Имеются два индекса ID - Primary, Текст- составной уникальный" Что это
значит? Составной индекс из одного поля? Или два индекса - один из одного
поля, а другой составной?

Может в этом дер хунт беграбен?
--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
01.11.2004, 15:17:33
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763356
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
Function AddID(Table As String, Values As String) As String

Dim rst As New ADODB.Recordset

Set rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open Table, Options:=adCmdTableDirect
rst.Index = rst.Fields(1).Name
rst.Seek Values, adSeekAfterEQ
If rst.EOF Then
rst.AddNew
rst.Fields(1) = Values
End If

AddID = rst.Fields(0)

rst.Close
Set rst = Nothing

End Function
...
Рейтинг: 0 / 0
01.11.2004, 15:17:59
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763357
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
>Цель:
>1.проверить запись по полю текст,
>если запись не имеется, то добавить.
>2.Вынуть код ID этой записи.

по CurrentProject.Connection.Execute
предполагаю что ADP+MSSQL
тогда достаточно написать ХП-ку котора все это сделает

Create PROCEDURE MySP
(
@MyParam непонялкакоготипа
)
AS
SET NOCOUNT ON
DECLARE @MyID int
SELECT @MyID=ID FROM MyTbl WHERE Текст=@MyParam
--если запись не найдена
if @MyID is Null
Begin
--Вставить ее
INSERT INTO MyTbl (Текст) SELECT @MyParam
SET @MyID=@@IDENTITY
End
--Возвращаю код записи
SELECT @MyID

dim n as long

n = CurrentProject.Connection.Execute("MySP '" & Values & "'")
...
Рейтинг: 0 / 0
01.11.2004, 15:18:40
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763360
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
Iskander68
Клен, не мог бы ты объяснить, как это получается.
"2. Имеются два индекса ID - Primary, Текст- составной уникальный" Что это
значит? Составной индекс из одного поля? Или два индекса - один из одного
поля, а другой составной?

Может в этом дер хунт беграбен?
--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1

Простите сэр! Текст - просто некластеризованный, уникальный индекс.
...
Рейтинг: 0 / 0
01.11.2004, 15:19:50
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763362
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
'недописал :)
n = CurrentProject.Connection.Execute("MySP '" & Values & "'").Collect(0)
...
Рейтинг: 0 / 0
01.11.2004, 15:21:08
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763363
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
Latuk>Цель:
>1.проверить запись по полю текст,
>если запись не имеется, то добавить.
>2.Вынуть код ID этой записи.

по CurrentProject.Connection.Execute
предполагаю что ADP+MSSQL
тогда достаточно написать ХП-ку котора все это сделает

Create PROCEDURE MySP
(
@MyParam непонялкакоготипа
)
AS
SET NOCOUNT ON
DECLARE @MyID int
SELECT @MyID=ID FROM MyTbl WHERE Текст=@MyParam
--если запись не найдена
if @MyID is Null
Begin
--Вставить ее
INSERT INTO MyTbl (Текст) SELECT @MyParam
SET @MyID=@@IDENTITY
End
--Возвращаю код записи
SELECT @MyID

dim n as long

n = CurrentProject.Connection.Execute("MySP '" & Values & "'")


сейча работаю с mdb.
но всё равно спасибо, пригадится!
...
Рейтинг: 0 / 0
01.11.2004, 15:21:34
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32763391
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
А забыл вставить: rs.Update

после rst.Fields(1) = Values.
...
Рейтинг: 0 / 0
01.11.2004, 15:32:48
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32764660
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
Вот код:

Function AddID(Table As String, Values As String) As String

Dim rst As New ADODB.Recordset

Set rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open Table, Options:=adCmdTableDirect
rst.Index = rst.Fields(1).Name
rst.Seek Values, adSeekAfterEQ
If rst.EOF Then
rst.AddNew
rst.Fields(1) = Values
rst.Update
End If

AddID = rst.Fields(0)

rst.Close
Set rst = Nothing

End Function


Запускаю так:
допустим :
msgBox AddID ("OTD","Хирургия")

Он мне возвращает код Хирургичского отделения 2.

Как работает Seek ?!

Я ему даю "Хирургия", а после строки
rst.Seek Values, adSeekAfterEQ

на rst.Fields(1)

возвращает "Хирургичское отделение 2"

Это глюк?
...
Рейтинг: 0 / 0
02.11.2004, 12:11:05
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32764674
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
автор
Как работает Seek ?!


да ты будешь хелп читать или ты решил всех достать? :)

автор
adSeekAfterEQ


значение этой константы ты знаешь?

автор
Это глюк?


а мы откуда знаем, что там тебе должно вернутся?
...
Рейтинг: 0 / 0
02.11.2004, 12:17:50
| Ответить | Цитировать | Написать  
ADO метод Seek, проверка на наличие записи
    #32764677
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
adSeekFirstEQ
Указатель на запись позиционируется в первую удовлетворяющую требованиям запись, если она найдена, либо в конец таблицы, если не найдена

Всё теперь нормально.
...
Рейтинг: 0 / 0
02.11.2004, 12:18:26
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ADO метод Seek, проверка на наличие записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&startmsg=32763227&tid=1670614]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 71ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 239ms
total:  408ms
созд. / загр.: 408ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]