UC知道毕业设计中的vb的问题
来源：百度知道 编辑：UC知道 时间：2024/06/25 07:10:52
毕业设计中的vb的问题：有数据库a中的表b，有从c到z24个字段，有若干个控件：7个text，一个label，四个command分别为确定，修改，保存，和退出。如何通过在第一个text如c输入字段内容，点击确定，在别的text显示字段u，v，w，x，y，z并在label上显示字段d，然后点击修改可以对u，v，w，x，y，z修改，然后保存。多谢，不胜感激！
给你一个示例:
先引用 : Microsoft Activex Data Objects 2.1 Library
准备工作:
在D:\下,有一个数据库文件 Mydb.Mdb(Access数据库)
数据库有,有一个表,名叫Mytable
Mytable下,有四个字段
DM 自动编号
XX 文本型(也可以是其它的
YY 文本型(也可以是其它的
FF 文本型(也可以是其它的
数据表下,随便添加几个记录吧,DM系统会自动分配
程序方面:
在窗体上,添加四个文本框,一个命令按钮,编写如下代码,你试试看
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将路径换成你的数据库位置
Dim Sql As String, S As Long
S = Val(Text1.Text)
If S > 0 Then
Sql = "Select * From [MyTable] Where DM=" & S
Rs.Open Sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此记录"
Else
Text2.Text = Rs("XX")
Text3.Text = Rs("YY")
Text4.Text = Rs("FF")
End If
Else
MsgBox "请输入正确的编号"
End If
Rs.Cl