Predmet:Re: Ado command i progrsbar
ne e problem ocx ot problem mi e procesot
PreuzmiIzvorni kôd (Visual Basic):Private Sub cmdRoba_Vozilo_Click()
gridPrometi.Visible = False
gridLager.Visible = True
TStart = GetTickCount
If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy")
If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy")
' ovde bi trebalo da zapocniva progresbarot
Set rsLager = New ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "spLagerVoziloKorisnik"
cmd.Parameters.Refresh
cmd.Parameters("@Korisnik") = rsKorisnici.Fields("ID_Korisnik")
cmd.Parameters("@OdData") = txtDataOD
cmd.Parameters("@DoData") = txtDataDO
Set rsLager = cmd.Execute()
Set cmd = Nothing
' ovde treba da zavrsuva progresbarot
Set gridLager.DataSource = rsLager
gridLager.ReBind
gridLager.Refresh
gridLager.Caption = "ËÀÃÅÐ ËÈÑÒÀ ÍÀ ÑÓÐÎÂÈÍÈ ÂÎ ÂÎÇÈËÎ ÇÀ : " & rsKorisnici.Fields("Ime")
gridLager.Columns(4).Caption = "ÂÎ ÀÏÀÐÀÒÈ"
gridLager.Columns(5).Caption = "ÂÎ ÂÎÇÈËÎ"
Call SumiGridLager(rsLager)
End Sub