vb精彩编程200例,好东西大家一起分享！

vb精彩编程200例Attribute VB_Name = "form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sql As String Private Sub Form_Activate() Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '打开数据库 sql = "select 操作员 from qxsz" Set myrs = mydb.OpenRecordset(sql) If myrs.EOF = False Then myrs.MoveLast If myrs.BOF = False Then myrs.MoveFirst For i = 0 To myrs.RecordCount - 1 master.AddItem (myrs.Fields(0)) myrs.MoveNext Next i If master.ListCount > 0 Then master.ListIndex = 0 myrs.Close mydb.Close master.SetFocus End Sub