不能读取记录;在上没有读取tLogs数据的权限?????

[xxd88]

错误代码:
Private Sub Timer1_Timer()
Label1.Caption = Time
Dim tag_agin, tag_end As Date
tag_agin = #7:30:00 PM#
tag_end = #9:30:00 PM#
If Time = tag_agin Then
Dim a_Conn As New ADODB.Connection
Dim s_Conn As New ADODB.Connection
Dim rsa As New ADODB.Recordset
Dim rss As New ADODB.Recordset
Dim a_Sql As String
Dim s_Sql As String
Dim i As Long
Dim gz As String
gz = "高职"

'连接access数据库
a_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\2004rec.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zhrmghg1949jgqz"

'连接SQL数据库
s_Conn.ConnectionString = "driver={sql server};server=61.233.62.174;uid=sa;pwd=questioncexovjai;Database=kq"
s_Conn.ConnectionTimeout = 50
s_Conn.Open
Set rss.ActiveConnection = s_Conn
'设置游标类型
rss.CursorType = adOpenDynamic

'构造access sql语句
a_Sql = "Select * From tLogs Where dtTime2 is null and sMemo Like '%" & gz & "%'"
'构造mssql sql语句
s_Sql = "Select * From sjinfo"

Set rsa = a_Conn.Execute(a_Sql)
For i = 1 To rsa.RecordCount
rss.Open s_Sql
rss.AddNew
rss("sjkid") = rsa("sCardID")
rss("sjtime") = "19:30:00"
rss("sjdate") = rsa("dtTime1")
rss("roomname") = "电算中心"
rss("stuname") = rsa("sName")
rss("stuclass") = rsa("sMemo")
rss.Update
rss.Close
rsa.MoveNext
Next i
Set rsa = Nothing
End If
End Sub

[jhone99]

Private Sub Timer1_Timer()
Label1.Caption = Time
Dim tag_agin, tag_end As Date
tag_agin = #7:30:00 PM#
tag_end = #9:30:00 PM#
If Time = tag_agin Then
Dim a_Conn As New ADODB.Connection
Dim s_Conn As New ADODB.Connection
Dim rsa As New ADODB.Recordset
Dim rss As New ADODB.Recordset
Dim a_Sql As String
Dim s_Sql As String
Dim i As Long
Dim gz As String
gz = "高职"

'连接access数据库
a_Conn.CursorLocation =adUseClient
a_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\2004rec.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zhrmghg1949jgqz"

'连接SQL数据库
s_Conn.CursorLocation =adUseServer
s_Conn.ConnectionString = "driver={sql server};server=61.233.62.174;uid=sa;pwd=questioncexovjai;Database=kq"
s_Conn.ConnectionTimeout = 50
s_Conn.Open
Set rss.ActiveConnection = s_Conn
'设置游标类型
rss.CursorType = adOpenDynamic

'构造access sql语句
a_Sql = "Select * From tLogs Where dtTime2 is null and sMemo Like '%" & gz & "%'"
'构造mssql sql语句
s_Sql = "Select * From sjinfo"

Set rsa = a_Conn.Execute(a_Sql)
For i = 1 To rsa.RecordCount
rss.Open s_Sql
rss.AddNew
rss("sjkid") = rsa("sCardID")
rss("sjtime") = "19:30:00"
rss("sjdate") = rsa("dtTime1")
rss("roomname") = "电算中心"
rss("stuname") = rsa("sName")
rss("stuclass") = rsa("sMemo")
rss.Update
rss.Close
rsa.MoveNext
Next i
Set rsa = Nothing
End If
End Sub

[xxd88]

楼上老大帮忙看看
错误提示:
实时错误:'-2147217911 (80040e09)' 不能读取数据 在'tlogs'上没有读取权限 我在数据库安全里设置过权限了 我也在数据库文件安全属性里设置everyone权限了 怎么还会有这个错误???
Private Sub Timer1_Timer()
Label1.Caption = Time

Dim tag_agin, tag_end As Date
tag_agin = #7:30:00 PM#
tag_end = #9:30:00 PM#
If Time = tag_agin Then


Dim i As Long
Dim gz As String
gz = "高职"

Dim s_Conn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim s_Sql As String
s_Conn.CursorLocation = adUseServer
'连接SQL数据库
s_Conn.ConnectionString = "driver={sql server};server=61.233.62.174;uid=sa;pwd=questioncexovjai;Database=kq"
s_Conn.ConnectionTimeout = 50
s_Conn.Open
Set rss.ActiveConnection = s_Conn
'设置游标类型
rss.CursorType = adOpenDynamic
'构造mssql sql语句
s_Sql = "Select * From sjinfo"

Dim a_Conn As New ADODB.Connection
Dim rsa As New ADODB.Recordset
Dim a_Sql As String
a_Conn.CursorLocation = adUseClient
'连接access数据库
a_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\2004rec.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zhrmghg1949jgqz"
a_Conn.Open
'构造access sql语句
a_Sql = "Select * From tLogs Where dtTime2 is null and sMemo Like '%" & gz & "%'"
rsa.Open a_Sql, a_Conn, adOpenStatic, adLockOptimistic



'Set rsa = a_Conn.Execute(a_Sql)

For i = 1 To rsa.RecordCount
rss.Open s_Sql
rss.AddNew
rss("sjkid") = rsa("sCardID")
rss("sjtime") = "19:30:00"
rss("sjdate") = rsa("dtTime1")
rss("roomname") = "电算中心"
rss("stuname") = rsa("sName")
rss("stuclass") = rsa("sMemo")
rss.Update
rss.Close
rsa.MoveNext
Next i
Set rsa = Nothing
End If
End Sub

[Tiger_Zhao]

1)mdb文件只读
2)mdb已被其他程序（如 Access）打开
3)Aceess 中 Like 的通配符是 * 而不是 %

[xxd88]

我看了属性里不是只读
mdb没有被access打开
我把%改为*也是同样的错误????

[xxd88]

是不是因为数据库有密码 而有密码的mdb文件是以独占方式打开的???

[Tiger_Zhao]

用 Access 打开，菜单“工具\安全\用户与组权限”，检查 tLogs 的设置。
改用其他表查询一下，是否表现一致。