我写个连接数据库的类库
Imports System.Data
Imports System.Data.SqlClient
Public Class SQLClass1
inherits System.Data.SqlClient.SQLDebugging
Public Shared Connstr As String = "server=localhost;database=YSXT;uid=sa;pwd="
在form中引用Imports ClassLibrary1.SQLClass1
在buttonok中验证登陆
Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click

Dim strsql As String = "select *from users where id='" & Textname.Text & " ' and password='" & TextPwd.Text & " ' "
Dim mycon As New SqlConnection(Connstr)
Dim mycom As New SqlCommand(strsql, mycon)
Dim myreader As SqlDataReader
Try
mycon.Open()
myreader = mycom.ExecuteReader
If myreader.Read Then
strLoginRole = myreader(0)
blnLoginsucc = True
mycon.Close()
Dim s As New Formzhu
s.ShowDialog()
Me.Close()
Else
MsgBox("密码错误，请重新输入！", MsgBoxStyle.Exclamation)
TextPwd.Focus()
End If
Catch ex As Exception
MsgBox("sssss")
End Try
End Sub
每次登陆都是出现SSSSS，这是怎么回事啊！！！
急！谢谢各位了！！！

[此贴子已经被作者于2006-12-10 20:51:58编辑过]

哦~
报这个问题
超时时间已到。在从池中获取连接之前超时时间已过，出现这样的可能是因为所有池连接都被用并且达到最大迟大小
这个问题怎么解决啊！

这与大小写无关,

Public Shared Connstr As String="server=127.0.0.1;database=YSXT;uid=sa;pwd="

把你的SQL 语句放到SQL 的查询分析器里执行一下来判断SQL 语句

搞定了，谢谢各位了
我要是想把server,database,uid，pwd的值从输入框得到，是说不写死在里面要怎么弄啊！
Public Shared Connstr As String = "server=localhost;database=YSXT;uid=sa;pwd="
我知道要传参数，给点示范代码，说得太专业了，我新手搞不明白

定义一个常量,在用户第一次登录的时候需要输入数据库连接的参数,在此你必须做一个窗体.在登录前显示.在用户第一次登录后将登录次数定义一个常量,并写出一个条件判断语句.如果不是第一次登录的话就将常量的值赋予连接..