Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy")
If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy")
Dim RsIzvestaj As ADODB.Recordset
Set RsIzvestaj = New ADODB.Recordset
' Ova treba samo ako e MY SQL ,za MS SQL i MSACCESS ne treba
RsIzvestaj.CursorLocation = adUseClient
RsIzvestaj.Open "CALL spSmetki('" & Format(txtDataOD, "yyyy-MM-dd") & "','" & Format(txtDataDO, "yyyy-MM-dd") & "')", cn, adOpenStatic, adLockOptimistic
' Test dali ima zapisi vo recordsetot
' RsIzvestaj.MoveFirst
' Do While Not RsIzvestaj.EOF
' MsgBox RsIzvestaj.Fields(2)
' RsIzvestaj.MoveNext