首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb 联接 sql server08 显示无效的授权说明,求高手帮忙

2013-03-28 
vb 连接 sql server08 显示无效的授权说明,求高手帮忙啊我的sql-server 是windows 身份验证,没有设密码,vb

vb 连接 sql server08 显示无效的授权说明,求高手帮忙啊
我的sql-server 是windows 身份验证,没有设密码,vb的代码如下,麻烦高手看下
Option Explicit

Dim objconn As New ADODB.Connection
Dim sqlstring As String
Dim connstring As String
Dim objrs As New ADODB.Recordset

Private Sub showdata(rs As ADODB.Recordset, dgrid As MSFlexGrid)
Dim rownum As Integer
rownum = 1
dgrid.Rows = rownum
dgrid.Cols = rs.Fields.Count - 3
For j = 0 To rs.Fields.Count - 1 - 3
 dgrid.TextMatrix(0, j) = rs.Fields(j).Name
 Next j
 Do While Not rs.EOF
  rownum = rownum + 1
  dgrid.Rows = rownum
  For j = 0 To rs.Fields.Count - 1 - 3
  If Not IsNull(rs.Fields(j).Value) Then
   dgrid.TextMatrix(rownum - 1, j) = rs.Fields(j).Value
   End If
  Next j
  rs.MoveNext
 Loop
End Sub

Private Sub form_load()
 connstring = "provider=sqloledb.1"
 connstring = connstring & "initial catalog=p-pc; data source=a 

building"
 With objconn
  .ConnectionString = conntring
  .ConnectionTimeout = 10
  .Open
 End With
End Sub

Private Sub command1_click()
 objrs.Open "set1", objconn, adOpenDynamic, adCmdTable
 Call showdata(objrs, MSFlexGrid1)
End Sub
Private Sub command2_click()
 objrs.Close: Set objrs = Nothing
 objrs.Close: Set objconn = Nothing
 End
End Sub
[解决办法]
不要用WIN的身份验证,自己设数据库账户密码然后用ADODC控件生成连接串试试?
[解决办法]

'这样试试
with objconn
    If .State = adStateOpen Then .Close
    .ConnectionString = "driver=SQL Server;server=SQL实例名;uid=SA;pwd=SA的密码;database=数据库名"
    .CommandTimeout = 0
    .Open
End With

热点排行