-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Îøèáêà â êîäå ADO

Ïÿòíèöà, 17 Àïðåëÿ 2015 ã. 14:02 + â öèòàòíèê
Çäðàâñòâóéòå, óâàæàåìûå ôîðóì÷àíå!
Ïî íàæàòèþ êíîïêè îäèíî÷íîé ôîðìû äîëæíî çàïîëíèòñÿ ïîëå "ÊîäÏîòîìîê" îïðåäåëåííîé çàïèñè òàáëèöû "tdDog".
Èñòî÷íèê ôîðìû - òà æå ñàìàÿ òàáëèöà "tdDog" íî äðóãàÿ çàïèñü. Íàâåðíî îøèáêà â êîäå ïðîöåäóðû (ïðèâîæó íèæå). Çíàòîêè, ïîìîãèòå ïîæàëóéñòà:

Set connDog = CurrentProject.Connection
Set rstDog = New ADODB.Recordset

With rstDog
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * FROM tdDog WHERE [Êîä]=" & [Forms]![fdDog]![ÊîäÐîäèòåëü], connDog

![ÊîäÏîòîìîê] = [Forms]![fdDog]![Êîä]

.Update
End With

rstDog.Close
Set rstDog = Nothing
Set connDog = Nothing

http://www.sql.ru/forum/1152639/oshibka-v-kode-ado


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó