×

vb数据库编程实例

vb数据库编程实例（急求一个VB调用数据库的程序代码！！）

admin admin 发表于2023-11-24 22:13:15 浏览33 评论0

抢沙发发表评论

本文目录

急求一个VB调用数据库的程序代码！！

---- VB做为快速应用开发（RAD）工具越来越得到开发人员的认可和接受。它对许多API（如ODBC API、SOCKET API等等）的封装使得编程变得简单起来。同时，它支持集成开发环境下的可视化、事件驱动、面向对象等编程特点。下面，我们谈谈在VB中调用存储过程的实现方法及其注意事项。 ---- 我们知道，VB的数据库编程有许多种方法，比如直接用ODBC API编程，这种方法灵活、高效，程序员可以实现对数据库复杂的控制；也可以用VB中的数据对象，如RDO（远程数据对象）、DAO（数据访问对象）、ADO（ActiveX 数据对象），这种方法实现起来方便、快捷，但灵活性较差一些。由于存储过程在实现数据封装、隐藏以及代码的预编译、减少网络负载、维护方便等优点，所以被许多RDBMS和编程工具做支持。VB中的各类数据对象也提供对存储过程的支持。 ---- 我们以ADO为例来说明其实现的步骤 ---- 1． 创建、调试存储过程。你可以在数据库中也可以在其他外挂程序的支持下进行存储过程的创建和调试工作。本例中的存储过程代码如下（使用PUBS的MS SQL中的例子库 ）： CREATE PROCEDURE myprocedure @job_id smallint, @job_lvl tinyint AS SELECT * FROM employee WHERE job_id 《 @job_id AND job_lvl 》 @job_lvl ---- 2． 在VB中生成一个新的工程，工程有一窗体，一个COMMAND（NAME：COMMAND1） 按钮，一个 MSFlexGrid（NAME：MSFlexGrid1）控件。 ---- 3． 创建连接ADO connection； ---- 4． 创建命令ADO command; ---- 5． 创建参数并设置各个参数的属性； ---- 6． 执行ADO command; ---- 7． 对数据进行处理；MSFlexGrid显示查询到的数据 ---- 8． 释放连接，退出程序。 ---- 其中代码如下： 在窗体中声明以下变量： Dim cnn1 As ADODB.Connection ‘连接 Dim mycommand As ADODB.Command ‘命令 Dim parm_jobid As ADODB.Parameter ‘参数1 Dim parm_joblvl As ADODB.Parameter ‘参数2 Dim rstByQuery As ADODB.Recordset ‘结果集 Dim strCnn As String ‘连接字符串 在窗体的LOAD事件中加入如下代码： Set cnn1 = New ADODB.Connection ‘生成一个连接 strCnn = “DSN=MYDSN;uid=sa;pwd=“ ‘创建的系统数据源MYDSN指向PUBS数据库 cnn1.Open strCnn ‘打开连接 在窗体的UNLOAD中的加入代码如下： cnn1.Close ‘关闭连接 Set cnn1 = Nothing ‘释放连接 在按钮中的代码如下： Dim i As integer Dim j as integer Set parm_jobid = New ADODB.Parameter Set mycommand = New ADODB.Command ’ parm_jobid.Name = “name1“ this line can be ommited parm_jobid.Type = adInteger ‘

VB 数据库实例

用ADO法（要先引用）连接：Dim cn As ADODB.ConnectionSet cn=New ADODB.Connection ’上两句为声明创建ADO变量（下同）cn.open “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=X;“ ’X为数据库路径(加文件名)cn.Close ’关闭数据库Set cn=Nothing ‘释放数据读取：Dim rs As ADODB.RecordSetSet rs=New ADODB.RecordSetrs.Open “select * from X1“, cn,X2,X3 ’X1为表名，cn就是上面连接的cn（下同），X2为数据库游标类型，X3为数据库锁方式（读取方式）Do While Not rs.EOF XXXXX ’读取数据至程序的代码，自编 rs.MoveNext ’移动到下一条记录Loop……………… ’关闭…，释放…Set rs=NothingSet cn=Nothing剩下的网上搜，大把

VB怎么调用数据库数据

VB可将Sql结构化查询语句赋值Ado(ActiveX 数据对象)或ADO Data 控件，访问和操作数据库。

ADO (ActiveX 数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。

ADO Data 控件， 这是一种新的、OLEDB 识别的数据源控件，其功能与内部的 Data 控件和 Remote Data 控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。

Visual Basic 6.0 中，已经可以将任何 ADO/OLE DB 数据源绑定到任何 ADO/OLE DB 数据使用者上。在运行时，可以设置控件的 DataSource 属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection 对象将这些类绑定在一起。可以创建与 ADO 数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid 控件相似的、复杂绑定的用户控件。

以下是经ADO (ActiveX 数据对象)访问Access数据库的实例代码：

    Dim cnn As New Connection    Dim rs As New Recordset    Dim sql As String    Dim ARR    cnn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False“    sql = “select 故障名称 from guzhang_bm“    rs.Open sql, cnn    Combo1.Text = “故障名称“    Do While Not rs.EOF        Combo1.AddItem rs(“故障名称“)        rs.MoveNext    ’打开表    Loop    rs.Close    cnn.Close

以下是使用ADO Data 控件访问Access数据库德实例代码：

    Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & “\wd.mdb;Persist Security Info=False“    Adodc1.RecordSource = “select * from jishijilu“ ’ where shijian like’%8112%’ And gyh_riqi like’%10%’“    Adodc1.Refresh    Set MSHFlexGrid1.DataSource = Adodc1    MSHFlexGrid1.Row = 1    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1

VB访问数据库（sql sever2000)的实例

1.先在工程---引用里面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,将其勾选，为写代码做准备 2，在窗体上放一个combo1和command1 3，代码 Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open “Driver={SQL Server};SERVER=数据库机器ip;DATABASE=student;UID=sa;PWD=“ sql = “select sno from std where sn=’1111’“ rs.Open sql, conn, 3, 1 While Not rs.EOF Combo1.AddItem rs(“sno“) rs.MoveNext Wend Set conn = Nothing Set rs = Nothing End Sub

如何在VB中实现网络数据库编程

用数据库控件比如ADODC与网络数据库连接，然后其他用来输出的控件比如DataGrid再与数据库控件绑定即可。数据库只要建立了连接，那么在使用过程中对于程序而言就没有本地数据库与网络数据库之分了，操作都是完全一样的，数据库搜索引擎会自动完成数据的上传和下载。

如何用VB建立数据库

1、首先点击打开主菜单栏中的“外接程序”选项。

2、然后在弹出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。

3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，弹出保存界面，点击保存后出现如下界面。

4、然后右键单击properties，选择“新建表”，输入表名称，添加字段。

5、然后打开类型，选择字段类型的大小，回车确定。

6、然后点击“生成表”选项。

7、然后双击“1”或者右键单击选择打开。

8、然后输入值后工具栏会变化。

9、然后点击添加就完成了。 

vb连接access数据库实例

工程-引用-勾选 Microsoft Active Data Objects 2.6 Library代码部分dim cn as new adodb.connectiondim rs as adodb.recordsetprivate sub form_load()cn.open “provider=microsoft.jet.oledb.4.0;data source=” & app.path & “\123.mdb”set rs=new adodb.recordsetrs.open“select * from 数据库字段名 where 数据库字段名=`” & trim(text1.text) & “`”,cnend subprivate sub command_clickif rs.eof=false then msgbox rs(“数据库字段名”)end sub手机打的可能有错！