| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 625 人关注过本帖
标题:[求助]各位帮我看看程序错在哪?我都急疯了!
只看楼主 加入收藏
yixin0129
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-4-5
收藏
 问题点数:0 回复次数:5 
[求助]各位帮我看看程序错在哪?我都急疯了!

我现在在做图书馆管理系统,做图书查询的时候,我设计了用户可以通过多种方法查询,通过输入图书编号(Text1)、图书名称(Text3)、图书类别( DBCombo1)、出版社(DBCombo1)、作者姓名(Text2)、登记日期( DTPicker1)查询,可以同时输入两个以上查询信息,输完后按“查询”按扭就会在表中显示所查图书信息,表是用Adodc1来连接数据库的。可是运行时总是说from子句语法错误,各位高手,帮我找找程序错在哪里?我已经想了两天了还是没解决。谢谢各位了!“查询”按扭的代码是这样的: Dim sql As String Dim str(6) As String '保存设置的查询条件 Dim count As Integer '判断用户添写的条件的数目 Dim i As Integer count = 0

If Text1.Text <> "" Then str(1) = "图书编号='" & Text1.Text & "'" Else str(1) = "" End If If Text3.Text <> "" Then str(2) = "图书名称='" & Text3.Text & "'" Else str(2) = "" End If If DBCombo1.Text <> "" Then str(3) = "图书类别='" & DBCombo1.Text & "'" Else str(3) = "" End If If DBCombo2.Text <> "" Then str(4) = "出版社='" & DBCombo2.Text & "'" Else str(4) = "" End If If Text2.Text <> "" Then str(5) = "作者姓名='" & Text2.Text & "'" Else str(5) = "" End If If Check1.Value = 1 Then str(6) = "登记日期=#" & DTPicker1.Value & "#" Else str(6) = "" End If If str(1) = "" And str(2) = "" And str(3) = "" And str(4) = "" And str(5) = "" And str(6) = "" Then sql = "select * from 图书信息" Else sql = "select * from 图书信息 where" For i = 1 To 6 If str(i) <> "" Then count = count + 1 If count = 1 Then '第一个查询条件不需要"and"连接符 sql = sql + str(i) Else '以后的查询条件都需要"and"连接符 sql = sql + "and" + str(i) End If End If Next End If Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\book.db1.mdb;Persist Security Info=False" Adodc1.CursorLocation = adUseClient Adodc1.CommandType = adCmdText Adodc1.RecordSource = sql Adodc1.Refresh End Sub

搜索更多相关主题的帖子: 图书馆 信息 连接数据库 管理系统 出版社 
2005-05-13 11:49
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
把你SQL语句放上来。

天津网站建设 http://www./
2005-05-13 12:01
yanchangshan
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-7-6
收藏
得分:0 
解决了吗?关注中
2005-07-06 14:13
in羊羊
Rank: 1
等 级:新手上路
帖 子:144
专家分:0
注 册:2005-4-17
收藏
得分:0 
你逐步调试一下看看哪里有错误

我看是  Else                     '以后的查询条件都需要"and"连接符
          sql = sql + "and" + str(i)
这里有问题,这样查询有问题
2005-07-06 22:51
marer
Rank: 2
等 级:新手上路
威 望:3
帖 子:928
专家分:0
注 册:2005-7-18
收藏
得分:0 
老大,你的SQL语句好像没加空格啊sql = sql + "and" + str(i)
这样试试:sql=sql+" and "+sql(i)

[此贴子已经被作者于2005-7-18 21:13:00编辑过]



public class 人生历程 extends Thread{public void run(){while(true){努力,努力,再努力!!;Thread.sleep(0);}}}
2005-07-18 21:11
酒干倘卖无
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2005-5-1
收藏
得分:0 
sql = "select * from 图书信息 where"
改成
sql = "select * from 图书信息 where str(i)"

2005-07-18 21:50
快速回复:[求助]各位帮我看看程序错在哪?我都急疯了!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.127865 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved