我调试了个软件　

我把本机做为服务器在客户端上可以用

可是我在本机上就不能用了提示数据库连接错误

那是怎么回事。

连接数据的代码如下

　　Public Const Conn As String = "Provider=SQLOLEDB.1;Password=rainwind;Persist Security Info=True;" _
+ "User ID=sa;Initial Catalog=Mis;Data Source=211.162.2.37"

请大家指点一二。

指点下啊

public conn as adodb.connection
public function cnt as boolean
{
on error goto errs
set conn=new adodb.connection
conn.connectionstring="provider=sqloledb;server=.;database=数据库名;uid=sa;pwd="
conn.open
cnt=true
exit function
errs:
cnt=false
end function
}

sub main()
{
if cnt=true then
主窗体.show
else
msgbox"数据库连接失败?"
end if
}

是的，照吵吧

Provider 表示数据源的提供者，;Persist Security Info=True表示此数据源使用账号和密码，Password 和User ID表示账号和密码！

建好数据源后
1:工程-引用-Microsoft ActiveX Data Objects 2.5 Library
2:声明变量 Dim name as ADODB.Connection
3:Set name = New ADODB.Connection

用ODBC连SQL Server
name.ConnectionString = "dsn=ODBC数据源的名字;uid=帐号;pwd=密码"
name.open
MsgBox name.State-----------------------------------检查连接是否正确,1为正确

[此贴子已经被作者于2006-3-21 17:49:01编辑过]

我把本机做为服务器在客户端上可以用

可是我在本机上就不能用了提示数据库连接错误