Wasup! a scris: Fac totul bine
Iată durerea, chirilica nu funcționează.
Cazurile distrase.
Ei bine, uh. doc - fișierele nu se conectează!
Ok, vezi mai jos, sunt puțin.
1. În exemplul dat, pentru a se familiariza cu tehnologia ADO în VBA, toate denumirile identificatorilor sunt specifice, adică aceste nume sunt menționate în codurile software. (Baze de date, tabele, nume de câmpuri).
2. În acest cod (a se vedea mai jos), baza de date MS Access este conectată prin driver-ul Microsoft Jet 4.0 OLE DB Provider. Dacă doriți să conectați bazele de date dBase, Paradox sau FoxPro, trebuie să specificați Microsoft OLE DB Provider pentru driverul ODBC pentru bazele de date Oracle Oracle DB Provider Oracle.
3. În general, puteți vedea furnizorii pentru conectarea în Delphi, începând cu versiunea 5 și versiunea superioară, după cum urmează:
Paleta componentelor ADO # 61614; componentă Tabelul ADO (transfer în formular) # 61614; În inspectorul de obiecte, selectați proprietatea ConnectionString și faceți clic dreapta # 61614; faceți clic pe butonul de elipsă # 61614; va apărea caseta de dialog Expert de comunicare # 61614; faceți clic pe fereastra de pe buton ... # 61614; Furnizorul are o listă cu toți furnizorii utilizați în sistemul dvs.
(Trouble, lucrez mai mult la Delphi)
Mai întâi, creați două baze de date independente.
Prima bază de date.
Nume: baz_1
Numele tabelului: Route_1
Structura tabelei și mai multe înregistrări:
Marshrut_1
K Nu. Durata drumului Cost
1 № C - 115 Sochi 10 zile $ 350,00
2 Nr. A - 110 Yalta 7 zile $ 250,00
3 Nr. F - 100 Antalya 7 zile $ 400,00
4 Nr. F - 105 Nisa 7 zile $ 530,00
Pentru datele din câmpul "No.", puteți introduce tipul de masă de intrare: "No." L "-" 000
Pentru datele de câmp "Durată", Formatul câmpului: # "zile"
Pentru câmpul de date "Cost", Formatați câmpul introduceți: $ # ## 0.00
A doua bază de date.
Nume: proba_1
Nu există mese! Pentru a verifica comunicarea cu o bază de date independentă!
Acum rezolvăm problema.
necesită:
în tabelul Route_1 din baza de date baz_1 înlocuiți ruta Sochi pe Costa Brava, durata de 7 zile, costul pentru 1300 $;
Dim Stext ca șir
'Stext - pentru ieșire în MsgBox, în special atunci când depanare, atunci puteți să-l eliminați!
"Organizarea comunicării cu ADO
Setați Conn = Conectare nouă ADODB.
Setați Rs = ADODB.Recordset nou
'Conectarea driver-ului și a unei baze de date independente cu calea către el
Conn.Open "Provider = furnizor Microsoft Jet 4.0 OLE DB;" "Sursa de date = C: \ Documentele mele \ care zboară \ base_1.mdb;"
"Sursa de date - aici trebuie să specificați calea spre baza de date
'Deschideți tabelul dorit, adică specificați numele acestuia
Rs.Open "Route_1", Conn, adOpenKeyset, adLockOptimistic
"Modul software pentru rezolvarea sarcinii
"Du-te la prima intrare în tabel, aceasta este de a simplifica sarcina, puteți,
"Bineînțeles, organizați o căutare, dar aceasta este o sarcină complet diferită
Rs.MoveFirst
"Citirea valorii celui de-al treilea câmp al mesei în prima înregistrare, avem acest câmp
"are numele Route, pentru o schimbare aici dau, cum să lucrez cu numele
"câmpuri, cum să lucreze cu aliasul său
Stext = Rs.File (2)
MsgBox Stext
'Schimbați valoarea câmpului
Rs! [Traseu] = "Costa Brava"
Stext = Rs.File (2)
Rs [Durata] = 7
Rs! [Cost] = 1300
MsgBox Stext
"Actualizăm datele:
Rs.Update
Setați Conn = Nimic
End Sub
Cu o parolă nu știu cum? Poate puteți clarifica întrebarea?
Aș vrea să vorbesc rusă în IE
Articole similare
Trimiteți-le prietenilor: