快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net连接云盘资源 vbnet fileget

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://6mz.cn/article/dogsdeh.html

其他资讯