- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB连接数据库模拟
1.先设置dsn ,用管理工具的ODBC来做
2.先画完三个窗体,命名,并设置2个部件或1个引用(active);
2.设置标准模块
3.做form1,并测试数据源是否连接上
4.做form2,不测试
5.做form3,不测试
6.全部做好后,测试一遍.
-------------标准模块设置 (public ado 和 rs 对象)
Public ado As ADODB.Connection
Public rs As ADODB.Recordset
---------------- FORM1(连接数据源,初始化设置)--------------------
Option Explicit
private sub from1_load
ado.ConnectionString = dsn=student;uid=;pwd=
ado.Open
rs.ActiveConnection = ado
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = student
rs.Open , , , , adCmdTable
End With
End Sub
Private Sub Command1_Click() –到form2
Form2.Show
End Sub
Private Sub Command2_Click() –到form3
Form3.Show
End Sub
Private Sub Command3_Click()
End
End Sub
-------------------form2(主要窗体设置)-------------------------------
Option Explicit
Dim b As Variant ---若有书签要求,则在顶部声明,一般用在find 失败后,filter失败后,其它的不用了。
-------------------------------
1.做3个自定义1个text文本的设置(mm). ,2个函数(判断空格-cn和主键-prim),
Sub mm() --文本框显示设计
Text1.Text = Cn(rs(stuID))
Text2.Text = Cn(rs(stuName))
Text3.Text = Cn(rs(stubirthday))
Text4.Text = Cn(rs(stuSex))
Text5.Text = Cn(rs(stuDept))
Text6.Text = Cn(rs(stuProvince))
End Sub
---------------------------
Function Cn( x As Variant) As Variant --判断是否有空格
If IsNull(x) Then
Cn =
Else
Cn = x
End If
End Function
---------------------------
Function PrimaryKey(x As String) As Boolean --主键判断设计
rs.MoveFirst
Do While Not rs.EOF
If x = rs(stuID) Then
MsgBox 主健有重复,重新录入
PrimaryKey = True
Exit Function
End If
rs.MoveNext
Loop
PrimaryKey = False
End Function
--------------------------
Private Sub Form_Load() --把查询列表在load中做好
rs.MoveFirst
Call mm
Combo1.AddItem 学号
Combo1.AddItem 姓名
Combo1.AddItem 生日
Combo1.AddItem 性别
Combo1.AddItem 所在系
Comb
您可能关注的文档
最近下载
- 中华医学会重症医学专科资质培训班培训教材.pdf VIP
- 7200MA东元变频器说明书.docx
- 2023中考语文名著阅读指导+真题模拟题练习 专题08《傅雷家书》(学生版+解析版).pdf VIP
- 中考语文名著阅读指导+真题模拟题练习 专题14《格列佛游记》(学生版+解析版).doc
- 中考语文名著阅读指导+真题模拟题练习 专题13《红岩》(学生版+解析版).doc
- 中考语文名著阅读指导+真题模拟题练习 专题09《钢铁是怎样炼成的》(学生版+解析版)-.doc
- 儿童意外伤害和家庭急救措施.ppt
- 中考语文名著阅读指导+真题模拟题练习 专题05《海底两万里》(学生版+解析版).doc
- 中考语文名著阅读指导+真题模拟题练习 专题04 《骆驼祥子》(学生版+解析版).doc
- 中考语文名著阅读指导+真题模拟题练习 专题07《昆虫记》(学生版+解析版).doc
文档评论(0)