文件名称：ACCESS合成数据
文件大小：25KB
文件格式：RAR
更新时间：2012-06-23 09:50:22
ACCESS 合成 表 数据
'//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.MYBOOKPATH = strfilename mytable = "studs" '指定外部库中数据表 strsql = "INSERT INTO 体育" strsql = strsql + " SELECT * " strsql = strsql + " FROM " & mytable & " in '" & strfilename strsql = strsql + "' WHERE sex='男';" Me.Text11 = strsql '将指定外部库中指定表中的数据追加到 [体育] 表中 DoCmd.RunSQL strsql Me.List6.Requery End Sub ......
【文件预览】：
合成数据.mdb