重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
我 看了一下應該是你第一次連接上后,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"這個就是你的數據源。
希望我的答案能令你滿意。
請確認你的sql server是以windows身份驗證還是Sql server用戶驗證,如為windows身份驗證,請注意sqlserver中有沒有添加'MICROSOF-6A0C6C\Administrator'的登錄權限;如果為sql server用戶驗證,請在連接字串中加入登錄用戶與密碼
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