home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Rejstrik / basStart.bas next >
Encoding:
BASIC Source File  |  2002-04-21  |  1.3 KB  |  54 lines
  1. Attribute VB_Name = "basStart"
  2. Option Explicit
  3.  
  4. Public gcnRejstrik As ADODB.Connection  'globalni connection
  5. Public gstrDBPath As String             'cesta k databazi
  6.  
  7. Public Sub Main()
  8.   On Error GoTo err_handler
  9.  
  10.   frmSplash.Show
  11.   DoEvents
  12.  
  13.   'cesta k databazi
  14.   gstrDBPath = App.Path
  15.   gstrDBPath = gstrDBPath & IIf(Len(gstrDBPath) = 3, "", "\") & "rejstrik.mdb"
  16.   
  17.   'otevreni databaze
  18.   Set gcnRejstrik = New ADODB.Connection
  19.   With gcnRejstrik
  20.     .Mode = adModeShareExclusive
  21.     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gstrDBPath & ";Persist Security Info=False"
  22.     .Open
  23.   End With
  24.  
  25.   Load frmMain
  26.   Unload frmSplash
  27.   frmMain.Show
  28.   
  29.   Exit Sub
  30. err_handler:
  31.   MsgBox Err.Description, vbCritical, App.ProductName
  32. End Sub
  33.  
  34. '=============================================================================
  35. 'Nahraje vsechny kategorie do seznamu - combobox, listbox
  36. Public Sub LoadCategories(objList As Object)
  37.   Dim rs As New ADODB.Recordset
  38.  
  39.   With objList
  40.     .AddItem "(vÜe)": .ItemData(.NewIndex) = 0
  41.  
  42.     rs.Open "qryGetCategories", gcnRejstrik, adOpenForwardOnly, adLockReadOnly
  43.     Do While Not rs.EOF
  44.       .AddItem rs("cat_label")
  45.       .ItemData(.NewIndex) = rs("id_category")
  46.       rs.MoveNext
  47.     Loop
  48.     rs.Close: Set rs = Nothing
  49.  
  50.     .ListIndex = 0
  51.   End With
  52. End Sub
  53.  
  54.