vb.net数据库编程 vbnet数据库编程例子

vb.net实现sqlite数据库编程示例

;   在项目开发中充分体会到了一个精简数据存储模块的重要性及实用性 在综合了三年开发经验的基础上 向各位推介一下sqlite数据库 希望更多的程序猿支持开源精神         Imports System data SQLite        Public Class Form         Dim conn As SQLiteConnection        Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click        If System IO File Exists（ test db ） = True Then        System IO File Delete（ test db ）        End If        SQLiteConnection CreateFile（ test db ）        conn = New SQLiteConnection（ Data Source=test db ;Pooling=true;FailIfMissing=false ）        If conn State ConnectionState Open Then        conn Open（）        MsgBox（ 打开成功！ ）        End If        Dim cmd As New SQLiteCommand        cmd Connection = conn        cmd CommandText = CREATE TABLE Test （ID INTEGER PRIMARY KEY TestName VARCHAR（ ） TestTime DateTime Operator VARCHAR（ ））         Dim result As Integer = cmd ExecuteNonQuery（）        If result = Then        MsgBox（ 成功 ）        Else        MsgBox（ 失败 ）        End If        cmd = conn CreateCommand（）        cmd CommandText = insert into Test（TestName TestTime Operator）values（@Name @TestTime @Operator）         cmd Parameters Add（ @Name Data DbType String） Value = 动静         cmd Parameters Add（ @TestTime Data DbType DateTime） Value = Now（）        cmd Parameters Add（ @Operator Data DbType String） Value = peer         result = cmd ExecuteNonQuery（）        If result Then        MsgBox（ 插入成功 ）        End If        SelectShowInfo（）                cmd = conn CreateCommand（）        cmd CommandText = update  Test set TestName= 动静         result = cmd ExecuteNonQuery（）        If result Then        MsgBox（ 更新成功 ）        End If            SelectShowInfo（）                cmd = conn CreateCommand（）        cmd CommandText = delete from Test         result = cmd ExecuteNonQuery（）        If result Then        MsgBox（ 删除成功 ）        End If        SelectShowInfo（）        cmd Dispose（）        If conn State = ConnectionState Open Then        conn Close（）        End If        End Sub        Public Sub SelectShowInfo（）        Dim sa As New SQLiteDataAdapter（ select * from Test conn）        Dim ds As New System Data DataSet        sa Fill（ds Test ）        Dim mytable As New System Data DataTable        mytable = ds Tables（ Test ）        Me DataGridView DataSource = mytable        Me DataGridView Refresh（）        End Sub        End Class lishixinzhi/Article/program/net/201311/13874

创新互联公司是专业的德安网站建设公司，德安接单;提供成都网站设计、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行德安网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

我是新手学习VB.NET数据库编程，我想知道如何用DataGridView显示数据库中的数据？

1.前台配置数据源，那样显示有局限性。

2.用代码绑定数据源，一般都是采用这种方法，其实很简单的。

可以参考小小的世界论坛。

vb.net+数据库编程问题

使用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

VB.NET分层开发的几点心得

从这一章开始 我们将通过一个系列的讲座来向诸位展现Visual Basic Net的独特魅力以及使用它开发应用程序的基本方法 Visual Basic Net是微软公司在 年推出的一种开发基于 Net平台应用程序的开发语言 也是微软公司极力推荐的一种开发 Net平台应用程序的开发语言 首先还是让我们来简单了解一下Visual Basic Net和其前一个版本 也是目前世界上拥有最多使用者的开发语言 Visual Basic 的主要区别 一 Visual Basic和Visual Basic Net的主要区别 虽然说Visual Basic Net是Visual Basic 的后继版本 但在我看来Visual Basic Net除了在语法上还保留Visual Basic原有的踪影以外 因为二者几乎在 ％以上保持相似或相同 但在其他很多方面 Visual Basic Net都和Visual Basic截然不同 也许正是这些不同点 才使得Visual Basic Net功能更强大 更有生命力 但同样也为Visual Basic程序员转型为为Visual Basic Net程序员带来了困难 因为Visual Basic Net提出了很多新的功能 概念和观点 掌握Visual Basic Net不仅要掌握语法 还需要理解并运用这些新的功能 概念和观点 当然也需要掌握 Net框架 理解CLR（Common Language Runtime 通用语言进行时） 下面就从数据访问 Web开发和组件创建三个方面来简要谈谈二者的区别 数据访问 不同点主要表现在 数据访问技术 数据访问具体实现方法和数据绑定上的不同 在数据访问技术上 Visual Basic 是通过ADO（Active X Data Object 即 Active X数据对象）来实现对数据库访问的 同时为了保证对早期版本的兼容 也提供RDO（远程数据对象）和DAO（数据访问对象）二种数据访问技术 在Visual Basic Net中是使用ADO NET来访问数据库 ADO NET是 NET框架的一部分 其对应的类库是 Net FramWork SDK的真子集 ADO和ADO NET这两种技术在概念 功能和实现上都有许多差异 由于篇幅所限 这里就不一一介绍了 其实在Visual Basic Net中也可以使用ADO来访问数据库 但ADO在Visual Basic Net中是以组件的形式出现的 通过添加引用才可以在Visual Basic Net中使用 添加引用的过程 其实就是对组件互操作 经过互操作后的组件 已经并非先前意义上的组件 而是转变成可供Visual Basic Net直接使用的 Net类库 在数据访问的具体实现方法上 Visual Basic 实现数据访问主要是两种方法 其一是在程序设计阶段 可通过把数据源绑定到ADODC控件或使用数据环境 其二在运行时 可以通过编程方式创建记录集RecordSet对象并与记录集对象交换数据 同样在Visual Basic Net中实现数据访问的方法主要也是二种 其一是在程序设计阶段 通过创建 配置数据适配器DataAdapter和生成数据集DataSet 其二在运行中 通过编程方式动态创建 配置数据适配器和创建 生成数据集 在数据绑定（Data Bind）上 在Visual Basic 中实现数据绑定通过设置控件的下列属性来实现 DataChanged DataField DataFormat DataMember 和 DataSource 通常是把控件的显示属性绑定到数据源中的相应字段 在Visual Basic Net中 数据绑定的应用范围可广泛得多 Visual Basic Net中可以将任何控件的任何属性绑定到包含数据的任何结构中 Web开发 Visual Basic是使用Active Server Page（简称ASP）来创建在 Web应用程序 在ASP中 编写Web页面并非纯正的Visual Basic语言 而是Visual Basic脚本语言 VBScript 在Visual Basic Net中是使用ASP NET技术来编写Web页面 在ASP NET中使用的也不再是脚本语言 而是真正意义编程语言 其中就可以是Visual Basic Net 开发过ASP页面的朋友都清楚 虽然编写ASP页面对开发工具要求很低 但由于其是面向过程式开发 所以稍微复杂一点的ASP代码都显得杂乱无章 这都给程序设计 调试 修改带来了麻烦 而Visual Basic Net是建立在新的框架结构上 Visual Basic Net完全支持Web编程 凭借ASP NET的Web 应用程序 XML Web services等等基于Web上的功能 使得Visual Basic Net开发Web 页面与开发Windows编程很相似 Web页面代码也不显得有条有理了 组件创建 在使用Visual Basic 和Visual Basic Net编写应用程序时 虽然都可以通过从工具箱中选择组件 通过拖入方式在应用程序中加入组件 但二者在实现机理上却存在根本不同 在Visual Basic 中 应用程序中创建的组件全部是组件 即可在应用程序中使用的ActiveX控件 ActiveX 类型的DLL 和 ActiveX类型的EXE 而在Visual Basic Net中 向窗体中拖入的组件 都是基于继承 从 Net框架提供的SDK中相应的类继承 经过实例化后 通过添加功能才把组件加入到设计窗体中 这些过程都可以在Visual Basic Net的源代码中找到 Visual Basic Net中使用的每一个组件都是从Component或Control基类派生出来的 当然Visual Basic和Visual Basic Net之间还存在很多差别 如 Visual Basic 只提供单线程模式 并不支持多线程 而在Visual Basic Net全面支持多线程 并且在Visual Basic Net中还增加了结构化异常处理等新的功能 所以对于那些Visual Basic的程序员 从Visual Basic程序员转型到Visual Basic Net就有极强的必要性 下面就简要介绍一下这种必要性 二．从Visual Basic转型到Visual Basic Net的必然和必要性 虽然Visual Basic得到了很多人的认可 也有许多配套产品都提供了Visual Basic的接口 但随之时间的延续 其缺点也逐渐暴露了 有些甚至是无法 容忍 的 首先作为一种解释性的语言 不仅程序执行速度慢 并且在分发应用程序时 还需要带上解释库 其次Visual Basic并非完全的面向对象的开发语言 从根本上说 它应该是一种面向过程的开发语言 而Visual Basic Net做为下一代的Visual Basic语言 它是一种为开发 Net平台应用程序而度身定做的程序语言 因为Visual Basic Net中完全集成了 Net FrameWork（ Net框架）和CLR（Common Language Runtime 即 公共语言运行时） 同时 Net 框架和公共语言运行时又共同提供Visual Basic Net语言互操作性 垃圾资源回收 可靠安全性和版本改进的支持 通过Visual Basic Net能够简便 快捷地创建 Net平台应用程序 XML Web services 和 ASP NET Web 应用程序 Visual Basic Net做为开发 Net平台的程序语言 那它就为开发现跨平台程序创造了可能 因为我们知道 微软推出 Net 其目的之一就是实现跨平台 虽然目前微软只提供了在Windows平台上运行的 Net框架 还无法实现真正意义上的跨平台 但随着MONO的出现（虽然它还存在很多问题 并且目前的MONO只为C＃提供支持） 但可以预见的是在不久的将来 Visual Basic Net实现Write Once And Run AnyWhere的时间不会太久 Visual Basic Net是一种编译性的语言 但这种编译和以前接触的编译有所区别 因为经过Visual Basic Net编译器编译后得到文件并不是可以在计算机直接运行的二进制文件 它的性质是一种IL文件（中间语言文件） 在运行IL文件时 首先是通过CLR下的JIT（即时编译器） 把这种IL文件再编译成二进制文件 我们看到的程序运行 其实是经过JIT编译后的二进制文件在执行 这时可能有很多朋友会问 这种二次编译是否多此一举 具体实现中是否很麻烦 是否会影响程序的运行速度？二次编译的确是影响了程序运行的速度 但它却为实现跨平台带来了可能 其实这种编译过程犹如Java中的JVM（Java虚拟机） 正是JVM才使得Java能够开发出跨平台的应用程序 二次编译是CLR在 Net框架下自动实现IL文件到二进制文件转变的 它是一种自动完成的 并不需要人员的参与 所以它并不会给程序执行带来麻烦 Visual Basic Net 还是一种真正的面向对象的开发语言 可以说OOP思想已经深入到语言中的任一角落 如 在Visual Basic Net中创建的Windows组件 就是从类中继承 类经过实例化得到的 Visual Basic Net还增加了许多新功能和改进功能 如继承 接口和重载等 这些都使Visual Basic Net成为功能强大的面向对象的编程语言 微软公司在推出Visual Basic Net的同时 还推出了Visual Basic Net的开发工具Visual Studio Net Java程序员羡慕Visual Basic Net程序员的重要原因之一就是 Visual Basic Net拥有一个任何比目前Java程序员所使用的开发环境都好的集成开发环境 Visual Studio Net 三 Visual Basic Net开发利器Visual Studio Net简介 微软公司提供了四个不同的Visual Studio Net版本 分别是 企业级结构设计版 企业级开发版 专业版和学院版 其中学院版主要是为在校大学生学习Visual Studio Net准备的 它又分成三个独立的版本 Visual C＃标准版 Visual Basic Net标准版和Visual C＋＋标准版 上述的每一个版本的价格都不菲 现在在市面上买到主要是 张CD碟片的Visual Studio Net企业级结构设计版 （请注意 本文介绍的是Visual Studio Net Net FrameWork SDK 版本号是 ）下面就以此版本讨论一下如何安装Visual Studio Net 安装 Visual Studio NET 版本的系统要求 每一个版本的Visual Studio Net有着不同的组件组合 这也就决定了对计算机有着不同的系统要求 建议您的计算机系统满足下列要求 操作系统 Windows XP 专业版 Windows XP Home Windows 服务器版 Windows 专业版 Windows Workstation Windows NT Server Windows Net Server版处理器 Pentium II 级 主频 MHz以上处理器 推荐使用Pentium II lishixinzhi/Article/program/net/201311/12194

VB程序设计一般的四个步骤

1、建立应用程序界面

2、设置对象的属性

3、编写应用程序的代码

4、保存和运行程序

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

扩展资料

VB语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

1、不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

2、无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

3、异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

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

希望能帮到你...