Prikazi cijelu temu 26.08.2016 11:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Ado command i progrsbar
ne e problem ocx ot problem mi e procesot
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdRoba_Vozilo_Click()
  2.       gridPrometi.Visible = False
  3.       gridLager.Visible = True
  4.       TStart = GetTickCount
  5.   If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy")
  6.   If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy")
  7.   ' ovde bi trebalo da zapocniva progresbarot  
  8.  
  9.     Set rsLager = New ADODB.Recordset
  10.     Dim cmd As ADODB.Command
  11.     Set cmd = New ADODB.Command
  12.         cmd.ActiveConnection = cn
  13.         cmd.CommandType = adCmdStoredProc
  14.         cmd.CommandText = "spLagerVoziloKorisnik"
  15.         cmd.Parameters.Refresh
  16.         cmd.Parameters("@Korisnik") = rsKorisnici.Fields("ID_Korisnik")
  17.         cmd.Parameters("@OdData") = txtDataOD
  18.         cmd.Parameters("@DoData") = txtDataDO
  19.     Set rsLager = cmd.Execute()
  20.     Set cmd = Nothing
  21.    ' ovde treba da zavrsuva progresbarot
  22.  
  23.    Set gridLager.DataSource = rsLager
  24.           gridLager.ReBind
  25.           gridLager.Refresh
  26.           gridLager.Caption = "ËÀÃÅÐ ËÈÑÒÀ ÍÀ ÑÓÐÎÂÈÍÈ ÂÎ ÂÎÇÈËÎ ÇÀ : " & rsKorisnici.Fields("Ime")
  27.           gridLager.Columns(4).Caption = "ÂÎ ÀÏÀÐÀÒÈ"
  28.           gridLager.Columns(5).Caption = "ÂÎ ÂÎÇÈËÎ"
  29.          Call SumiGridLager(rsLager)
  30.  
  31. End Sub