Insert Into 數(shù)據(jù)表名 (字段1,字段2,...) Values ('字段1值','字段2值'....)
站在用戶的角度思考問(wèn)題,與客戶深入溝通,找到石樓網(wǎng)站設(shè)計(jì)與石樓網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品,建站類型包括:成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名申請(qǐng)、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋石樓地區(qū)。
Dim
sqlConnection1
As
SqlClient.SqlConnection
Dim
strConnect
As
String=”data
source=服務(wù)器名;initial
catalog=數(shù)據(jù)庫(kù)名;user
id=sa;password=;”
sqlConnection1=New
System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open
‘打開(kāi)數(shù)據(jù)庫(kù)
sqlConnection1.close
‘關(guān)閉連接,釋放資源
1)連接Sql
Server數(shù)據(jù)庫(kù)
Dim
odbcDbConnetion1
As
Microsoft.Data.OdbcConnection
Dim
strConnect
As
Sting=”Driver={SQL
Server};Server=服務(wù)器名;Uid=sa;pwd=;Database=
數(shù)據(jù)庫(kù)名;”
odbcDbConnetion1=New
Microsoft.Data.OdbcConnection(strConnect)
如果樓主熟悉VB6,可以直接在項(xiàng)目中添加ADODB的Com引用,這樣你就可以像VB6那樣操作數(shù)據(jù)庫(kù)了!
另外
.NET Framework中連接數(shù)據(jù)庫(kù)要用到ADO.NET。如果要操作Access數(shù)據(jù)庫(kù),要用到System.Data.OleDb命名空間下的許多類。
比如按樓主所說(shuō),“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個(gè)內(nèi)容”:
'首先導(dǎo)入命名空間
Imports System.Data
Imports System.Data.OleDb
'然后在某一個(gè)事件處理程序中寫(xiě):
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=數(shù)據(jù)庫(kù).accdb;Jet OLEDB:Database Password=MyDbPassword")
Dim command As New OleDbCommand("Select * From 數(shù)據(jù)表", conn)
conn.Open() '打開(kāi)數(shù)據(jù)庫(kù)連接
Dim reader As OleDbDataReader = command.ExecuteReader() '執(zhí)行SQL語(yǔ)句,返回OleDbDataReader 對(duì)象
Do While reader.Read() '讀取一條數(shù)據(jù)
textbox1.Text += reader("一些數(shù)據(jù)") VbCrLf
Loop
reader.Close() '關(guān)閉OleDbDataReader
conn.Close() '關(guān)閉連接
1·綁定數(shù)據(jù)源來(lái)進(jìn)行連接
2.用代碼連接
先到數(shù)據(jù)庫(kù)建立一個(gè)數(shù)據(jù)庫(kù)和相應(yīng)的表
連接數(shù)據(jù)庫(kù)的代碼:
Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫(kù)名;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=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫(kù)名;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() '顯示下個(gè)窗體
Me.Hide() ’隱藏當(dāng)前窗體
Else
MessageBox.Show("輸入信息有誤!", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If
這個(gè)就要用到dataview控件了
這個(gè)控件功能太強(qiáng)了一下子也說(shuō)明不了,自己研究吧,不懂聯(lián)系我
分享文章:vb.net數(shù)學(xué)庫(kù) C# 數(shù)學(xué)庫(kù)
本文地址:http://jinyejixie.com/article16/hpsodg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、建站公司、云服務(wù)器、網(wǎng)頁(yè)設(shè)計(jì)公司、企業(yè)網(wǎng)站制作、網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)