'//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
About The Book The Access developer’s premier reference to building powerfully extensible database solutions. Whether you’re extending an existing database or developing a complex custom solution, get the code and instruction you need to exploit the