Dim objConnection,objCommand,objRecordset,strConnectionString,sql,i
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
Set objRecordset = CreateObject("ADODB.Recordset")
strConnectionString = "Provider=SQLOLEDB.1;Database=CC_Bio_Olig_23_08_21_14_07_18;Data Source=.\WinCC;"
objConnection.ConnectionString = strConnectionString
objConnection.Open()
这段代码最后一句objConnection.Open()无效授权怎么解决 |