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

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

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

 

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

 -Ñòàòèñòèêà

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


Çàïóñê çàïðîñà è âûâîä ðåçóëüòàòà.

Ïîíåäåëüíèê, 18 Àâãóñòà 2014 ã. 18:10 + â öèòàòíèê
äîáðîãî âðåìåíè ñóòîê!

Òàêàÿ ïðîáëåìà:
âûïîëíÿþ Êîíêàòåíàöèþ ïî ìèòèíó ñ ñîõðàíåíèåì ðåçóëüòàòà â îòäåëüíóþ òàáëèöó (÷òîáû ïðåîäîëåòü îãðàíè÷åíèå â 255 ñèìâîëîâ) ìåòîäîì:

Ìîäóëü
+
Public Function makeID()
Dim s, db As DAO.Database
Set db = CurrentDb
db.Execute "delete * from FamUnion"
s = "INSERT INTO FamUnion (ÈÄ_Îáðàùåíèÿ) Select DISTINCT ÈÄ_Îáðàùåíèÿ FROM Çàêàçàííûå_ãåíû"
db.Execute s
makeID = True
End Function


Çàðîc SQL íà îáíîâëåíèå
+
UPDATE Îïèñàíèå_ãåíîâ INNER JOIN (Çàêàçàííûå_ãåíû INNER JOIN FamUnion ON Çàêàçàííûå_ãåíû.ÈÄ_Îáðàùåíèÿ = FamUnion.ÈÄ_Îáðàùåíèÿ) ON Îïèñàíèå_ãåíîâ.ÈÄ_Ãåíà = Çàêàçàííûå_ãåíû.ÈÄ_Ãåíà SET FamUnion.Fam = (FamUnion.Fam+", ") & Îïèñàíèå_ãåíîâ.Íàçâàíèå_ãåíà
WHERE (((makeID())<>False));


 èòîãå ïîëó÷àþ â òàáëèöå FamUnion â ïîëå Fam äëÿ êàæäîãî ÈÄ_Îáðàùåíèÿ ñïèñîê âñåõ çàêàçîâ ÷åðåç çàïÿòóþ.

À òåïåðü ó ìåíÿ äâà âîïðîñà:
1. Êàê ïðè ðàáîòå ñ ôîðìîé çàïóñòèòü ýòîò çàïðîñ íà îáíîâëåíèå?
à) ïðè íàæàòèè íà êíîïêó
á) ïîñëå îáíîâëåíèÿ êàêîãî-íèáóäü ïîëÿ
2. Êàê âûâåñòè â ôîðìå ïîñëå íàæàòèÿ êíîïêè èëè îáíîâëåíèÿ êàêîãî-íèáóäü ïîëÿ â îòäåëüíîì, íàïðèìåð, Ïîëå123 çíà÷åíèå èç òàáëèöû FamUnion èç ïîëÿ Fam?

Ïîäñêàæèòå, ïîæàëóéñòà!

http://www.sql.ru/forum/1111308/zapusk-zaprosa-i-vyvod-rezultata


 

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

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

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

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