Question

vb 中如何用ADODC控件使用SQL SERVER

一个注册界面：TEXT1（用户名），TEXT2(密码），TEXT3(确定密码），一个ADODC控件绑定了前三者，一个确定按纽
Private Sub Command2_Click()
If Trim(Text1) = "" Or Trim(Text2) = "" Then
MsgBox "用户名或密码不能为空！", 48, "请填写"
Exit Sub
End If
If Text2 <> Text3 Then
MsgBox "密码重复有误！", 48, "请重填"
Exit Sub
End If

Adodc1.Recordset.Update

MsgBox "注册成功！", 64, "恭喜"
Text3 = ""
Form1.Show
Form2.Hide

End Sub
Private Sub Form_Activate()
Adodc1.Recordset.AddNew
End Sub

问题是：如何在TEXT1输入用户名的过程中实时检测，SQL SERVER 数据库中用户名是否存在

Answer 1

很简单啊，你可以在Text1控件的keydown事件或者LostFoucs事件里查询数据库来判断用户名是否存在啊，建议 数据库操作一般不要在keydown事件里做，一来太浪费资源 二来也没有实际应用的含义 ，像楼主这种情况 ，就在Text1 的LostFoucs事件里 做就好了。

Private Sub Text1_LostFoucs()
Dim Rs as new Adodb.recordset

Rs.open "Select * from 表 where 用户名='" & trim(text1.text) & "'" ,cn
if rs.eof then
msgbox "没有"
text1.selstart=0
text1.sellength=len(text1.text)
text1.setfoucs
else
msgbox "有"
endif
rs.close
set rs=nothing
End Sub