Konferencia vbstreets - a téma megtekintése - sql lekérdezések a vba dao, ado, odbc -
Wasup! írtam: Mindent megteszek
Itt a fájdalom, a cirill nem működik.
Az ügyek elvontak.
Nos, uh. doc - a fájlok nem csatlakoznak!
Oké, lásd alább, van egy kicsit.
1. Az adott példában, annak érdekében, hogy megismerkedhessünk az ADO technológiával a VBA-ban, minden azonosító név egyedi, vagyis ezeket a neveket a programkódok tartalmazzák. (Adatbázis, tábla, mezőnevek).
2. Ebben a kódban (lásd alább) az MS Access adatbázis a Microsoft Jet 4.0 OLE DB Provider illesztőprogramon keresztül csatlakozik. Ha csatlakoztatni szeretné a dBase, Paradox vagy FoxPro adatbázisokat, meg kell adnia az Oracle OLE DB Provider Oracle adatbázisok ODBC illesztőprogramjának Microsoft OLE DB Provider szolgáltatást.
3. Általánosságban elmondható, hogy a szolgáltatók a Delphi-kapcsolathoz csatlakoznak, az 5-ös vagy annál magasabb verziótól kezdve, az alábbiak szerint:
ADO komponens paletta # 61614; ADO táblázat összetevő (átadás az űrlapra) # 61614; Az Objektumellenõrõben jelölje ki a ConnectionString tulajdonságot, és kattintson a jobb oldalon # 61614; kattintson az ellipszis gombra # 61614; megjelenik a Kommunikációs varázsló párbeszédpanel # 61614; kattintson a gombra az ablakban ... # 61614; A szolgáltatónak van egy listája a rendszerben használt összes szolgáltatóról.
(Hiba, jobban dolgozom Delphi-ban)
Először hozz létre két független adatbázist.
Az első adatbázis.
Név: base_1
A táblázat neve: Útvonal_1
Táblázat szerkezete és több rekord:
Marshrut_1
K No. Útvonal időköltség
1 № C - 115 Szocsi 10 nap $ 350,00
2 Nem A - 110 Jalta 7 nap $ 250,00
3 No. F - 100 Antalya 7 nap $ 400,00
4 No. F - 105 Nice 7 nap $ 530,00
A "Nem" mező adatainak megadása után írja be a beviteli maszk típusát: "Nem" L "-" 000
A mező adatok "Időtartam", a mező formátuma: # "nap"
A "Költség" adatmezőben formázza meg a mezőt: $ # ## 0.00
A második adatbázis.
Név: proba_1
Nincs táblázatok! A kommunikáció ellenőrzése egy független adatbázis segítségével!
Most megoldjuk a problémát.
Szükséges:
az adatbázis adatbázis_1 útvonalának Route_1 helyett a Sochi útvonalat a Costa Brava-ra, az időtartama 7 napra, a költségek 1300 dollárért;
Dim Stext Mint String
'Stext - a kimenet MsgBox, főleg ha a hibakeresés, akkor távolítsa el!
"Az ADO-val való kommunikáció megszervezése
Set Conn = Új ADODB.Connection
Set Rs = Új ADODB.Recordset
'A vezető és a független adatbázis összekapcsolása az elérési útjával
Conn.Open "Provider = Microsoft Jet 4.0 OLE DB szolgáltató;" "Adatforrás = C: \ My Documents \ flying \ baz_1.mdb;"
"Adatforrás - itt meg kell adnia az adatbázis elérési útját
'Nyissa meg a kívánt táblát, vagyis adja meg a nevét
Nyissa meg a "Route_1", a Conn, az adOpenKeyset, az adLockOptimistic
Szoftver modul a feladat megoldásához
'Menj a táblázat első bejegyzéséhez, ez egyszerűsíti a feladatot,
"Természetesen szervezzen egy keresést, de ez teljesen más feladat
Rs.MoveFirst
'A táblázat harmadik mezőjének az első rekordban való megértésével rendelkezünk ezzel a mezővel
'van neve Route, egy változás itt adok, hogyan kell dolgozni egy nevet
mezők, hogyan kell együttműködni az álnevével
Stext = Rs.Fields (2)
MsgBox Stext
'Módosítsa a mező értékét
Rs! [Útvonal] = "Costa Brava"
Stext = Rs.Fields (2)
Rs! [Duration] = 7
Rs! [Költség] = 1300
MsgBox Stext
"Az adatokat frissítjük:
Rs.Update
Állítsa Conn = Nincs
End Sub
Jelszóval nem tudom hogyan? Talán tisztázza a kérdést?
Szeretnék oroszul beszélni IE-ben