Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Update tabele u Accessu iz Excela

[es] :: Office :: Excel :: Update tabele u Accessu iz Excela

[ Pregleda: 1946 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Ekonomist30
Sanel Bajric
SANELDESIGN-Web developing and
programming
SANELDESIGN
Sarajevo

Član broj: 197541
Poruke: 76
92.36.251.*

Sajt: saneldesign.com


+6 Profil

icon Update tabele u Accessu iz Excela17.10.2011. u 22:18 - pre 120 meseci
Pozdrav svima

Imam jedan problem, hmmm, koji sam pokusavao rjesiti, ali ne ide:) pa kontam, ima strucnjaka ovdje, njima je to lako.

Naime, problem je sljedeci:

Imam u Excelu tabelu sa podacima o nekim mjerenjima koja radim, znaci dimenzije, sirina, visina, zapremina itd.

E sada, imam tabelu u Accessu kod koje su nazivi polja isti kao i kod tabele u MS Excelu, s tima da u Accessu imam i primary key (autonumber), dok tog polja u Excelu nema.

Znaci raspored je:

Tabela Excel

Opis Duzina Sirina Povrsina Visina Zapremina

Tabela Access

ID Opis Duzina Sirina Povrsina Visina Zapremina

Da li je moguce napraviti macro naredbu i "priljepiti" je na dugme u excelu, koja kada bi se izvrsila, podaci iz excela bi se "zaljepili" u access tabelu?

Pretpostavljam uz pomoc ADO/DAO ali kako-ideje nemam. Pokusavao sam na ovaj nacin:


Code:
Sub Export_mjerenja()

Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stDB As String
Dim stCon As String


Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
 
 
stDB = "C:\mjerenja.mdb"
 
 
stCon = "Provider=Microsoft.Ace.OLEDB.12.0; Persist Security Info = False;" & _
"Data Source=" & stDB & ";"
 
 
cnt.Open stCon

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

With rst
    .Index = "PrimaryKey"
    .CursorLocation = adUseServer
    .Open "tbl_mjerenje", cnt, 1, 3, adCmdTableDirect
    .Seek Range("CaseNum").Value
    If Not rst.EOF Then
        .Fields("opis") = Sheets("mjerenja").Range("b9").Value
        .Fields("duzina") = Sheets("mjerenja").Range("b11").Value
        If Sheets("mjerenja").Range("k2") = "p" Then
        .Fields("sirina") = Sheets("mjerenja").Range("b12").Value
        End If
        .Fields("povrsina") = Sheets("mjerenja").Range("b13").Value
        .Fields("visina") = Sheets("mjerenja").Range("b14").Value
        .Fields("zapremina") = Sheets("mjerenja").Range("b15").Value
.Update
    Else
    MsgBox "Nije uspjelo"
    End If
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


rst.Close
cnt.Close

Set cnt = Nothing
Set rst = Nothing

End Sub 


NEmam pojma sta cu i kud cu :))... Ne radi

Neka ideja!

Hvala svima unaprijed
 
Odgovor na temu

Srbin do jaja

Član broj: 219428
Poruke: 80
82.208.220.*



+2 Profil

icon Re: Update tabele u Accessu iz Excela13.11.2011. u 14:59 - pre 119 meseci
http://www.youtube.com/watch?v=V7vATurMjKc
Nemam pojma šta da stavim u potpis!
 
Odgovor na temu

lukarim
dado kekić
sss

Član broj: 292674
Poruke: 53
*.adsl.net.t-com.hr.



+3 Profil

icon Re: Update tabele u Accessu iz Excela13.11.2011. u 16:46 - pre 119 meseci
Naravno da nemaš pojma jer si problem počeo rješavati od kraja. Nisi razmišljao kad dođeš na Mjesec kako češ nazad. Zašto Access, kad možeš sve to napraviti u Excelu. Zašto. Valjda jer je to COOL, to je fora Jer si FACA ala brale ludilo postavio si problem , koji je bez veze i sad tražiš da ti ga drugi rješe. Kada ti ga rješe u prvom slijedećem pomaku ti nemaš pojma šta napraviti. Stoga to napravi u Excelu, Bazu podataka. onda imaš filtere koje će te dovesti do rješenja.Pola ih nezna rješiti formatiranje a putovali bi na Mjesec. I sad baš nemaju ideju riješiti import access-Excel. Eto baš im fali samo malo.Nemojte trošiti resurse ovog foruma uzalud. U svakom znanju pa tako i u ovom morate materiju svaladavati po etapama.Skužiš etapu pa malo inputa pa skočiš na slijedeći razred pa opet ispočetka. Za Import Access-excel treba da se dobro nasjediš. Svo znanje iz Excela svaki put kada priđeš rješavanju moraš podignuti i uzimati kako ti šta treba.
Sjeti se kako kompjuter to radi. Početak je Bios onnda polagano sve dok se sve ne podigne. Tada bez problema možeš pristupiti svakom resursu. ..................... Umoran sam od života,
 
Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.mbb.telenor.rs.



+133 Profil

icon Re: Update tabele u Accessu iz Excela17.11.2011. u 14:36 - pre 119 meseci
u jbt kakvih ludaka ima...
 
Odgovor na temu

[es] :: Office :: Excel :: Update tabele u Accessu iz Excela

[ Pregleda: 1946 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.