vb.net+數據庫編程問題

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

南岔網站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網頁設計、網站建設、微信開發(fā)、APP開發(fā)、成都響應式網站建設公司等網站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)公司于2013年成立到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選創(chuàng)新互聯(lián)公司。

'datagridview綁定數據庫

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

此處添加顯示表中相應信息

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

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

.........

End Sub

VB.Net數據庫編程的問題

你的這個只寫刪除datagrid表格里的數據啦...跟本就沒有寫刪除數據庫的.也沒有更新數據庫的.

以下是刪除按鈕的代碼..

If MsgBox("數據刪除不可恢復，確認刪除數據么？", vbYesNo) = vbYes Then

rec.Delete

rec.MoveNext

rec.Requery

End If

以下是form窗體的datagrid顯示數據表的代碼:

If rec.State = adStateOpen Then rec.Close

SQL = "select * from jbxx" '定義sql查詢語句

rec.Open SQL, con, adOpenStatic, adLockOptimistic '打開記錄集

Set dg.DataSource = rec '用datagrid控件顯示記錄集

以下是模塊..

Public con As New Connection '定義數據連接，公共變量

Public coon, coom As String

Sub Main()

ChDir App.Path '轉換相對路徑

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cq.mdb;Persist Security Info=False"

'定義數據庫連接

con.CursorLocation = adUseClient '以客戶端的方式打開

con.Open ' 打開連接

登陸.Show

End Sub

希望能幫到你...

vb.net 怎么操作數據庫

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

另外

.NET

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

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

'首先導入命名空間

Imports

System.Data

Imports

System.Data.OleDb

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

Dim

conn

As

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=數據庫.accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

數據表",

conn)

conn.Open()

'打開數據庫連接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'執(zhí)行SQL語句，返回OleDbDataReader

對象

Do

While

reader.Read()

'讀取一條數據

textbox1.Text

+=

reader("一些數據")

VbCrLf

Loop

reader.Close()

'關閉OleDbDataReader

conn.Close()

'關閉連接