Prikazi cijelu temu 21.04.2011 23:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Access i mreža
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PrenesiPodatke(IzTabele As String, UTabelu As String, BrojKolona As String, Optional Putanja As String) As Boolean
  2. '-------------------------------------------------------------
  3. 'IzTabele -Ime tabele iz koje se prebacuju podaci
  4. 'UTabelu-Ime Tabele u koju prebacujemo podatke
  5. 'BrojKolona -Broj kolona iz kojih zelimo prebaciti podatke
  6. 'Polja u obje tabele moraju biti srodna
  7. 'Putanja-Putanja sa imenom baze iz koje se prebacuju podaci
  8. ' Ovo se upisuje samo ako prebacujemo podatke iz druge baze
  9. 'Autor zxz
  10. '--------------------------------------------------------------
  11.  
  12. Dim Db As Database
  13. Dim Rs1 As Recordset
  14. Dim Rs2 As Recordset
  15. Dim I As Integer
  16. Dim SQl As String
  17. Dim Podatak
  18.  
  19. Set Db = CurrentDb()
  20. If Putanja <> "" Then
  21. SQl = "SELECT * FROM " & IzTabele & " IN''" & Putanja
  22. Else
  23. SQl = "SELECT * FROM " & IzTabele
  24. End If
  25.  
  26. Set Rs1 = Db.OpenRecordset(SQl)
  27. Set Rs2 = Db.OpenRecordset(UTabelu)
  28. Do While Not Rs1.EOF
  29. Rs2.AddNew
  30.     For I = 0 To BrojKolona - 1
  31.     Podatak = Rs1.Fields(I)
  32.     If Format$(Podatak) <> "" Then
  33.     Rs2.Fields(I) = Podatak
  34.     End If
  35.     Next I
  36. Rs2.Update
  37. Rs1.MoveNext
  38. Loop
  39. Rs1.Close
  40. Rs2.Close
  41. Set Db = Nothing
  42. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.