小女子有一VB小问题,请大家帮忙一下
在窗体添加Adodc控件一个text控件 一个添加记录按钮一个提交按钮在窗体设置代码:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" '设置数据库路径
Adodc1.CommandType = adCmdText '设置记录源
Adodc1.RecordSource = "select * from message" '连接数据库的message表文件
Set Text1.DataSource = Adodc1
text1.DataField = "姓名"
text2.DataField = "学号"
text3.DataField = "性别"
text4.DataField = "年龄"
End Sub
添加记录按钮代码:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew '添加新纪录
End Sub
提交代码:
Private Sub Command2_Click()
Adodc1.Recordset.Update '保存
Adodc1.Refresh '刷新
End Sub
删除记录代码:
Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then
MsgBox "已经无纪录", , "提示"
End If
End Sub
(1)以上是我写的部份代码,我想实现按学号进行删除学生记录,那代码应该怎么描述呢?
(2)如果要统计数据库中年龄大于18岁的学生数代码应该怎么描述(注:数据库名为db1.mdb) --------------------编程问答-------------------- 2)
select count(*) from message where 年龄>18 --------------------编程问答-------------------- 1)
delete from message where 学号 = '100158' --------------------编程问答-------------------- 小女子谢谢楼上二位大哥啊 --------------------编程问答--------------------
两位99有点意思。 --------------------编程问答-------------------- 快點結貼給分啊! --------------------编程问答--------------------
人家刚来,眼神不好啊 --------------------编程问答-------------------- 不好意思,我笑喷了。见谅 --------------------编程问答-------------------- 基本sql语句功能,lz需要努力 --------------------编程问答--------------------
楼主说的是access数据库,指令有错。应该是delete * from message where 学号='100158'
你那个针对sql库的 --------------------编程问答-------------------- 估计楼主是男滴. --------------------编程问答-------------------- 友情接分!
补充:VB , 数据库(包含打印,安装,报表)