我用Win2000 Pro + VB6 + SQL Server2000
我在本机中先用SQL Server建立了一个名为xlc的本地数据库,没有设访问密码,本机名为sun,win2000的登录账号是abc,密码是123。我想用adodb连接这个数据库 Dim adoCN As New adodb.Connection '连接对象
Dim rs As New adodb.Recordset '记录集对象
Dim strcon As String, sqlstr As String
strcon = "Provider=SQLOLEDB;Server=sun;Uid=sa;Pwd=;Database=xlc" '连接字符串
adoCN.Open strcon '打开连接(数据库)
rs.CursorLocation = adUseClient '使用客户端游标
sqlstr = "SELECT * FROM xlc"
Set datagird1.DataSource = rs '将记录集显示在datagrid控件中
DataGrid1.Refresh提示错误: 实时错误'-2147467259 (80004005)
用户'sa'登录失败。 原因:未与信任 SQL Server 连接相关联
我在本机中先用SQL Server建立了一个名为xlc的本地数据库,没有设访问密码,本机名为sun,win2000的登录账号是abc,密码是123。我想用adodb连接这个数据库 Dim adoCN As New adodb.Connection '连接对象
Dim rs As New adodb.Recordset '记录集对象
Dim strcon As String, sqlstr As String
strcon = "Provider=SQLOLEDB;Server=sun;Uid=sa;Pwd=;Database=xlc" '连接字符串
adoCN.Open strcon '打开连接(数据库)
rs.CursorLocation = adUseClient '使用客户端游标
sqlstr = "SELECT * FROM xlc"
Set datagird1.DataSource = rs '将记录集显示在datagrid控件中
DataGrid1.Refresh提示错误: 实时错误'-2147467259 (80004005)
用户'sa'登录失败。 原因:未与信任 SQL Server 连接相关联
解决方案 »
- 新人求助一个VBS保存的问题
- 求JPEG格式图片转换为BMP格式的VB代码
- 40元搞定多屏显示硬件问题,软件问题尚未解决,详情请进,求高手相助
- vb 怎样使一个*.bmp 图像变成透明的。。。谢谢!
- 如何能使combo只能选择不能输入,又能设置初始combo1.text的值
- 哪里有局域网论坛(BBS)的免费源代码,200分送上。谢谢
- 一个打印的问题?怎样在datareport中,打印图啊????
- Excel2007中AutoScaleFont属性无效
- 我用datagrid显示了一系列的数据,但我想点击某个cell时显示一个对话框,我该怎么办?急急急!谢谢!
- 从INI文件中读出的字符串无法和另一字符串相加!!!!!!
- 在VB下如何用sql语句获得sql server服务中的数据库的名称
- 如何将文本文件内容读到textbox中显示?
“使用网络登录 ID 的 Windows NT 验证”
把它改为
“使用用户输入登录 ID 和密码的 SQL Server 验证”
Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=NetDB;Data Source=10.97.0.40
可以参照下边的代码:
Option Explicit
'Use ADO2.7
Private Sub Form_Load()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.CursorLocation = adUseClient
Rs.CursorLocation = adUseClient
Cn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=NetDB;Data Source=10.97.0.40"
Set Rs = Cn.Execute("select * from hr_users")
MsgBox Rs.RecordCount
Set DataGrid1.DataSource = Rs' Rs.Close
' Cn.Close
' Set Rs = Nothing
' Set Cn = Nothing
End Sub