Prikazi cijelu temu 13.04.2015 22:07
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Kopiranje iz baze u bazu
Samo da napomenam za da funkcioniraat ovie moi funkcii moras da imas dve konekcii za sekoja baza posebno.Ednata se vika cn a drugata cnPren kade cn e konekcija na bazata vo koja sto gi prefrlas podatocite a cnPren e za bazata od koja gi zemas podatocite .
Dvete konekcii treba da se definirani nadvor od funkciite za da mozat da bidat dostapni do site funkcii
Dim cnPren As ADODB.Connection ' baza od koja se zemaat podatocite
Dim cn As ADODB.Connection ' baza vo koja se prefrlaat podatocite

vo funkcijata PrevzemiPodatoci treba da dodades i ova

Set cn = New ADODB.Connection
cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\KASA\TEMP.mdb" '& App.path & "\NovaBaza.mdb" & ";"
cn.Open
Ova ti treba za da se spois i na novata baza.(Kaj mene ne go gledas ova bidejki e vo drug modul i e Glonalna konekcija za celiot program.

I uste edna rabota ako vo bazata imas Polijan definirani kako AutoNumber togas funkcijata AzurirajTabeli treba malku da se prepravi bidejki ova e praveno za tabeli koi nemaat AutoNumber polijna.
Konekciite ne mora da bide kako moite mozis da gi zamenis so nekoja druga koja tebe ti odgovara.
Ovaj cod e praven za VB6 no so mali izmeni i vo Access ke funkcionira dobro.