VB6+ACCESS数据库查询问题

senlin911 2008-10-19 09:27:00

VB6+ACCESS97 本来想返回 Number 字段是text14.text的记录但是总返回表中最后一条记录请帮我看看那里写错了

库study.mdb 表studentinf 字段 Number 条件返回Number=text14.text 的记录

Dim cnn1 As ADODB.Connection
Dim rscourse As ADODB.Recordset
Dim addflag As Boolean
Dim chaxun As String
Set cnn1 = New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn1.Open "e:\24H\study.mdb"
Set rscourse = New ADODB.Recordset
rscourse.Open "studentinf", cnn1, adOpenDynamic, adLockOptimistic, adCmdTable
addflag = False
chaxun = "Select Number from studentinf Where Number = '" & text14.text & " ';"
cnn1.ConnectionString = "Provider=Microsoft.Jet.OleDB.3.51;Date Source = e:\24H\study.mdb"
rscourse.Open chaxun, cnn1, adOpenDynamic

Text2.Text = rscourse!Name
Text1.Text = rscourse!Number
Text7.Text = rscourse!Level
Text3.Text = rscourse!Tel
Text4.Text = rscourse!Sex
Text5.Text = rscourse!Age
Text8.Text = rscourse!Buy
Text9.Text = rscourse!Remain
Text6.Text = rscourse!Date_1
Text10.Text = rscourse!Date_2
Text11.Text = rscourse!Address
''''''''''''''''''''''''''''''''''''''''''''''
cnn1.Close

...全文

180 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

vbman2003 2008-10-20

打赏
举报

debug.print chaxun
在立即窗口看看SQL语句有什么问题，也可以复制到ACCESS查询页中去测试...

senlin911 2008-10-19

打赏
举报

那位能加我QQ解决一下问题 QQ 89037898 必将感激不尽

senlin911 2008-10-19

打赏
举报

还是不对呀我又加了这个进行一下判断结果查询的结果是 Msgbox 提示
Else
MsgBox "没有这个记录"
End If
rscourse.Close
cnn1.Close

饮水需思源 2008-10-19

打赏
举报

Dim cnn1 As ADODB.Connection 

Dim rscourse As ADODB.Recordset 

Dim addflag As Boolean 

Dim chaxun As String 

Set cnn1 = New ADODB.Connection 

Set rscourse = New ADODB.Recordset 

addflag = False 

chaxun = "Select * from studentinf Where [Number] = " & text14.text & "" 

cnn1.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;Date Source = e:\24H\study.mdb" 

cnn1.open

rscourse.Open chaxun, cnn1, adopenkeyset,adlockreadonly

if rscourse.recordcount>0 then

    Text2.Text = rscourse!Name & ""

    Text1.Text = rscourse!Number & ""

    Text7.Text = rscourse!Level & ""

    Text3.Text = rscourse!Tel & ""

    Text4.Text = rscourse!Sex & ""

    Text5.Text = rscourse!Age & ""

    Text8.Text = rscourse!Buy & ""

    Text9.Text = rscourse!Remain & ""

    Text6.Text = rscourse!Date_1 & ""

    Text10.Text = rscourse!Date_2 & ""

    Text11.Text = rscourse!Address & ""

end if

rscourse.close

cnn1.Close