有没有哪位大神帮小弟用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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯