数据库访问被拒绝
Private Function ExecuteSQL(ByVal SQL As String) As String
Dim con As New SqlConnection( "Data Source=.;Integrated Security=SSPI;Initial Catalog=Marcket ")
Dim comand As New SqlCommand
comand.Connection = con
comand.CommandText = SQL
Try
con.Open()
Dim str As String = comand.ExecuteScalar()
Return str
Catch ex As Exception
MsgBox(ex.ToString)
Finally
con.Close()
End Try
Return Nothing
End Function
我用VB做的管理系统在自己的机子上一到Open()那条语句就出错，而在学校的机子上却不会。麻烦请高手看一下！谢谢了。

[解决办法]
你自己 机器上不支持NT用户模式的登录
你可以将 数据库 设置成 sql和windows混合模式 然后使用

Dim con As New SqlConnection( "Data Source=.;uid=sa;pwd=yourpass;database=Marcket ")

[解决办法]
注意连接字符串以及用户名和密码