异地数据库连接
SQL SERVER 2000服务器与客户端异地,通过VPN构成局狱网访问,服务器地址为192.168.0.4,名称为K,现在要在VB6。0中访问SQL SERVER 数据库,连接失败,提示错误: 用户‘NULL’登陆失败,原因:未与信任的SQL SERVER 连接相关联。
Public Function RFidcn() As ADODB.Connection '定义函数 Set RFidcn = New ADODB.Connection RFidcn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Integrated Security=SSPI;User ID=sa;Initial Catalog=db_HighlyRFID;Data Source=" + MyDataSource 'MyDataSource从文本框输入 RfidPublicstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Integrated Security=SSPI;User ID=sa;Initial Catalog=db_HighlyRFID;Data Source=" + MyDataSourceEnd Function