VB连接数据库模拟.docVIP

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