vb下关于数据库连接

[hzj512]

Public str As String
Public conn As New adodb.Connection
Public select_menu As String '标记所选择的菜单
Public userid As String '标记当前用户ID

Sub Main()
登录系统.Show
End Sub
Public Function open_db() As Boolean '打开数据库
Set conn = New adodb.Connection
str = "driver={sql server};server=C0203FA75E564E6;database=住房公积金管理系统" '创建连接
conn.Open str
open_db = True
End Function

Public Function close_db() As Boolean '关闭打开数据库
If conn.State = adStateOpen Then
conn.Close
End If
close_db = True
End Function
上面代码是vb6.0里面的module文件下面的代码
有谁能帮忙解释一下每行的意思啊
主要是数据库连接那一句 str = "driver={sql server};server=C0203FA75E564E6;database=住房公积金管理系统"
这里server= 和 database= 是连接服务器和数据源的吗
连接数据库不是用下面代码实现吗
Conn = "DSN = ***; UID = ***;" & "PWD = ***; DATA BASE = ***;"

[xzz1008]

能连上就可以,一般要用户名,密码,数据库计算机名,数据库名,如果是本地的,好像可以省去用户名和密码

[孤独剑_LPZ]

连接字符串的写法不一,你可以右键点adodb控件看属性,在连接字符串设置一下,也会得到类似的连接字符串,不一定都得按照楼主的写法,其它行的意思很简单,楼主不会不知道吧

[hzj512]

问题是我这么连接，测试数据库是通过的，运行的时候就提示有错~

[hzj512]

完整错误提示：[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问

[孤独剑_LPZ]

str = "Provider=sqloledb;Data Source=C0203FA75E564E6;Initial Catalog=住房公积金管理系统;User Id=sa;Password= sa" '创建连接
用这一句试试,用户名和密码不对就改一下,这一句能保证连上sql server
楼主的意思才明白,不是让解释每句的意思,是因为运行时报错呀.如果你愿意,QQ开着,我可以远程协助来诊断

[hzj512]

不行诶~~