说明: '//ACCESS合成数据 Private Sub Command14_Click() '导入男生体育成绩 On Error Resume Next Dim strfilename As String Dim myCat As New ADOX.Catalog Dim strsql As String Dim mytable As String '指定外部数据库 strfilename = GetFileName("选择mdb文件", "*.mdb", "mdb ") Me.MYBOOKPAT
<weiminzou> 上传 | 大小:25kb