vb.net數(shù)據(jù)庫編輯 vb excel做數(shù)據(jù)庫

vb.net+數(shù)據(jù)庫編程問題

使用OleDb將數(shù)據(jù)庫綁定datagridview，然后添加RowHeaderMouseClick事件，在此事件中定義選中某一行后在textbox中顯示相應(yīng)的數(shù)據(jù)，在添加的按鈕中定義打開form2，用sql語句查詢數(shù)據(jù)庫得到想要的關(guān)鍵字所關(guān)聯(lián)的數(shù)據(jù)，顯示出來就可以了。這里我給你一部分我寫過的代碼，基本上和你的要求很像，但是不完全一樣，你自己研究研究，改改應(yīng)該就可以了。

創(chuàng)新互聯(lián)公司長期為1000+客戶提供的網(wǎng)站建設(shè)服務(wù)，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為庫車企業(yè)提供專業(yè)的成都網(wǎng)站制作、成都做網(wǎng)站，庫車網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

'datagridview綁定數(shù)據(jù)庫

Public Class form1

Private ObjetConnection As OleDbConnection

Private ObjetCommand As OleDbCommand

Private ObjetDataAdapter As OleDbDataAdapter

Private ObjetSet As New DataSet()

' SQL語句

Private strSql As String

Private ObjetDataTable As DataTable

Private ObjetDataRow As DataRow

Private Numeroligne As Integer

'定義路徑

Private strConn As String

Private ObjetCommandBuilder As OleDbCommandBuilder

Dim dv As New DataView

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

strConn =

"Provider=Microsoft.ACE.OLEDB.12.0; Data source=" Application.StartupPath "\文件名.accdb" /此處文件路徑

strSql =

"Select * 表名 "

ObjetConnection =

New OleDbConnection()

ObjetConnection.ConnectionString = strConn

ObjetConnection.Open()

ObjetCommand =

New OleDbCommand(strSql)

ObjetDataAdapter =

New OleDbDataAdapter(ObjetCommand)

ObjetCommand.Connection() = ObjetConnection

ObjetDataAdapter.Fill(ObjetSet,

"表明")

dv.Table = ObjetSet.Tables(

"表名")

DataGridView1.DataSource = dv

　

ObjetConnection.Close()

End Sub

/此處是RowHeaderMouseclick事件

Private Sub DataGridView1_RowHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseClick

此處添加顯示表中相應(yīng)信息

Me.TextBox1.text = DataGridView1.SelectedRows(0).Cells(0).Value

Me.TextBox2.text = DataGridView1.SelectedRows(0).Cells(1).Value

.........

End Sub

vb.net如何實現(xiàn)修改數(shù)據(jù)庫中的數(shù)據(jù)

點擊修改按鈕以后，相對的數(shù)據(jù)顯示到 信息顯示 窗口的相對TextBox? 的代碼如下：

信息顯示.TextBox1.Text?=?DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名為例，其他的跟這個一樣。

信息顯示.ShowDialog()

完成修改的SQL代碼如下：

UPDATE?表名?SET?Name_CN='新值',?Name_EN='新值'?WHERE?列名=條件

vb.net 怎么操作數(shù)據(jù)庫

如果樓主熟悉VB6，可以直接在項目中添加ADODB的Com引用，這樣你就可以像VB6那樣操作數(shù)據(jù)庫了！

另外

.NET Framework中連接數(shù)據(jù)庫要用到ADO.NET。如果要操作Access數(shù)據(jù)庫，要用到System.Data.OleDb命名空間下的許多類。

比如按樓主所說，“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個內(nèi)容”：

'首先導(dǎo)入命名空間

Imports System.Data

Imports System.Data.OleDb

'然后在某一個事件處理程序中寫：

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=數(shù)據(jù)庫.accdb;Jet OLEDB:Database Password=MyDbPassword")

Dim command As New OleDbCommand("Select * From 數(shù)據(jù)表", conn)

conn.Open() '打開數(shù)據(jù)庫連接

Dim reader As OleDbDataReader = command.ExecuteReader() '執(zhí)行SQL語句，返回OleDbDataReader 對象

Do While reader.Read() '讀取一條數(shù)據(jù)

textbox1.Text += reader("一些數(shù)據(jù)") VbCrLf

Loop

reader.Close() '關(guān)閉OleDbDataReader

conn.Close() '關(guān)閉連接

網(wǎng)站標題：vb.net數(shù)據(jù)庫編輯 vb excel做數(shù)據(jù)庫
文章出自：http://muchs.cn/article8/doccdip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、商城網(wǎng)站、網(wǎng)站排名、電子商務(wù)、關(guān)鍵詞優(yōu)化、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)