|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 lchzh 于 2018-12-21 23:05 编辑
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
conn.ConnectionString = "C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\test" '数据存放路径
conn.Open
Dim sql As String
sql = "update 学生 set 学号='" & Text1.Text & "',姓名='" & Text2.Text & "',性别='" & Text3.Text & "'"
rs.Open sql, conn, 3, 3
rs.Close
conn.Close
'Text1是学号文本框,Text2是姓名文本框,Text3是姓别本框。
End Sub
为什么到conn.Open处报错?
高手指点一下
备注:VB和SQL SERVER均在同一电脑上
|
|