vbnet数据库编程(,vbnet操作数据库

vb.net+数据库编程问题

使用OleDb将数据库绑定datagridview，然后添加RowHeaderMouseClick事件，在此事件中定义选中某一行后在textbox中显示相应的数据，在添加的按钮中定义打开form2，用sql语句查询数据库得到想要的关键字所关联的数据，显示出来就可以了。这里我给你一部分我写过的代码，基本上和你的要求很像，但是不完全一样，你自己研究研究，改改应该就可以了。

南岔网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。创新互联公司于2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。

'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()

'执行SQL语句，返回OleDbDataReader

对象

Do

While

reader.Read()

'读取一条数据

textbox1.Text

+=

reader("一些数据")

VbCrLf

Loop

reader.Close()

'关闭OleDbDataReader

conn.Close()

'关闭连接