麻烦懂vb 的帮我看看,要怎么调整啊

来源：百度知道编辑：UC知道时间：2024/05/22 04:44:06

我这个是用vb连接sql server的登录界面,用户名和密码初始都一样,为数据库中的所建学生表的学号,各位帮我看看,谢谢!!!
Option Explicit

Public conn As New ADODB.Connection '标记连接对象
Private Sub Form_Load() '系统初始化，加载数据库
Dim Connectionstring As String, UID As String, PWD As String
Dim conn As New ADODB.Connection
conn.Connectionstring = "driver={SQL Server};server=Lenovo-671a05ae;UID=sa;PWD=;Database=student" 'server ,UID,PWD,DatabaseEnd Sub '不知道对不对啊

Private Sub CommandButton1_Click()
Dim SQL As String
Dim rs_Login As New ADODB.Recordset
Dim UID As String, PWD As String
If Trim(Text1.Text) = "" Then '判断输入的用户名是否为空
MsgBox "请输入用户名", vbOKOnly + vbExclamation
Text1.Text = ""
Text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox "请输入密码", vbOKOnly + vbExclamation
Text2.Text = ""
Text2.SetFocus
Else
SQL = "select * fr

Private Sub Form_Load() '系统初始化，加载数据库
Dim Connectionstring As String, UID As String, PWD As String
Dim conn As New ADODB.Connection
conn.Connectionstring = "driver={SQL Server};server=Lenovo-671a05ae;UID=sa;PWD=;Database=student" 'server ,UID,PWD,DatabaseEnd Sub '不知道对不对啊
'加上这句，只给属性赋值不可以，还要调用OPEN方法
conn.Open

‘另：Dim Connectionstring As String, UID As String, PWD As String 好像在这里可不用啊

麻烦懂vb 的帮我看看,要怎么调整啊帮我看看下面的VB语句要怎么修麻烦大家帮看看我的电脑要怎么升级各位帮我看看这个vb程序,怎么错的我的电脑怎么了?麻烦大家帮我看看. 麻烦高手帮我看看怎么了懂VB的朋友请帮我看看,谢谢请懂VB的人帮我看看这代码帮我看看下面的vb问题麻烦帮我看看