Mellananalys 1

I nuvarande tillstånd har programmet en viss basfärdighet.

Detta borde vi nu kunna
(Blått betyder sådant ni kan ändra bara ni ändrar på alla ställen.
Rött betyder sådant såm ni troligtvis måste ändra för varje nytt program)

1. Öppna databaser med hjälp av ADO
   
   För en mångsidig (men inte hastighetsoptimerd) användning gäller följande
   
   
• Sätt följande i General Declarations:
  
  Private WithEvents Conn As ADODB.Connection
  Private WithEvents RS As ADODB.Recordset
  
  
• Sätt följande i Form_Load (eller annan lämplig plats)
  
  Dim strSQL As String
  Set Conn = New ADODB.Connection
  Set RS = New ADODB.Recordset
  
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adodemo.mdb"
  strSQL = "SELECT * FROM ado"
  
  RS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
  
  
• Sätt följande i Form_Unload
  
  RS.Close
  Conn.Close
  Set RS = Nothing
  Set Conn = Nothing
  
  
2. Koppla TextBoxar till datatabellen
   
   
• Detta fixas med följande konstruktion (upprepa för varje fält)
  
  Set TextBoxensNamn.DataSource = RecordsetNamn
  TextBoxensNamn.DataField = "FältNamn"
  
  
3. Bläddra
   
   
• Följande standarlösningar finns det: (finns knepigare lösningar men dessa får duga för tillfället)
  
  Första:
  RecordsetNamn.MoveFirst
  
  Föregående:
  RecordsetNamn.MovePrevious
  If RecordsetNamn.BOF Then
       RecordsetNamn.MoveFirst
  End If
  
  Nästa:
  RecordsetNamn.MoveNext
  If RecordsetNamn.EOF Then
       RecordsetNamn.MoveLast
  End If
  
  Sista:
  RecordsetNamn.MoveLast
  
  
4. Validera data
   
   
• Görs genom att använda Validate händelsen för en kontroll
  
  Om värdet som valideras inte duger så sätter man
  Cancel = True
  i proceduren



5. Använda s.k. Control Arrays
   
   
• Har väl ingenting med ADO att göra men medge att det är bättre att ha en bläddringsprocedur än fyra