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

发布网友发布时间：2022-04-10 22:32

共2个回答

热心网友时间：2022-04-11 00:01

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

热心网友时间：2022-04-11 01:19

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 ; "