EXCEL+VBA: 为什么我输入rs.后没有智能提示?怎么办? 就是说我输入rs.应该出现一个让我选择的属性和方法列表啊,怎么搞出来? 没有太不方便了啊
我的代码如下: (代码运行正常,能得到正常结果)
Private Sub CommandButton1_Click()
Dim ConnStr As String
Dim sHost As String
Dim sDatabaseName As String
Dim sUserName As String
Dim sPassword As String
sHost = "tang" 'Sqlsever服务器IP地址或计算机名
sDatabaseName = "zkcj" '连接的数据库名
sUserName = "sa" '登录用户名
sPassword = "nevertell" '登录密码
'On Error GoTo ERR:
'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
'
'定义连接字符串
'
ConnStr = ""
ConnStr = ConnStr & "Provider=SQLOLEDB;"
ConnStr = ConnStr & "Password=" & sPassword & ";"
ConnStr = ConnStr & "User ID=" & sUserName & ";"
ConnStr = ConnStr & "Initial Catalog=" & sDatabaseName & ";"
ConnStr = ConnStr & "Data Source = " & sHost
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'建立连接
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
With conn
.ConnectionString = ConnStr
.Open
End With
MsgBox "连接成功", vbOKOnly + vbInformation
strSql = "SELECT * FROM cj"
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = conn
'Cmd1.CommandText = "UPDATE cj SET 语文=101 WHERE 学号=1"
Cmd1.CommandText = strSql
Cmd1.CommandType = adCmdText
Set rs = Cmd1.Execute
i = 1
Do While Not rs.EOF()
Sheet1.Cells(i, 1).Value = rs.Fields("学号")
rs.MoveNext
i = i + 1
Loop
End Sub
------最佳解决方案--------------------------------------------------------
你的rs 没有声明
dim rs as ADODB.Recordset
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
------其他解决方案--------------------------------------------------------
有没有引用？
------其他解决方案--------------------------------------------------------
有引用,
我的程序能正常执行,就说明了有引用
------其他解决方案--------------------------------------------------------