VB网络访问SQL SERVER2000

我在单位的局域网上就是这么做的,最多测试过二十几台机子联网没有问题.
把以下代码贴到一个模块里,对SQL SERVER的操作基本就在这里面了,其它不知道您要如何做,仅供参考:
'连接数据库
Public Function OpenCn() As Boolean
Dim Mag As String
SJKIP = "22.209.160.81" '这里填入服务器在网络上的真实IP
SJKPS = "123456"

On Error GoTo strErrMag
Set cnnew = New ADODB.Connection
cnnew.ConnectionString = "driver={SQL Server};" & "server=" & SJKIP & ";uid=sa;pwd=" & SJKPS & ";database=kaohe_xiaoshan"
cnnew.ConnectionTimeout = 30
'CnNew.Provider = "sqloledb"
'CnNew.Properties("data source").Value = "21.209.160.94" 'SQL服务器的名
'CnNew.Properties("initial catalog").Value = "JIAOHUAN" '库名
'CnNew.Properties("integrated security").Value = "SSPI" '登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"

cnnew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "数据库末连接!" & vbCrLf & vbCrLf & "连接配置存在错误,请与系统管理员联系!"
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")
addFlag = False
'End
End Function
Public Sub Clocn()
'闭关数据库
On Error Resume Next
If cnnew.State <> adStateClosed Then cnnew.Close
Set cnnew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsnew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn

With rsnew
.ActiveConnection = cnnew
'.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "数据库数据集末连接" & vbCrLf & vbCrLf & Err.Description
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")
OpenRs = False
End
End Function
Public Sub cloRs()
'闭关数据集
On Error Resume Next
If rsnew.State <> adStateClosed Then rsnew.Close
Set rsnew = Nothing
End Sub

不同意楼上盛气凌人的态度,人家不懂才来问的,知道就告诉一声,不知道就闪过,何必冷言打击别的积极性?

我才高中毕业,我也是自己学习的,没有老师教,全部知识来自书本,知道学习的苦,也知道没有地方问的苦,现在百度有这个么个地方供大家交流,
我感到很高兴.

电脑学无止尽,嫌别人差的同志,请想想自己难道天生就强吗?还有,您真的很强吗?

想到我自己学电脑时,也曾被人笑话,由感而发,请包涵.

vb 可以访问网络SQL Server 2000 数据库，前提这个数据库服务器要一个公网地址，也就是说远端客户端能找到这个服务器，通过这个公网地址连接数据库服务器。
这个地址不固定可以在软件里面增加 数据库地址 配置项。
连接数据库方式可以通过 ADODB 直接连接数据库或使用本地数据源连接远程数据库。

行的通，你做一个就可以了。然后安装到别的机器上，数据库访问地址设置好就OK了

1. 你是新手,不懂.
2.你对数据库原理和知识不清楚,赶紧去学习.
3.我们用B/S和C/S,实现数据库管理系统. 你认为局域网里是什么结构?
4.我们用SQL server作为数据库,用网络数据库,就是把数据库放在服务器上或者可以被共享的电脑上, 在客户端安装的程序连接的数据库是服务的数据库,只要能连接,就能使用程序. 在程序中需要设置好数据库的地址.
5.你需要学习:VB连接数据库SQL server的方法,如ADODB 直接连接数据库(服务器或者本地),关键是更改地址.
6.你需要学习数据库原理知识,如建立表,表与表的联系,查询,SQL 语法等.
7.这个没有1年或者半年你是弄不清楚的.
8.学习好VB.

可以直接操作的，你不用去想那么多。因为SQL已经帮你想好处理方式了。你只要写语句就可以。