好贷网好贷款

求助:VB连接SQL SERVER2000服务 50zzzhang]

发布时间:2016-12-4 22:19:51 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"求助:VB连接SQL SERVER2000服务 50zzzhang]",主要涉及到求助:VB连接SQL SERVER2000服务 50zzzhang]方面的内容,对于求助:VB连接SQL SERVER2000服务 50zzzhang]感兴趣的同学可以参考一下。

在个人电脑上有个用VB做的管理例子,数据是SQL SERVER数据库,请问怎样设置VB才能联到数据库,连接总是提示"连接失败" 我电脑上操作系统是windows XP 数据是sql server 2000企业版

确定连接字符串是对的?

Public Function ConnectString() As String '數據庫連結函數  連結DB_OA   ConnectString = "provider=sqloledb.1;data source=GOLD-MISOA;uid=sa;pwd=123456#;database=db_OA" End Function

在VB工程中添加数据环境 按以下语句添加连接: Private Sub Form_Load() Set myConn = New ADODB.Connection myConn.ConnectionString = "driver={SQL Server};" & _ "server=YOURSQLSERVERName;uid=sa;pwd=yourpassword;database=yourdatabase" myConn.Open End Sub

Set myConn = New ADODB.Connection connStr = "Provider=SQLOLEDB;server=YOURSQLSERVERName;uid=sa;pwd=yourpassword;database=yourdatabase" myConn.Open connStr 另外想问,winxp 支持 sqlserver2000企业版?

Option Explicit Dim Conn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()     Show     Conn.Open "Provider=SQLOLEDB;Data Source=服务器IP(或本地机器名);UID=用户名(sa);PWD=密码(sa);initial catalog=数据库名称"     Set rs = Conn.Execute("select * from et_user")     Print rs("et_user_name")     rs.Close End Sub '新建工程文件,然后引用“Microsoft ActiveX Data Object 2.0 Library”,位于:“工程”-> “引用”里面

 你可以试试这个...  工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)  Dim CN As New ADODB.Connection '定义数据库的连接  Dim Rs As New ADODB.Recordset  CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库名;User Id=用户名;Password=密码;"  CN.Open  Rs.CursorLocation = adUseClient  Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic  Set DataGrid1.DataSource = Rs 

工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)  如果装了 .net版本号会有更高的  建议不要选 就选2.x的就可以了

谢谢各位帮助,因刚接触server,还有一问题,如进行多用户,别的电脑也可防问我server数据吗?因操作系统不是windows服务器版

引用 8 楼 zzzhang 的回复:谢谢各位帮助,因刚接触server,还有一问题,如进行多用户,别的电脑也可防问我server数据吗?因操作系统不是windows服务器版 可以~~~

上一篇:SQL里面如何使用XML 100ennvjnzaa]
下一篇:如何在IIS中配置SQL Server 2008 Reporting Services 100分,无满意结帖,结帖人wanyingsong]

相关文章

相关评论