Imports System.Data.SqlClient
Public Class frload
Public User As String
Public password As String
Dim conn As New SqlConnection("Server=.;" & _
"Database=ViBook; " & _
"Integrated Security=SSPI ")
Dim comm As New SqlCommand
Dim ds As New DataSet
Dim da As New SqlDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
User = TextBox1.Text
password = TextBox2.Text
Dim str As String
str = "select * from 管理员信息 where 姓名='" & User & "' and 密码='" & password & "'"
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = str
da.SelectCommand = comm
Try
conn.Open()
da.Fill(ds)
If ds.Tables(0).Rows.Count <> 0 Then
Dim frm2 As New frmain
frm2.Show()
Me.Hide()
Else
MessageBox.Show("密码或用户名错误，请重新输入", "提示信息")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End If
Catch ex As Exception
MessageBox.Show("登陆失败", "提示信息")
End Try
End Sub

这是代码每次第一次登陆如果输入错误的话第2次再登陆就是输对了也进不去了
急死

调试半天有新发现如果第一次出错第2次就会跳过 da.Fill(ds) 这一句 为什么啊

看看 conn 的状态两次触发事件时,肯定是不一样的.
问题的重点在这里.你在操作之后,应该把它关掉.

问题在
Try
conn.Open()
da.Fill(ds)
...........
conn 打开了没关闭,第二次去执行时conn已经打开了.
在da fill前最好让 ds先清空
建议用 SqlDataReader 更好. 还有,对字符得过滤

恩，顶 为记忆上锁
开门之后要顺手关门

恩 恩 成功谢谢了