Question

如何用VB连接SQL2000数据库？急求

这几天老师让我们做个小型的信息管理系统。我现在把数据库和程序的各个界面都已经做好了，代码实现也完成的差不多了。可现在有个关键问题是我不知道如何将VB把SQL2000数据库上的数据调用出来，不知道具体语句的实现。看了很多资料上面都有详细的语句实现，可我看不懂，我不知道为什么要这样做？每条语句的意思是什么我都不明白，所以想请大家帮帮忙。告诉一下如何实现连接数据库，语句是怎样的？语法是什么？每条语句是什么意思？尽量详细点。谢谢大家。。。。。。。。
举个例子吧，我用VB做了一个登陆界面。上面有相应的用户名和密码，而这些用户名和密码我都是用SOL以表的形式储存在数据库中，只有用户名和密码相对应才能登陆到主界面，否则将出现错误提示。。。。。。
急求急求

Answer 1

Public db As ADODB.Connection '//定义链接
If db Is Nothing Then Set db = New ADODB.Connection
db.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=false;" & _
"User ID=sa;" & _
"Password=;" & _
"Initial Catalog=数据库名称;" & _
"Data Source=127.0.0.1" '//通过ADO方式连接本机的数据库，网络的则只需把127.0.0.1换成对应的IP地址即可

'//登录代码，在登录按钮中加入如下代码
'//这段代码的作用是访问SQL中的USER表，看输入的帐户与密码是否存在，存在则进入下一个界面；不存在则会给出提示并且要求重新输入，当连续错误3次后，系统将提示已经错误3次，退出登录界面
Static Try_Times As Integer '//设置静态变量，存储不成功的登录次数
Dim strSQl As String
strSQl = "select * from Users where user_name='" & Trim$(txtUserName.Text) & "' and password='" & Trim$(txtPassword.Text) & "' "

Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient

str.Open strSQl, db, adOpenStatic, adLockReadOnly

With str
If .State = adStateOpen Then .Close

.Open strSQl
If .EOF Then
Try_Times = Try_Times + 1
If Try_Times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me
Else
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
txtUserName.SetFocus
txtUserName.Text = ""
txtPassword.Text = ""
End If
Else
Try_Times = 0 ' 将不成功登录次数清零，方便下次登录！
XXXX.Show '登录进入的另一个界面，XXX为另一个界面的名称
Unload Me
End If
End With

Answer 2

Set Conn = New ADODB.Connection
'采用的是无源的数据库连接方法
Conn.ConnectionString = "Driver={sql server};server=172.16.203.215;uid=sa;pwd=;database=DBname"
Conn.ConnectionTimeout = 30
Conn.Open

server 是服务器所在地址，本地可以用：localhost
uid 是服务器登陆用户名
pwd 是密码
database 是数据库名

'有源连接的字符串
Conn.ConnectionString="Data Source=localhost;Initial Catalog=DBname ;User ID=SQLusername;Password=SQLuserpassword ; "