vb點虐 +數據庫編程問題

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

創新互聯是專業的尖山網站建設公司，尖山接單;提供網站設計、成都網站設計,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行尖山網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!

'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數據庫編程，我想知道如何用DataGridView顯示數據庫中的數據？

1.前臺配置數據源，那樣顯示有局限性。

2.用代碼綁定數據源，一般都是采用這種方法，其實很簡單的。

可以參考小小的世界論壇。

vb點虐 怎么操作數據庫

如果樓主熟悉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()

'執行SQL語句，返回OleDbDataReader

對象

Do

While

reader.Read()

'讀取一條數據

textbox1.Text

+=

reader("一些數據")

VbCrLf

Loop

reader.Close()

'關閉OleDbDataReader

conn.Close()

'關閉連接

文章題目：vbnet數據庫編程( vbnet數據庫入門經典pdf下載
當前地址：http://m.newbst.com/article30/ddshcso.html

成都網站建設公司_創新互聯，為您提供網站改版、網站設計、搜索引擎優化、Google、標簽優化、電子商務

廣告

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