文件名称：vb精彩编程200例,好东西大家一起分享！
文件大小：387KB
文件格式：RAR
更新时间：2012-07-14 04:06:39
vb
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
【文件预览】：
vb精彩编程200例
----VB精彩编程200例()
--------第3章 数据库技术.rar(133KB)
--------第5章 网络与Internet.rar(85KB)
--------第2章 多媒体与图形.rar(87KB)
--------第4章 文件与系统.rar(105KB)
--------第1章 窗体、界面与控件.rar(81KB)