帮我看一段代码(用dao操作数据库)

wxwriver 2002-05-16 07:42:10
***********************************
Private Sub Command1_Click()
On Error GoTo commanderror
Dim num As String
num = InputBox$("please input id", "id check", "001")
If num <> "" Then
num = "学号='" & num & "'"
rs1.FindFirst num  'rs1在模块里已经定义
If Not rs1.NoMatch Then
MsgBox "no id ", vbOKOnly + vbExclamation, ""

Else
MsgBox "no id ", vbOKOnly + vbExclamation, ""

End If
End If


Exit Sub

commanderror:
MsgBox Err.Description

End sub

**********************************
这是用DAO操作数据库时执行查询的一段代码。可是一运行,就提示:
语法错误(操作符丢失)

我是刚学VB数据库的。照着一本书做的。
语法错在哪里?
我不知道是不是这本书主要是VB5上运行的,所以会有一些错。
比如说它的一个SQL语句:
sql = "select 学籍.* from 学籍  order by 学籍.学号"
我一运行起来,就说from语句错。
后来自己学了一下SQL,把最后的“学籍.学号“用括号括起来才通过。
哎,上书城去,居然找不到一本好的学数据库的书。
有人推荐的王国荣的书根本找不到。
...全文
3 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wxwriver 2002-05-18
上面那个问题已经搞定
说出来叫你晕

(num = "学号='" & num & "'")
这一段代码的“学号=“应该是“学号="

就这么简单,说出来你们别笑。我是菜鸟,
以前学的专业跟计算机差十万八千里。
总之,耽误大家时间,给分,希望以后能
得到各位大侠的多多指教。


回复
panxuejian 2002-05-17
关于数据库的书,我的建议是买“机械工业出版社”的。如果学的是DAO就买
《Visual Basic 6 数据库访问技术》 是jeffrey P.McManusy(美),
学的是ADO的话就买《Visual Basic 6 数据库开发人员指南》也是美国人写的
回复
footballboy 2002-05-17
等我找找看以前看书时练习生成的例子还在不在
回复
wxwriver 2002-05-16
footballboy,你一定也看过这本书的,能给我一些帮助吗?
回复
footballboy 2002-05-16
是《...实例导航》吧?
回复
wxwriver 2002-05-16
不好意思。复制代码出错。
中间一段应该是:
rs1.FindFirst num  'rs1在模块里已经定义
If Not rs1.NoMatch Then
displayrecord '上面的写错了。应该是执行这个子程序
else
MsgBox "no id ", vbOKOnly + vbExclamation, ""



附:
Public Sub displayrecord()
Dim i As Integer
For i = 0 To 5
If Not IsNull(rs1.Fields(i)) Then
Text1(i) = rs1.Fields(i)
Else
Text1(i) = ""
End If
next

end sub
回复
wxwriver 2002-05-16
对,就是卢毅的<数据库实例导航>,他可能是在vb5上操作的。书的前言还写无论是VB5,VB6都能找到满意的答案。他的那本书没有提到ADO,crystal reporter也没有提到。
回复
wxwriver 2002-05-16
对,就是卢毅的<数据库实例导航>,他可能是在vb5上操作的。书的前言还写无论是VB5,VB6都能找到满意的答案。他的那本书没有提到ADO,crystal reporter也没有提到。
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告