level 3
倒影三角
楼主
配置文件中是这样的
<add name ="CeLiang" connectionString ="Data source=127.0.0.1; Initial Catalog=test; user id=sa ; password=666666"/>
类中是这样的
Public Sub New()
connString = System.Configuration.ConfigurationManager.ConnectionStrings("CeLiang").ConnectionString
End Sub
'测试数据库连接是否正常
Public Function testConnect() As String
Dim databaceInfo As String = ""
Dim con As New SqlConnection(connString)
Try
'尝试打开数据库
con.Open()
'databaceInfo = "数据库版本：" & con.ServerVersion & vbCrLf
databaceInfo += "数据库连接：" & con.State.ToString() & vbCrLf
Catch ex As Exception
'发生错误返回错误信息
databaceInfo = "连接数据库出错：" '& vbCrLf & ex.Message & vbCrLf
Finally
con.Close()
End Try
Return databaceInfo
End Function
一直测试不通过，请教大神，是数据库设置问题么？刚才重装了数据库。
2017年12月27日 09点12分
1
<add name ="CeLiang" connectionString ="Data source=127.0.0.1; Initial Catalog=test; user id=sa ; password=666666"/>
类中是这样的
Public Sub New()
connString = System.Configuration.ConfigurationManager.ConnectionStrings("CeLiang").ConnectionString
End Sub
'测试数据库连接是否正常
Public Function testConnect() As String
Dim databaceInfo As String = ""
Dim con As New SqlConnection(connString)
Try
'尝试打开数据库
con.Open()
'databaceInfo = "数据库版本：" & con.ServerVersion & vbCrLf
databaceInfo += "数据库连接：" & con.State.ToString() & vbCrLf
Catch ex As Exception
'发生错误返回错误信息
databaceInfo = "连接数据库出错：" '& vbCrLf & ex.Message & vbCrLf
Finally
con.Close()
End Try
Return databaceInfo
End Function
一直测试不通过，请教大神，是数据库设置问题么？刚才重装了数据库。
