| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 451 人关注过本帖
标题:Name 函数的问题
只看楼主 加入收藏
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:939
专家分:5244
注 册:2015-8-10
结帖率:100%
收藏
 问题点数:0 回复次数:1 
Name 函数的问题
程序代码:
Sub ClearDatabase(DBname As String)   '清空指定的Access mdb文件中的所有表格
 Set cn = New ADODB.Connection

 cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Local DB\" & DBname & ".mdb;Persist Security Info=False;Jet OLEDB:Database Password="

 cn.Open

 ComboSht.Clear

 

 Set myrec = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))

 Do While Not myrec.EOF
  ComboSht.AddItem myrec!Table_name
  myrec.MoveNext

 Loop

 

 Set myrec = New ADODB.Recordset

 For i = 0 To ComboSht.ListCount - 1
  sqltxt = "delete from [" & Trim(ComboSht.List(i)) & "]"
  myrec.Open sqltxt, cn, 1, 2

 Next i
   

 Name App.Path & "\Local DB\" & DBname & ".mdb" As App.Path & "\Local DB\" & DBname & "-1.mdb"


 Dim dbE As New DAO.DBEngine

  App.Path & "\Local DB\" & DBname & "-1.mdb", App.Path & "\Local DB\" & DBname & ".mdb"

 Kill App.Path & "\Local DB\" & DBname & "-1.mdb"
End Sub


上面加红的这段。Name本来是一个函数,但是不知道为什么运行的时候变成了一个字符变量,内容是窗体的名称。。。 我也没有定义这个变量。 不知何解

如果最后这几行放在外面使用又是可以的,比如说

 ClearDatabase DBname
 Name App.Path & "\Local DB\" & DBname & ".mdb" As App.Path & "\Local DB\" & DBname & "-1.mdb"
 Dim dbE As New DAO.DBEngine
  App.Path & "\Local DB\" & DBname & "-1.mdb", App.Path & "\Local DB\" & DBname & ".mdb"
 Kill App.Path & "\Local DB\" & DBname & "-1.mdb"
2015-09-01 10:33
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:939
专家分:5244
注 册:2015-8-10
收藏
得分:0 
这个问题我自己找到原因了,分享给大家
是因为使用Name改名时,对象必须关闭。光就这一段代码的话,关闭mdb文件的连接就可以了,修改之后代码如下
程序代码:
Set cn=nothing
set myrec=nothing
Name App.Path & "\Local DB\" & DBname & ".mdb" As App.Path & "\Local DB\" & DBname & "-1.mdb"

而我的情况更麻烦一点,窗口上一个adodc1也调用了这个mdb,还不能设为nothing要不就报警(虽然也能运行)。 最后我放弃adodc1,改用adodb了。
2015-09-01 18:57
快速回复:Name 函数的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038152 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved