使用OleDb将数据库绑定datagridview,然后添加RowHeaderMouseClick事件,在此事件中定义选中某一行后在textbox中显示相应的数据,在添加的按钮中定义打开form2,用sql语句查询数据库得到想要的关键字所关联的数据,显示出来就可以了。这里我给你一部分我写过的代码,基本上和你的要求很像,但是不完全一样,你自己研究研究,改改应该就可以了。
创新互联专注于维西网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供维西营销型网站建设,维西网站制作、维西网页设计、维西网站官网定制、小程序定制开发服务,打造维西网络公司原创品牌,更为您提供维西网站排名全网营销落地服务。
'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
你的这个只写删除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编程工具
Visual Basic 6.0简体中文版 Visual Basic 6.0绿色精简版 MSDN VB6精简版
VB入门教程
VB程序设计系列教程 VB 趣味例程 VB6实例教程
中文VB6傻瓜书 VB最简单入门教程 VB 6.0中文版范例入门与提高
VB初哥教学 VB编程标准 看实例学VB 6.0
VB.NET学习教程 VB.NET控件时尚编程百例 VB 中文版实用培训教程
VB经典编程 VB6循序渐进教程 VB 6.0 中文版教程
VB_NET实例解析与应用编程 VB.NET中高级篇 VB精彩编程200例
VB超级教程 VB API函数大全 Visual Basic 6.0实例教程
VB 6.0数据库开发学习教程 VB.NET数据库编程从入门到精通 VB6.0入门提高
21天学通Visual Basic.NET Visual Basic.NET实用全书 Visual Basic.NET学习范本
Visual Basic.NET培训教程 Visual Basic实用编程标准 VB学习教程
VB的控件的学习
VB编程开发技术
COM+与VB6分布式应用程序设计 Visual Basic 插件开发人员指南 VB.NET高级开发指南
VB.Net高级编程 VB.NET 面向对象可重用组件开发 Visual Basic精彩编程200例
VB.Net多媒体编程 VB.NET高级程序员指南 Visual Basic.NET GDI+技术教程
VB.Net控件应用编程实例教程 VB.NET XML Web开发人员指南 VB和SQL Server编程指南
用VB.NET开始Asp.NET1.1的开发 VB 游戏编程学习系统 Visual Basic.NET 编码技术
VB.NET面向对象CLASS的实现 VB.NET应用集锦例程 VB.NET实例解析应用编程
Visual Basic.Net与动态网页技术 VB6开发宝典 VB系统资源
VB 例程序讲解 VB.NET数据库开发实例 VB.NET与数据库开发教程
VB语言程序设计 VB.NET面向对象的实现 Visual Basic 6.0应用编程150例
Visual Basic.NET项目开发实践 Visual Basic 6.0 开发宝典 Visual Basic 6.0网络编程
Visual Basic6.0企业级应用程序开发 Visual Basic6.0数据库程序设计 Visual Basic .NET程序设计基础
Visual Basic.NET数据库开发教程 Visual Basic 6 循序渐进教程 VB游戏编程21天自学通
Visual Basic.NET进销存程序设计 Visual Basic程序设计导学 Visual Basic.NET技术内幕
VB.NET和SOL Server 2000高级编程 利用VB设计打印复杂报表 Visual Basic.NET编程基础
Visual Basic6.0元件程序开发指南 VB.Net网络数据库整合应用 Visual Basic或C#创建WS
Visual Basic.NET程序设计与应用
VB开发手册与指南
VB.Net与ASP.Net代码手册 VB 6.0中文版语言参考手册 VB编程经验手册
VB API 函数使用手册 VBA高级开发手册 VB速查手册之技巧篇
VB.NET Remoting 技术手册 VB.Net调试技术手册 Visual Basic 6.0 组件工具指南
VB.Net字符串和正则表达式参考手册 VBScript语言参考 VB6程序设计参考手册
VB技巧问答10000例 VB5 开发WEB数据库指南 VBscript英文帮助手册
VB6控件参考手册 VB6语言参考手册 VB6程序员指南
VB5开发WEB数据库指南 VBA 高级开发指南 VB中文版实用参考手册
VB编程经验手册 VB6组件工具指南 Visual Basic API函数参考手册
Visual Basic 6.0实用参考手册 Vsual Basic 6.0 控件参考手册 Visual Basic.NET类设计手册
Visual Basic.NET 语言参考手册 Visual Basic.net 反射参考手册 Visual Basic.net线程参考手册
Visual Basic编程经验手册 Visual Basic.Net专家指南 Visuai Basic.NET编程培训教程
VB速查手册之技巧篇 VBscript英文帮助手册
VB其它相关资源
VBSCRIPT函数方法速查 Visual Basic 第三方控件大全 Visual Basic 语言参考-函数速查
Access 2003 VBA 程序员参考书 VB、C快速进阶 V3.0 VB系统资源
VB Script语言参考 VB编程技巧集 VBScript 教程及语言参考
VBScript与JScript实例教程 VB精华文摘 Visual Basic 术语解释
VB常用函数 VBScript学习 VB学习一点通
VB Script基础 VBScript 帮助手册 Visual Basic 常用数值算法集
VB视频相关
VB编程与应用(电大)29讲 编程经典Visual Basic 用多媒体学Visual Basic
电子科大--- VB程序设计 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()
'关闭连接
vb6多线程没有vb.net方便
vb6可以在win10上运行,开发的程序也可以不用担心无法运行的问题 都向下兼容的
理论和现实上 都不会让vb6开发的程序无法运行
够用,只不过是因为处理文件上没有多线程 速度上可能会慢点而已
这个因人而异,每个人的理解能力不同,编程逻辑思想比较重要,语法不同比较容易解决