VB如何连接SQL Server？

Question

用VB编一个数据库应用端程序，不是C/S模式的，数据库用的是MS SQL Server，请问在所有的软件使用的机器上都要安装SQL吗？不然用什么做为驱动连接呢？

Answer 1

Public cn As New ADODB.ConnectionSub Main()
   dbopen
End Sub
Public Sub DBOpen()
    
    On Error GoTo ErrorConnect:
    cn.ConnectionTimeout = 25
    cn.Provider = "sqloledb"
    cn.Properties("Data Source").Value = sServerName
    cn.Properties("Initial Catalog").Value = sDatabaseName
    cn.Properties("User ID").Value = sUserName
    cn.Properties("Password").Value = sPassword
    Screen.MousePointer = vbHourglass
    cn.Open
    Screen.MousePointer = vbDefault
    Exit Sub
ErrorConnect:
    msgbox "连接出错"  
End Sub

Answer 2

sServerName应该填什么？本机吗？？本机上没有装SQL Server的啊，你可能还没有明白我的意思，我是说不装服务器的情况下能否在VB里使用SQL的数据库？

Answer 3

Public cn As New ADODB.Connection
private sub form_load()
With cn
       .Provider = "sqloledb"
       .ConnectionString = "data source=hsan_sql2;initial catalog=news;user id=sa;password=zasan"
       .Open
End With
end sub

Answer 4

sServerName应该填什么？本机吗？？本机上没有装SQL Server的啊，你可能还没有明白我的意思，我是说不装服务器的情况下能否在VB里使用SQL的数据库？sServerName:服务器名称（无论本地或者在局域网，也可以用IP地址）