vb下关于数据库连接的代码解释

Question

Public str As String
Public conn As New adodb.Connection
Public select_menu As String      '标记所选择的菜单
Public userid As String      '标记当前用户IDSub 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 FunctionPublic 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 = MyDSN; UID = Jacob;" & "PWD = 123456; DATA BASE = MyDb;" 
 

Answer 1

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  创建conn对象
    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 晓得了吧LZ

Answer 2

Conn = "DSN = MyDSN; UID = Jacob;" & "PWD = 123456; DATA BASE = MyDb;" 
这一句呢？
上面那些~~~囧

Answer 3

按照上面的写，测试数据库连接可以，但是运行后回提示sql不存在或拒绝访问 怎么办？

Answer 4

Conn = "DSN = MyDSN; UID = Jacob;" & "PWD = 123456; DATA BASE = MyDb;" 
是指用ODBC数据源连接,是在odbc数据源中设置了一个名叫MYDSN的数据源连接以后,通过该数据源完成的.
如果采用
driver={sql server};server=C0203FA75E564E6;database=住房公积金管理系统
是指直接与SQL SERVER数据库服务器连接,而不经过ODBC数据源.
在试着进行连接的时候,要保证在你的局域网中有名叫C0203FA75E564E6的数据库服务器,其中有住房公积金管理系统的数据库,如果没有,就会出现错误.
如果你有这样的数据库,但服务器名不叫这个,可以将上面的服务器名改成你能连接的那个服务器名.

Answer 5

楼上说的很对，可是运行后回提示：sql server不存在或拒绝访问 ？

Answer 6

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