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

pomoc oko veze sa mdb fajlom

[es] :: Access :: pomoc oko veze sa mdb fajlom

[ Pregleda: 1287 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

anakin14

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



+133 Profil

icon pomoc oko veze sa mdb fajlom30.11.2010. u 07:51 - pre 113 meseci
napravio sam kod preko koga ubacujem record-e u mdb fajl iz forme iz excela.

hteo sam da vas pitam samo dali neko zna neko bolje resenje od ovog posto sam video da bas ima mnogo razlicitih nacina da se uradi isto.

Code:
Sub unos()
Dim conn As New Connection
Dim rec As New Recordset
Dim sql As String
conn.Open "Provider=microsoft.jet.oledb.4.0;" + _
"Data Source=" + "C:\Documents and Settings\Korisnik\Desktop\db1.mdb;"


If VBA.DateTime.Time >= 0.708333333333333 Or VBA.DateTime.Time <= 4.16666666666667E-02 Then smena = 2
If VBA.DateTime.Time >= 4.16666666666667E-02 And VBA.DateTime.Time <= 0.375 Then smena = 3
If VBA.DateTime.Time <= 0.708333333333333 And VBA.DateTime.Time >= 0.375 Then smena = 1

For i = 0 To ListBox1.ListCount - 1
For j = 1 To ListBox1.List(i, 7)

sql = "insert into  rad VALUES" & _
      "(" & datum & "," _
      & """" & Time() & """" & "," _
      & smena & "," _
      & ListBox1.List(i, 5) & "," _
      & racunbr & "," _
      & sifrakon & "," _
      & sto & "," _
      & ListBox1.List(i, 0) & "," _
      & """" & ListBox1.List(i, 1) & """" & "," _
      & """" & robastavka(ListBox1.List(i, 8), j, 2) & """" & "," _
      & robastavka(ListBox1.List(i, 8), j, 3) * -1 & "," _
      & ListBox1.List(i, 2) & "," _
      & robastavka(ListBox1.List(i, 8), j, 1) & "," _
      & ListBox1.List(i, 2) * robastavka(ListBox1.List(i, 8), j, 1) & "," _
      & """" & ListBox1.List(i, 6) & """" & "," _
      & """" & robastavka(ListBox1.List(i, 8), j, 4) & """" & "," _
      & robastavka(ListBox1.List(i, 8), j, 5) & ")"
      
rec.Open sql, conn

Next j
Next i
conn.Close
End Sub
 
Odgovor na temu

[es] :: Access :: pomoc oko veze sa mdb fajlom

[ Pregleda: 1287 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

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