是一個登錄界面要連接sqlserver里面的資料根據那里面存的用戶名和密碼來登錄
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_OK.Click
If Username.Text = "" Then
MsgBox("請輸入用戶名！")
Username.Focus()
Exit Sub
End If
If Password.Text = "" Then
MsgBox("請輸入密碼！")
Password.Focus()
Exit Sub
End If
Dim icount As Integer
txtSQL = "SELECT * FROM 用戶 WHERE 用戶名 =‘" & Username.Text & "'"
icount = ExecuteSQL(txtSQL, Errormsg)
If icount = 0 Then
MsgBox("沒有此用戶，請重新輸入用戶名！", vbExclamation)
Username.Focus()
Exit Sub
If icount = -1 Then
MsgBox("程式出錯！", vbExclamation)
Username.Focus()
Exit Sub
End If
End If
If Trim(Password.Text) = Trim(DBSet.Tables.Item(0).Rows.Item(0).Item("密碼").ToString()) Then
username_OK = DBSet.Tables.Item(0).Rows.Item(0).Item("用戶名")
frmMain.Show()
Finalize()
Else
MsgBox("密碼不正確，請重新輸入密碼！", vbExclamation)
Password.Focus()
End If
End Sub
這是代碼，問題顯示出現在
If Trim(Password.Text) = Trim(DBSet.Tables.Item(0).Rows.Item(0).Item("密碼").ToString()) Then
這一行，但是在資料庫的設定中，密碼是不允許為NULL值的啊，求大神解答，馬上要交程式了，在線等
多謝！
uj5u.com熱心網友回復：
實在是看不出來哪里為NULL了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93846.html
上一篇：k3 插件獲取表單的值