VB程序设计 课程表查询 编辑代码(3天之内回者,加赏!!!!)
Ctrl+t找Microsoft DataGrid Control....
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 某个表 where 课程字段名 ='" & Text1.Text & "'"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid设置数据源
晕
你没有指定路径阿~~
这样:
如果在c盘,那就是下面
Open "c:\89data.txt" For Input As #1
如果是在桌面,那就
Open "C:\Documents and Settings\Administrator\桌面\89data.txt" For Input As #1
如果和vb程序在一起,那就
Open App.Path & "\89data.txt" For Input As #1
1.建立数据库,不管是ACCESS or SQL ,将需要的列和数据填好就行了
2.用vb 建立如你的 图形的查询表,无论用combobox or textbox 都可以,再右边FRAME 中加载一个LABEL,用来显示信息。
3.加载ADODC控件,连接数据库,日期还是用DTPICKER 控件好
Adodc1.RecordSource = "select * from 表名 where 年级 = " & Text1.Text & " and 专业 = " & Text2.Text & " and 日期 = " & DTPicker1.Value
Adodc1.Refresh
Label1.Caption = Adodc1.Recordset.Fields("课程")
1、建立checkbox 控件组。index分别为0~2
2、在checkbox 后分别放2个COMBOX 里面的内容“年级、专业、”再添加一个日期控件dtpicker
3、添加一个command 控件且在控件下写入如下代码:
adodc1.recordsouce = "select * from 表名 where 1=1"
& iif(checkbo1(0).value,"and 年级 = '" & combo1.text &"'","")
& iif(checkbo1(1).value,"and 专业 = '" & combo2.text &"'","")
& iif(checkbo1(2).value,"and 日期= '" & dtpicker1.valve &"'","")
如果查询结果要显示在表格的话,必须刷新ADODC1。
以上代码可以实现单项查询和联合查询。关键看你选了几个复选框。当然数据库要先连接好,还有表格。
去试试看。应该可以让你满意的。
太难了 我也选的这个课题
哈哈,你的题目和我一样,什么时候做出来了麻烦通知我一下哈。qq 498841975.我是河北理工的,估计你也是吧呵呵
岑骆佐锐: 用select 显示班级号 班级名 课程号 课程名 时间段 学期 from 课程表 select语句在VB中select case 直(数值表达式,字符表达式) case 直 case elseend select 在sql数据库中select * from 表名 where 条件 如:select user from dy where user=abcde(在表dy中查询user为abcde的记录)
如东县13733928695: 求VB课程设计列车时刻表查询源代码 - ?
岑骆佐锐: '程序启动后列表框显示所有车次, sub form_load() dim tempStr as str open "content.txt" for Input as #1do while not eof(1)line input #1,tempStrlist1.additem tempstrloop close #1 end sub '单击其中一项,文本框中显示此车中途停靠所有车站...
如东县13733928695: Excel中编写VB查询代码!!! - ?
岑骆佐锐: 自己动手,丰衣足食!思路如下:1. 合并年、月、日三列为标准日期值,如2012-1-23 这样2. 录制一个宏.操作就是排序后分类汇总
如东县13733928695: VB实现ACCESS数据库记录的查询,新增,删除,修改,保存 - ?
岑骆佐锐: VB实现ACCESS数据库记录的查询,新增,删除,修改 在“创建”选项卡上的“其他”组中,单击“查询设计”. 在“显示表”对话框中,单击“查询”选项卡,然后双击“产品订单数”. 关闭“显示表”对话框. 双击“产品 ID”字段和“...
如东县13733928695: 求一段VB操作数据库查询的代码 - ?
岑骆佐锐: 提示:你的表都少了个主键自增Id,操作开始:一:建军立数据库如:datebases,新建二个表,一个课程表Courses ,一个学生表student,各表详情如图 二:知道课程年龄查学分,查出的结果一般为多记录,所以应该循环来输出;三:SQL语...
如东县13733928695: vb编写excel程序 - ?
岑骆佐锐: Dim XlApp as New Excel.Application '生成新的Excel实例.这是关键的步聚. 新的Excel实例可以不受系统中其他Excel进程的影响. 还有、退出时释放Excel的Application哦.就是QUIT方法执行后加上设置为Nothing. 修改如下: Private Sub ...
如东县13733928695: 帮忙设计一个最简单的VB程序(查询当前时间和日期的)要代码 - ?
岑骆佐锐: Private Sub Command1_Click() label1.caption=date '显示日期 label1.caption=time'显示时间 End Sub
如东县13733928695: VB程序设计 - ?
岑骆佐锐: 最好只包含3个人3科的成绩.做好后可以进行输入人名查询成绩,也可以输入科目进行成绩查询. 建个一个combox和一个command,两个text,假设3人成绩为甲50分 乙60分 丙70分这样做的怎样,我在说下方法 先要定义两个变量一个字符 string 和 一个整形数据 integer然后用if语句对输入信息进行判断. 还要用到数组,两个combox组合框要list属性要输入数据一个姓名一个成绩, 记住他们的是数组,看他们下标进行判断,index属性,在两个文本框中输出. 代码太多了,我不方便写.
如东县13733928695: VB编写数据库搜索 - ?
岑骆佐锐: Private Sub Command1_Click() '查询代码 Dim ID11,ID12,ID13,ADDR If Val(Text1.Text)0 then strSQL="Select * from 数据表1 where ID1=" & Val(Text1.Text) & " or ID2=" & Val(Text1.Text) & " or ID3=" & Val(Text1.Text) & "" RS.Open ...
如东县13733928695: 用vfp编写一个查询程序,从键盘输入一个专业,则可以计算该专业所有学生各门课 - ?
岑骆佐锐: 程序如下:clear accept "请输入查找的学号:" to xh select * from 学生表 where 学号=xh if _tally>0 then &&找到学生 select a.学号,课程名,成绩,学分 from 学生表 a,课程表 b,成绩表 c ; where a.学号=c.学号 and b.课程号=c.课程号 and a.学号=xh ; into table test else ? "查无此学生信息!" endif return