Public Function ConnectString() As String
    ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Report;Data Source=HR001\sa"
End Function

我现在是单机连接,如何做才能转化为局域网使用的? SQL是否也要设置?师傅们请给点指点!谢谢
我单机的局域IP是172.26.151.66

[ 本帖最后由 yuk_yu 于 2010-8-11 16:51 编辑 ]

具体 SQL 连接字符你可以用 ADOBC 向导生成。SQL 你是混和验证模式，就不需要再设置了。

建议你连接字符串 你写到一个配置文件里。然后程序读取，而不要直接写在程序里。

可以给我一个读取的实例可以吗?谢谢版主

读写INI文件,我自己用的函数。保存为 bas 模块文件

'读写INI文件函数
Option Explicit

'写
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'读
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  
'保存到INI文件
Public Function Wini(ByVal 段 As String, ByVal 键 As String, ByVal 值 As String, IniFile As String) As Boolean
Dim X As Long, buff As String * 1024, i As Long
buff = 值 & Chr(0)
X = WritePrivateProfileString(段, 键, buff, IniFile)
Wini = X
End Function

'从INI文件中读取
Public Function Rini(ByVal 段 As String, ByVal 键 As String, IniFile As String) As String
Dim X As Long, buff As String * 1024, i As Long
X = GetPrivateProfileString(段, 键, "", buff, 1024, IniFile)
i = InStr(1, buff, Chr(0))
Rini = Trim(Left(buff, i - 1))
End Function

再次感谢,但我不会用这个涵数,弱弱地问下,可以教教我怎么用吗?或给个INI文件读取实例,谢谢

"Driver={SQL Server};Server=huamat326\sa;Database=shortagereport;Uid=SA;Pwd=;;"

改为:
"Driver={SQL Server};Server=172.26.151.44;Database=shortagereport;Uid=SA;Pwd=;;"
为何不行呢?我用的是混合模式.

我以前用的一个连接串,你参考一下吧.
(local) 表示 本机,需要改成 IP 地址的.

"DRIVER=SQL Server;server=(local);database=account;UID=sa;PWD=123456;"

我平时很少用到SQL Server

我试过了,不知道为何就不行!我的是局域网的

1、楼主确认SQLSERVER的登录帐号是大写的SA吗？默认是小写的，sa
2、连接字串中Pwd后为什么两个；去掉一个试试
"Driver={SQL Server};Server=172.26.151.44;Database=shortagereport;Uid=sa;Pwd=;"

上面两步做完，仍不能连接，再尝试下面步骤：
开始——运行——cmd——telnet 172.26.151.44 1433
看看是什么反应,如果只是一个光标在闪烁，说明你的连接参数有问题，未看见光标闪烁，说明SQLSERVER服务器端没有设置好。

我试过了,是1433没打开,我的是局域网的,怎么设置?可以教我一下吗?我试了网上的多种放法都不行啊!