Populating Elements

Submitted by kevern010101 on Saturday, October 9, 2010 - 07:17.
  1. Option Explicit
  2.     Dim conn As ADODB.Connection
  3.     Dim rs As ADODB.Recordset
  4.    
  5.    
  6.    
  7.    
  8. ' pupulate element
  9. ' @author: Kevern
  10. ' @date: checkDate 07/28/2009
  11. Public Sub init()
  12.     Set conn = New ADODB.Connection
  13.     Set rs = New ADODB.Recordset
  14.         conn.connectionString = ConnectionStringModule.connectionString
  15.             With conn
  16.                 On Error GoTo errHandler
  17.                 .Open
  18.             End With
  19.         Exit Sub
  20. errHandler:
  21.     MsgBox Err.Description, vbCritical + vbOKOnly, "Admin: Populate Element MOdule - Init"
  22. End Sub
  23. Public Sub populateFlexGrids(dboquery As String, grid As MSHFlexGrid)
  24.     Call init
  25.     grid.Clear
  26.         With rs
  27.             On Error GoTo errHandler
  28.             .Open dboquery, conn, adOpenKeyset, adLockOptimistic
  29.             If rs.RecordCount = 0 Then
  30.                 MsgBox "No Data Found!", vbCritical, "Admin: Populate Element MOdule - Populate Flexgrid"
  31.                 Set grid.DataSource = rs
  32.             Else
  33.                 Set grid.DataSource = rs
  34.             End If
  35.             .Close
  36.         End With
  37.         conn.Close
  38.     Dim columnWidth As Double
  39.     Dim counter As Integer
  40.             columnWidth = (grid.Width / grid.Cols)
  41.             If columnWidth <= 2000 Then
  42.                 columnWidth = 2000
  43.             End If
  44.             For counter = 0 To grid.Cols
  45.                 grid.ColWidth(counter) = columnWidth
  46.             Next counter
  47.         grid.Refresh
  48.     Exit Sub
  49. errHandler:
  50.     MsgBox Err.Description, vbCritical + vbOKOnly, "Admin: Populate Element MOdule - Populate Flexgrid: Error"
  51. End Sub
  52. Public Sub populatePickingList(dboquery As String, grid As MSHFlexGrid)
  53.     Call init
  54.     grid.Clear
  55.     With rs
  56.            On Error Resume Next
  57.            .Open dboquery, conn, adOpenKeyset, adLockOptimistic
  58.            Set grid.DataSource = rs
  59.     .Close
  60.     End With
  61.    
  62.     Dim counter As Integer
  63.     With grid
  64.         For counter = 0 To grid.Cols - 1
  65.             .ColWidth(counter) = 2000
  66.         Next counter
  67.     End With
  68.    
  69.     conn.Close
  70. End Sub
  71. Public Sub populateCombo(KeyToCollect As String, dboquery As String, combo As ComboBox)
  72.     Call init
  73.     combo.Clear
  74.             With rs
  75.                 'On Error GoTo errHandler
  76.                 On Error Resume Next
  77.                 If .State = adStateClosed Then
  78.                     .Open dboquery, conn, adOpenKeyset, adLockOptimistic
  79.                 End If
  80.                     Do While Not .EOF
  81.                         combo.addItem .fields(KeyToCollect)
  82.                         .MoveNext
  83.                     Loop
  84.                 .Close
  85.             End With
  86.         conn.Close
  87.     Exit Sub
  88. errHandler:
  89.     MsgBox Err.Description, vbCritical + vbOKOnly, " Admin: Populate Element MOdule - Populate Combo: Error"
  90. End Sub
  91. Public Sub setText(dboquery As String, txtBox As TextBox, fieldCollect As String)
  92.     Call init
  93.         With rs
  94.             'On Error GoTo errHandler
  95.             On Error Resume Next
  96.             If .State = adStateClosed Then
  97.                 .Open dboquery, conn, adOpenKeyset, adLockOptimistic
  98.             End If
  99.             If .EOF Then
  100.                 MsgBox "Request unavailable on other tables, cannot populate other elements!"
  101.                 .Close
  102.                 conn.Close
  103.                 Exit Sub
  104.             Else
  105.                 txtBox.Text = .fields(fieldCollect)
  106.             End If
  107.            
  108.             .Close
  109.         End With
  110.     conn.Close
  111.     Exit Sub
  112. errHandler:
  113.     MsgBox Err.Description, vbCritical + vbOKOnly, "Admin: Populate Element MOdule - Set Text: Error"
  114. End Sub
  115. Public Sub setcomboText(dboquery As String, cbo As ComboBox, fieldCollect As String)
  116.     Call init
  117.             With rs
  118.                 'On Error GoTo errHandler
  119.                 On Error Resume Next
  120.                 If .State = adStateClosed Then
  121.                     .Open dboquery, conn, adOpenKeyset, adLockOptimistic
  122.                 End If
  123.                 If .EOF Then
  124.                     MsgBox "Request unavailable on other tables, cannot populate other elements!"
  125.                     .Close
  126.                     conn.Close
  127.                     cbo.Text = ""
  128.                     Exit Sub
  129.                 Else
  130.                     cbo.Text = .fields(fieldCollect)
  131.                 End If
  132.                 .Close
  133.             End With
  134.         conn.Close
  135.     Exit Sub
  136. errHandler:
  137.     MsgBox Err.Description, vbCritical + vbOKOnly, "Admin: Populate Element MOdule - Set Combo: Error"
  138. End Sub
  139. Public Sub setDate(dboquery As String, DTP As DTPicker, fieldCollect As String)
  140.     Call init
  141.             With rs
  142.                 On Error GoTo errHandler
  143.                 .Open dboquery, conn, adOpenKeyset, adLockOptimistic
  144.                 DTP.value = .fields(fieldCollect)
  145.                 .Close
  146.             End With
  147.         conn.Close
  148.     Exit Sub
  149. errHandler:
  150.     MsgBox Err.Description, vbCritical + vbOKOnly, " Admin: Populate Element MOdule - Set Date: Error"
  151. End Sub
Tags
populating other elements

Add new comment

About text formats
  • 10 views