关于vb中连接sql server数据库的问题
请看这段代码：PrivateSubcmdok_Click()DimconnAsNewADODB.Connection'声明连接数据库的对象conn.ConnectionS...
请看这段代码：
Private Sub cmdok_Click()
Dim conn As New ADODB.Connection '声明连接数据库的对象
conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=Book Managment System;UserID=sa;Password=sa;"
conn.Open '打开连接
conn.Execute "Insert into BookInfo(书名,作者,类别,出版社,编号,数量) values('" & Text1.Text & " ','" & Text2.Text & "','" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "'," & Text5.Text & ")" '执行sql语句
conn.Close
Set conn = Nothing
MsgBox "添加数据成功"
End Sub
执行的时候出现“实时错误 连接字符串属性无效”，调试的时候错误指向“conn.Open '打开连接”，也就是说数据库打开失败，这是怎么回事？
注：我的数据库中已经设置登录名称为sa，密码sa 展开
Private Sub cmdok_Click()
Dim conn As New ADODB.Connection '声明连接数据库的对象
conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=Book Managment System;UserID=sa;Password=sa;"
conn.Open '打开连接
conn.Execute "Insert into BookInfo(书名,作者,类别,出版社,编号,数量) values('" & Text1.Text & " ','" & Text2.Text & "','" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "'," & Text5.Text & ")" '执行sql语句
conn.Close
Set conn = Nothing
MsgBox "添加数据成功"
End Sub
执行的时候出现“实时错误 连接字符串属性无效”，调试的时候错误指向“conn.Open '打开连接”，也就是说数据库打开失败，这是怎么回事？
注：我的数据库中已经设置登录名称为sa，密码sa 展开
展开全部
conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=服务器名称;Initial Catalog=数据库名称;UserID=sa;Password=sa"
你没有输入服务器的名称还有数据库的名称不知对不对，还有就是最后的分号不要。
你没有输入服务器的名称还有数据库的名称不知对不对，还有就是最后的分号不要。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
