登录数据库窗口设计～

[muzi600458]

Module1.vb：
Imports System.Windows.Forms
Imports System.Data.SqlClient
Module Module1
Public cnStr As String '= "data source=(local);initial catalog=GHSBGL;integrated security=SSPI;persist security info=False;user id=sa"
Public cn As New SqlConnection(cnStr)
Public sql As String
End Module

Form1.vb：
Imports System.Data.SqlClient
Imports System

Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "
...
#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cnStr = "data source=(local);initial catalog=GHSBGL;integrated security=SSPI;persist security info=False;user id=sa"
Try
cn.Open()
MsgBox("GOOD")
Catch err As Exception
MsgBox("连接失败，请重试")
cn.Dispose()
Exit Sub
Finally
End Try
End Sub

End Class

每次都连不上，cnStr字段值放在Module1.vb可以通，不是全局的吗？
应该是极菜的问题。

[citylamp]

我们共同学习VB.NET吧。[e-mail]

[muzi600458]

再简单一点，登录窗口：
Imports System.Data.SqlClient
Imports System

Public Class Form1
Inherits System.Windows.Forms.Form
Public cnStr As String
Public cn As New SqlConnection(cnStr)
Public sql As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cnStr = "data source=(local);initial catalog=GHSBGL;integrated security=SSPI;persist security info=False;user id=sa"
Try
cn.Open()
MsgBox("GOOD")
Catch err As Exception
MsgBox("连接失败，请重试")
cn.Dispose()
Exit Sub
Finally
End Try
End Sub

End Class

这也不通，除非一开始：
Public cnStr As String = "data source=(local);initial catalog=GHSBGL;integrated security=SSPI;persist security info=False;user id=sa"

[szch]

Public cn As New SqlConnection()
。
。
cn.open(cnStr)
.
.

[muzi600458]

哈，5分也不好得吧，本版的老大不管事，我几个帖子放了几天了，都没人理。
这题的答案我找到了，加一句：
cn.ConnectionString = cnStr
第一个跟贴的得分，并教友，QQ：110473274

[muzi600458]

本版的老大不管事～

[muzi600293]

接分