Jobs
Author: Ts Bhusal Date Submitted: 7/28/2005 Category: Database Compatibility: VB 6 This code has been accessed 8998 times.
Email Yourself this snippet:
'No Declarations 'Create a database with a Name "Database.mdb" 'make a field "Students" in the database. You can make others also 'in a form, draw a combo box and a command button 'draw a datacontrol in the form
Code
Private Sub Dataconne() with data1 .databasename=App.path & "\database.mdb" 'or C:\database.mdb; path .recordsource="Select Students From Database" ' or "Students" .refresh end with end sub Private Sub Form_Load() on error resume next Do Until data1.recordset.EOF combo1.additem data1.recordset.fields("Students") data1.recordset.movenext loop End Sub