数据库名无!?谁来帮呀...在线给分了....

Question

Dim text As String
Dim XX As String
XX = "User_manage"
Data1.DatabaseName = App.Path + "\data\" + XX
text = Trim(Text1.text) + Trim(Text2.text) + Trim(Text3.text)
Data1.RecordSource = "select * from User where User_Info='" + text + "'"
Data1.Refresh㈠在上面程序中的第4行定义的数据库名,怎么会无效呢?????调试时老报错!!
  问题在哪呀??
  程序运行到data1.refresh就无法运行下去了...
  其中,User_manage为数据库(.mdb)...
㈡想删除存在硬盘中的数据库11.mdb用代码怎样写呀??

Answer 1

1.
Data1.DatabaseName = App.Path + "\data\" + XX
print data1.databasename
看看是不是一个合法的路径名
2.kill "c:\11.mdb"

Answer 2

//XX = "User_manage"
//Data1.DatabaseName = App.Path + "\data\" + XX你提供的数据库路径不对，程序在执行“Data1.Refresh”语句来打开数据库时当然要出错了，就漏了数据库的扩展名而已，你应该改成这样：XX = "User_manage.mdb"
Data1.DatabaseName = App.Path + "\data\" + XX当然最好也把“+”号换成“&”，虽然这对你目前的程序最有影响，但习惯上使用“&”符号连接字符串。删除文件可用“kill "FilePath"”。

Answer 3

楼上的兄弟呀,还是没用呀...
我用的是DAO数据库,定义了一个全局函数,如下:Public Function Password_check()
Dim text As String
Dim XX As String
XX = "User_manage"
Data1.DatabaseName = App.Path & "\data\" & XX & ".mdb"
'Print Data1.DatabaseName
text = Trim(Text1.text) & Trim(Text2.text) & Trim(Text3.text)
Data1.RecordSource = "select * from User where User_Info='" & text & "'"
Data1.Refresh
If Data1.Recordset.RecordCount = 1 Then
  If text <> "01j2lyy0013079" Then
   With frmMain
    mnuADDMES.Enabled = False
    mnuMidfyMes.Enabled = False
    mnuQueryMes.Enabled = False
    mnuADDCourseMes.Enabled = False
    mnuMidfyCourseMes.Enabled = False
    mnuSettingCourse.Enabled = False
    mnuAddUser.Enabled = False
    mnuMidfyUser.Enabled = False
    mnuClose.Enabled = False
    mnuFileBar0.Enabled = False
    Show
   End With
  Else
    frmMain.Show
  End If
End IfEnd Function
功能是根据登录时输入的用户登录密码,从数据库\data\User_manage.mdb的表User_Info中检测是否该用户是合法的,如果是则登录主窗体....
可总是说我的数据库名不可识别!咋了???(二)用kill删除数据库时提示拒绝权限,是不是要先关闭该数据库才可删.关闭当前数据库的代码是?????

Answer 4

Data1.RecordSource = "select * from User where User_Info='" & text & "'"
Data1.Refresh在Data1.recordSource前用一个Data1.Refresh更新你的数据控件绑定的数据库
这两条语句是组合起来打开数据库用的:
Data1.DatabaseName = App.Path & "\data\" & XX & ".mdb"
Data1.Refresh数据库打开后才能选用数据集。建议别用它的数据控件，感觉上不是很好用，个人感觉而已 :）