永发信息网

有没有哪位大神帮小弟用VB做个模拟考试的程序啊,急需,数据库不会...呜呜~~

答案:3  悬赏:0  手机版
解决时间 2021-02-14 01:38
  • 提问者网友:孤山下
  • 2021-02-13 20:19
真的急需急需~~
最佳答案
  • 五星知识达人网友:怙棘
  • 2021-02-13 20:36
试题类型是哪一些呢?
比如:
选择、填空、简答、等等?
全部回答
  • 1楼网友:深街酒徒
  • 2021-02-13 22:20
你买本vb从入门到精通,清华大学出版社的,亚马逊上有,附带光盘里有示例,学吧。
  • 2楼网友:孤独的牧羊人
  • 2021-02-13 21:49
dim conn as adodb.connection dim rs as adodb.recordset private sub command1_click() dim num as integer if text1.text = "" then     msgbox "请输入0~255的有效字符" else     num = val(text1.text)     'msgbox num     rs.open "select * from 设备表 where 设备编号=" & num, conn, 1, 3     if not rs.eof then         msgbox "该设备已存在,请重新输入!"         text1.text = ""     else         rs.addnew         rs(0) = num         rs(1) = val(combo1.text)         rs.update     end if     rs.close end if me.visible = false 'frm_main.show end sub private sub form_load() text1.text = "请输入一个0~255的数字" combo1.clear combo1.additem "0" combo1.additem "1" set conn = new adodb.connection set rs = new adodb.recordset conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=e:\鞠发志\新气象\气象.mdb;persist security info=false" conn.open 'rs.open "设备表", conn, , adcmdtable end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯