找错，马上给分，在线等待
CLASS:
Private m_con As ADODB.Connection
Private m_rs As ADODB.Recordset
Private sql As String
Private Sub class_initialize()
Dim connstr As String
Set m_con = CreateObject("adodb.connection")
connstr = "driver={microsoft access driver (*.mdb)};dbq=e:\cgi\db1.mdb"
m_con.Open connstr
Set m_rs = CreateObject("adodb.recordset")
End Sub
Private Sub Class_Terminate()
If Not (m_con Is Nothing) Then
m_con.Close
End If
Set m_con = Nothing
Set m_rs = Nothing
End Sub
Private Sub dbopenrec(amd$)
Set m_rs = New ADODB.Recordset
m_rs.Open sql, adOpenDynamic, adLockOptimistic
End Sub
Private Sub dbexec(cmd$)
m_con.Execute cmd$
End Sub
Module:
Global m_res As DataObject
Sub main()
Set m_res = New DataObject
End Sub
Public Function isuser(username$, password$) As Boolean
sql = "select * from user where username='" & username & "' and password='" & password & "'"
dbopenrec (sql)
If m_rs.EOF Then
isuser = False
Else
isuser = True
End If
End Function
有什么错吗？
问题点数：40、回复次数：17Top
1 楼ltpao（啊炮）回复于 2002-04-08 22:09:10 得分 5
connstr不正确Top
2 楼lcooky（今夜无雪）回复于 2002-04-08 22:14:14 得分 5
1、你已经在class_initialize中创建recordset对象了，为什么还在dbopenrec又要new一次？好像不妥。
2、建议不要在class_initialize和Class_Terminate中编写代码，原因请查看MCSD的VB参考书。
3、好像有错误的一点：m_rs.Open sql, adOpenDynamic, adLockOptimistic
应该改为：m_rs.Open sql,m_con（你没有连接怎么打开数据库？呵呵）Top
3 楼pl5th2001（白牙）回复于 2002-04-08 22:21:35 得分 0
错误： dbopenrec未定义Top
4 楼cgh1970（聊天别找我）回复于 2002-04-08 22:28:27 得分 0
upTop
5 楼pl5th2001（白牙）回复于 2002-04-09 12:36:01 得分 0
帮忙改一下Top
6 楼shan__le（写累了，不想动了～～）回复于 2002-04-09 12:41:17 得分 5
m_rs.Open sql,m_conn, adOpenDynamic, adLockOptimistic
原来的
m_rs.Open sql, adOpenDynamic, adLockOptimistic
是不是数据库打开时的错误？如果是那么就是没有加上m_conn这个了，原来遇到过：） 呵呵，是粗心大意造成的：）Top
7 楼yelld（yelld）回复于 2002-04-09 15:05:39 得分 0
sssss
================================================================
CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！
★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。
★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。
Http://www.ChinaOK.net/csdn/csdn.zip0D
Http://www.ChinaOK.net/csdn/csdn.rar0D
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
Top
8 楼yelld（yelld）回复于 2002-04-09 15:06:01 得分 0
sss
================================================================
CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！
★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。
★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。
Http://www.ChinaOK.net/csdn/csdn.zip0D
Http://www.ChinaOK.net/csdn/csdn.rar0D
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
Top
9 楼gump2000（阿甘）回复于 2002-04-09 15:38:55 得分 5
dbopenrec (sql)
改为
dbopenrec sql
Top
10 楼dragoonLee（龙）回复于 2002-04-09 16:30:49 得分 5
CLASS:
Private m_con As ADODB.Connection
Private m_rs As ADODB.Recordset
Private sql As String
Private Sub class_initialize()
Dim connstr As String
Set m_con =new ADODB.Connection
connstr = "driver={microsoft access driver (*.mdb)};dbq=e:\cgi\db1.mdb"
sysConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "e:\cgi\db1.mdb" &_
";Persist Security Info=False
m_con.Open connstr
Set m_rs =new ADODB.Recordset
End Sub
Private Sub Class_Terminate()
m_rs.close
If Not (m_con Is Nothing) Then m_con.Close
Set m_con = Nothing
End Sub
Private Sub dbopenrec(amd$)
m_rs.Open amd$, adOpenDynamic, adLockOptimistic
End Sub
Private Sub dbexec(cmd$)
m_con.Execute cmd$
End Sub
Module:
Global m_res As DataObject
Sub main()
Set m_res = New DataObject
End Sub
Public Function isuser(username$, password$) As Boolean
sql = "select * from user where username='" & username & "' and password='" & password & "'"
dbopenrec (sql)
If m_rs.EOF Then
isuser = False
Else
isuser = True
End If
End Function
Top
11 楼pl5th2001（白牙）回复于 2002-04-09 16:53:20 得分 0
还是dbopenrec未定义Top
12 楼gump2000（阿甘）回复于 2002-04-09 16:57:19 得分 5
dbopenrec (sql)
改为
dbopenrec sql
Top
13 楼pl5th2001（白牙）回复于 2002-04-09 17:08:57 得分 0
class:
Private m_con As ADODB.Connection
Private m_rs As ADODB.Recordset
Private sql As String
Private Sub class_initialize()
Dim connstr As String
Set m_con = CreateObject("adodb.connection")
connstr = "driver={microsoft access driver (*.mdb)};dbq=e:\cgi\db1.mdb"
m_con.Open connstr
Set m_rs = CreateObject("adodb.recordset")
End Sub
Private Sub Class_Terminate()
If Not (m_con Is Nothing) Then
m_con.Close
End If
Set m_con = Nothing
Set m_rs = Nothing
End Sub
Private Sub dbexec(cmd$)
m_con.Execute cmd$
End Sub
Private Sub dbopenrec(amd$)
m_rs.Open amd$, m_con, adOpenDynamic, adLockOptimistic
End Sub
module:
Global m_res As DataObject
Sub main()
Set m_res = New DataObject
End Sub
Public Function isuser(username$, password$) As Boolean
sql = "select * from user where username='" & username & "' and password='" & password & "'"
dbopenrec
If m_rs.EOF Then
isuser = False
Else
isuser = True
End If
End Function
错误：dbopenrec未定义Top
14 楼gump2000（阿甘）回复于 2002-04-09 17:18:15 得分 5
dbopenrec---改了改了
m_rs.Open sql, m_con, adOpenDynamic, adLockOptimistic
Top
15 楼pl5th2001（白牙）回复于 2002-04-09 17:36:24 得分 0
错误：dbopenrec未定义Top
16 楼tony_jian（晕了）回复于 2002-04-09 17:47:19 得分 5
换个名字试试Top
17 楼pl5th2001（白牙）回复于 2002-04-09 18:01:54 得分 0
不行的Top
