Con1.Open "Provider=SQLOLEDB;data source='" & Ser & "';Database=" & Db1 & ";Uid=" & User & ";PWD=" & Pass ";"
adodc1.ConnectionString=con1.connectionstring
Adodc1.RecordSource = "Select * from Tabelabc " Adodc1.Refresh
vb 6 ,XP win2000 下运行正常,
在 Win7下 运行到
Adodc1.Refresh 就出错 "无效的授权说明" 如图
adodc1.ConnectionString=con1.connectionstring
Adodc1.RecordSource = "Select * from Tabelabc " Adodc1.Refresh
vb 6 ,XP win2000 下运行正常,
在 Win7下 运行到
Adodc1.Refresh 就出错 "无效的授权说明" 如图
你把连接数据库的语句改一下
Public Con1 As New ADODB.Connection
Con1.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='ufdata_002_1010';Data Source='192.168.0.34\justep';Uid='sa';PWD='sa'"
用户 '(null)' 登陆失败。原因:未与信任 SQL Server连接相关联。
'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
'无密码的连接:
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
数据库那端也是WIN7系统吗?