XU_201800
XU_201800
采纳率0%
2021-02-25 21:42

VB+数据库 实现 一个登陆界面 ,我不会了 请各位老师改改我的代码

Option Explicit

Dim sql As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()

Set conn = New ADODB.Connection
If conn.State = 0 Then
        conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=同学录软件开发1;Data Source=WIN7-20200710EF\SQL"
        conn.Open (sql)
        sql = "select  from XXb where 班主任 = '" & Text1 & "'"
       
End If
Set rs = New ADODB.Recordset

  
If Text1 = " " Then
        'sql = "select  from XXb where 班主任 = '" & Text1 & "'"
        MsgBox ("为防止外人登录,软件设置了双重登录系统")
        Form1.Hide      ',隐藏自已
        Form2.Show      '打开第二个窗体
Else
        
        conn.Close    '关闭数据连接
        MsgBox ("你不是本班学生,将强制退出软件")
End
   
   
   
  
End If
    
    
End Sub




 

 老师们帮我看看

 

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

1条回答

  • XU_201800 XU_201800 2月前
    标题

     

    点赞 评论 复制链接分享

为你推荐