|
#2
2010-04-26 21:13
|

Imports System.Data.SqlClient
Dim con As SqlConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCon.Click
con=New SqlConnection()
con.ConnectionString = "Server=localhost;Database=StuManagementDB;Initial Catalog=SSPI"
con.Open()
If con.State = ConnectionState.Open Then
Label1.Text = "连接已OK"
btnCon.Enabled = False
btnNot.Enabled = True
End If
End Sub
就是连不上Dim con As SqlConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCon.Click
con=New SqlConnection()
con.ConnectionString = "Server=localhost;Database=StuManagementDB;Initial Catalog=SSPI"
con.Open()
If con.State = ConnectionState.Open Then
Label1.Text = "连接已OK"
btnCon.Enabled = False
btnNot.Enabled = True
End If
End Sub
只有本站会员才能查看附件,请 登录
我看了下sql配置,应该也没问题
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
请各位高手帮帮忙,谢谢了
[ 本帖最后由 tongfeigood 于 2010-4-27 15:11 编辑 ]