Question

vb怎没做登陆界面，代码怎么写？各位大虾帮帮忙。。

Answer 1

'请将“用户名”与“密码”更换为你的用户名和密码
'放一个command,名为cmdOk,caption为确定;两个text,分别输入用户名和密码，名为usn和unm
private sub form_Load()
unm.passwordchar="*"
end sub
private sub cmdok_Click()
if usn.text="用户名" and usm.text="密码" then
你的主窗体名称.show
else
usn.text=""
usm.text=""
msgbox "用户名或密码有误，请重新输入",,"提示"
end if

追问

我想做的是连接到sql软件

追答

我帮不了你

追问

哦，但我还是要对你说声“谢谢诶”

追答

byebye

Answer 2

你是要连接到什么数据库。Access。还是SQL Server 2000/2005/2008。要进行什么操作。可以讲的稍微清楚点，或许有知友能帮到您。

追问

我想连接到远程的sql数据库具体哪个版本我也不知道。。测试可以连接，就是登录时老说密码用户名不正确。。着急啊。。。。。。。

追答

测试怎么测试的。用什么测试的！我需要知道这些。

追问

用vb6.0我qq:1107742620用QQ聊好吗

追答

我来加您。

追问

谢谢

追答

完整代码：

On Error GoTo saveerr '可捕捉错误处理
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=" + 您的服务器ip地址或名字+ ";uid=" + 您的登陆名称+ ";pwd=" + 您的登陆密码+ ";database=" + 您要登陆的数据库 + ";"
db.Close
saveerr: '可捕捉错误处理
Select Case Err.Number
Case 0
MsgBox "登陆成功!", vbQuestion, Me.Caption
‘到这里您就登陆成功了！
Case -2147217843
MsgBox "您的用户或密码不正确,请与管理员联系!", vbQuestion, Me.Caption
密码 = ""
Exit Sub
Case 52
MsgBox "登陆成功!", vbQuestion, Me.Caption
‘到这里您就登陆成功了！
End Select

以下代码是连接到服务器表的验证方式。
Dim ds As New ADODB.Recordset '定义数据集对象
ds.Open "select * from Users where users_name='" & Trim(id.Text) & "' and password='" & Trim(password.Text) & "'", 连接2, adOpenKeyset, adLockOptimistic
If ds.RecordCount > 0 Then
MsgBox "登陆成功!", vbQuestion, Me.Caption
End If

您试试！

Answer 3

你讲的是做界面。

追问

界面我做了，就是按钮是图片的那种，，可是就是测试代码是说密码用户名不正确