VB.net 数据库连接问题

我 看了一下应该是你第一次连接上后，cnn.open就打开并持续开着，并没有关闭，所以，你断网后，第二次连接，他依然是打开的。

创新互联长期为近1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为滑县企业提供专业的成都网站制作、成都网站建设，滑县网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。

另外：

我个人建议你要学会用vb.net的组件，自己连太麻烦，他有现成的，你直接在数据库里选择添加新数据源，按照提示把数据库添加上，然后，你会看到你的程序下面会多了个数据集(dataset).

最后要做的就是使用这些数据集了。以form1为例，你添加一个datagridview,然后在他的数据源上选择刚才添加的项数据集中的某个数据表，然后你会看到，在form1中多了一个dataadapter,sqlconn,datset,并且在form1的load事件中，你会发现多了一条语句，dataadapet.fill(dataset)。

当你运行程序并更改了datagridview后，想要更新数据，只需要在后面，增加一个button,并设置他的click事件为：dataadapter.update(dataset)

怎么样，是不是还有一个问题想问？就是如何更改数据源，很简单，在form1的load事件中，dataadapter.fill(dataset)这条语句之前，再增加一条，sqlconn.ConnectionString = "server=**;database=**;uid=**;pwd=**;Connect TimeOut=2"这个就是你的数据源。

希望我的答案能令你满意。

vb.net连接数据库问题

请确认你的sql server是以windows身份验证还是Sql server用户验证，如为windows身份验证，请注意sqlserver中有没有添加'MICROSOF-6A0C6C\Administrator'的登录权限；如果为sql server用户验证，请在连接字串中加入登录用户与密码

vb.net的数据库连接

1·绑定数据源来进行连接

2.用代码连接

先到数据库建立一个数据库和相应的表

连接数据库的代码：

Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判断一条记录为真

kf.Show() '显示下个窗体

Me.Hide() ’隐藏当前窗体

Else

MessageBox.Show("输入信息有误！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

文章名称：vb.net连接云盘资源 vbnet fileget
文章来源：http://myzitong.com/article/dogsdeh.html