如何用计算机语言编程(我们只学过vb),建立一个简单的数据库

要求这个数据库功能包括数据的输入,存储,排序,查询,增加,删除,输出)电脑屏幕输出或打印功能输出都可以... 要求这个数据库功能包括数据的输入,存储,排序,查询,增加,删除,输出)电脑屏幕输出或打印功能输出都可以 展开
 我来答
永远好问
2011-05-05
知道答主
回答量:22
采纳率:100%
帮助的人:7.4万
展开全部
你先数据库sql 2005或更高版本,mysql 等建好表,在用计算中巧机语言编号的前台与数据库连接起来就行了。
前颤培中台制作语茄山言 可以是c++ java vb 等
567英语
2012-05-27
知道答主
回答量:7
采纳率:0%
帮助的人:1.1万
展开全部
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command2_Click()
If MsgBox("删除当前记录吗?", vbOKCancel, "删除记录") = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If

End Sub

Private Sub Command3_Click()
Dim aa As String
Dim bb As String
aa = InputBox("竖拿脊请输入余渗要查询的姓名:", "查找")
If aa = "" Then
Exit Sub
End If
Data1.RecordsetType = 0
bb = "姓名="敏胡 & aa & ""
Data1.Recordset.FindFirst (bb)
If Data1.Recordset.NoMatch Then
Call MsgBox("要查询的学生姓名不存在!", vbOKOnly, "警告!")
Data1.Recordset.MoveFirst
End If

End Sub

Private Sub Command4_Click()
Data1.Recordset.CancelUpdate
End Sub

Private Sub Command5_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If

End Sub

Private Sub Command6_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If

End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified

End Sub

Private Sub Command9_Click()
MSFlexGrid1.Visible = True
Print
Text9.Visible = True
Text9.Text = "谢谢观看"
End Sub

Private Sub Form_Load()
Data1.DatabaseName = "student1.mdb"
Data1.RecordSource = "message"
End Sub

这些包括你的要求了只不过根本的基地数据库student1.mdb要自己简陋
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
291122405
2011-04-29
知道答主
回答量:38
采纳率:0%
帮助的人:13.4万
展开全部
计算机语言就是C++
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
cgy1235
2011-04-30
知道答主
回答量:30
采纳率:0%
帮助的人:0
展开全部
你用SQL server编把,很好学的 或者vfp
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
bangle582
2011-04-30
知道答主
回答量:34
采纳率:0%
帮助的人:0
展开全部
要是VB2008就非常简单。。。
追问
可是我们要用visual basic 6.0中文版做
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式