文件名称：vb数据库实例
文件大小：14KB
文件格式：FRM
更新时间：2015-07-21 13:47:45
vb
vb数据库实例，简单的数据库实例应用 Dim intResult, i, intFind As Integer MyPath = "d:\" MyName = Dir(MyPath, vbDirectory) ReDim Mydirectory(intResult) MyName = Dir MyFile = "d:\1" & "\" & Form2.Text1.Text & Form2.Text2.Text & ".xls" intFind = Len(Dir(MyFile)) If intFind <> 0 Then Set oleExcel = CreateObject("Excel.Application") oleExcel.Visible = True oleExcel.Workbooks.Open FileName:="d:\1\" & Form2.Text1.Text & Form2.Text2.Text & ".xls" Else MsgBox "没有此文件！" End If