VB实验一(数据输入输出)

实验一数据输入输出

实验目的

（1）掌握VB数据类型、各种运算符和函数的用法，以及表达式的求值。（2）了解窗体的构造及其属性、事件和方法。

（3）掌握基本的输入输出函数和语句。

实验内容

1、实验VB中三种除法运算符（/、\、Mod）的区别。（代码写在实验报告上）

设计如下程序界面，在前两个文本框中输入数据，然后单击命令按钮，在后面三个文本框中输出计算结果。

2、完成第四章课后习题4.8。

3、完成第五章课后习题5.4。（代码写在实验报告上）

4、完成第五章课后习题5.5。

VB SQL编程基础教程

https://www.wendangku.net/doc/1916599889.html,数据库编程基础教程 罗珊 众所周知，https://www.wendangku.net/doc/1916599889.html,自身并不具备对数据库进行操作的功能，它对数据库 的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中，https://www.wendangku.net/doc/1916599889.html,又是.NET FrameWork SDK中重要的 组成部分。要了解https://www.wendangku.net/doc/1916599889.html,的数据库编程，首先要明白https://www.wendangku.net/doc/1916599889.html,的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍https://www.wendangku.net/doc/1916599889.html,数据库访问对象以及https://www.wendangku.net/doc/1916599889.html,数据库编程基本方法。 一、https://www.wendangku.net/doc/1916599889.html,数据库访问对象 (一)https://www.wendangku.net/doc/1916599889.html,简介 https://www.wendangku.net/doc/1916599889.html,是由微软Microsoft ActiveX Data Object(ADO)升级发展而来的。是在.NET中创建分布式数据共享程序的开发接口。https://www.wendangku.net/doc/1916599889.html,的数据存取API提供两种数据访问方式，分别用来识别并处理两种类型的数据源，即SQL Server7.0(及更高的版本)和可以通过OLE DB进行访问的其他数据源。为此https://www.wendangku.net/doc/1916599889.html,中包含了两个类库，System.Data.SQL库可以直接连接到SQL Server的数据，System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Access数据。 (二)https://www.wendangku.net/doc/1916599889.html,的名称空间

https://www.wendangku.net/doc/1916599889.html,是围绕System.Data基本名称空间设计，其他名称空间都是从System.Data派生而来。它们使得https://www.wendangku.net/doc/1916599889.html,不仅访问DataBase中的数据，而且可以访问支持OLE DB的数据源。 当我们讨论https://www.wendangku.net/doc/1916599889.html,时，实际讨论的是System.Data和System.Data.OleDb 名称空间。这两个空间的所有类几乎都可以支持所有类型的数据源中的数据。这里我们讨论与后文实例有关的类。即OleDbconnection、OleDbDataAdapter、DataSet和DataView。 上面列举的类中没有OleDb前缀的，派生自System.Data空间，有此前缀的派生自System.Data.OleDb空间。在使用中，如果要引用OleDb前缀的类，必须导入System.Data.OleDb名称空间。语法如下： Imports System.Data.OleDb 使用没有此前缀的类必须导入System.Data名称空间。语法如下：Imports System.Data 1.OleDbConnection类 OleDbConnection类提供了一个数据源连接。这个类的构造函数接受一个可选参数，称为连接字符串。 (1)连接字符串： 连接字符串本身由下表中列出的参数构成。(图) 我们来看一下如何在连接字符串上使用参数来初始化一个连接对象。

国家二级VB机试(数据的输入与输出、多重窗体与环境应用)-试卷1

国家二级VB机试（数据的输入与输出、多重窗体与环境应用）- 试卷1 (总分：50.00，做题时间：90分钟) 一、选择题(总题数：25，分数：50.00) 1.PrintFormat(1234.56,"###.#")语句的输出结果是 （分数：2.00） A.123.4 B.1234.6 √ C.1234.5 D.1234.56 解析：解析：Format函数可以使参数按照指定的格式输出，其格式为：Format$(数值表达式,格式字符串)，该函数的功能是按“格式字符串”指定的格式输出“数值表达式”的值。其中#代表任意数值，小数部分多余的将进行四舍五入处理。 2.以下不能用Print方法输出数据的对象或窗口是 （分数：2.00） A.窗体 B.立即窗口 C.图片框 D.代码窗口√ 解析：解析：Print方法可以在窗体上显示文本字符串和表达式的值，并且可以在图片框、立即窗口或打印机上输出这些信息。 3.下列程序段的输出结果是x=5 Print x+1;x+1 （分数：2.00） A.6 6 √ B.5 5 C.6 7 D.5 6 解析：解析：Print方法可以在窗体上显示文本字符串和表达式的值，本题中两次输出x+1的值，但是x 没有任何变化，因此两次均输出6。 4.语句PrintFormat$(23846.5,"000,000.00")的输出结果是 （分数：2.00） A.23846.5 B.23,846.5 C.23,846.50 D.023,846.50 √ 解析：解析：Format函数可以使参数按照指定的格式输出，其格式为：Format$(数值表达式,格式字符串)，该函数的功能是按“格式字符串”指定的格式输出“数值表达式”的值。其中#代表任意数值，小数部分多余的将进行四舍五入处理，左边不够的位数补0。 5.假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是 （分数：2.00） A.Print25 B.Picture1.Print25 C.Text1.Print25 √ D.Debug.Print25

vb连接ACCESS数据库实例

vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing

VB使用ADODB操作数据库

VB使用ADODB操作数据库 Dim conn As New ADODB.Connection ’创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset ’创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String ’创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$ ’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码 FileName = App.Path & "\’数据库名’" DbIp = "数据库地址" DbName = "数据库名" DbUser = "数据操作员用户名" DbPw = "操作员密码" ’以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量 ’1)连接Access数据库: ’------------------- CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileNa me & ";Jet OLEDB:Database Password=" & DbPw ’2)连接Oracle数据库: ’------------------- CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data S ource=" & FileName & ";Persist Security Info=True" ’其中: ’PASSWORD:密码 ’User ID: 用户号 ’Data Source: 数据库名 ’Persist Security Info: ’Provider: ’3)连接VF的DBF库: ’---------------- CnStr = "PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPr

VB中输入输出语句

VB中输入输出语句 教学目标： 知识与技能：1、掌握输入函数inputbox 2、掌握输出语句print的用法 3、初步学会分析程序 过程与方法：经历分析问题、算法设计、编写程序、调试程序等用计算机解决问题的过程。 情感与态度：培养学生分析处理问题的能力与合作学习能力，增强学生的逻辑思维能力。 教学重点： 1、INPUTBOX的用法 2、PRINT语句的用法 教学难点： PRINT语句的用法 教学过程： 一、赋值语句 格式：变量＝表达式 “＝”为赋值符号，它的含义是将表达式的值赋给左边的变量 A=30 A=A+10 A=30 变量A 30 A=A＋10 40 注：老师讲解学生认真听并理解赋值号和数学中等号的不同之处 InputBox函数的一般格式： InputBox（提示内容,[标题],[输入框起始值],[x坐标位置] ,[y坐标位置]） 每执行一次InputBox函数，用户只能输入一个数据，且这个数据是字符串类型（string）。 例：p=InputBox（"请输入密码"，"密码框"） 注：以实例逐个讲解输入函数的各个参数，让学生看到每个参数加上后的效果，学生认真听，理解inputbox()函数的使用方法。 三、输出数据 Print基本格式： print输出内容 1、如果输出的内容是数、变量、表达式，则输出的是数、变量、表达式的值。如果是用引号引起来的字符串，则原样输出。 2、输出的内容可以是一个或多个。如果是多个输出，则各输出内容之间可以用逗号或分号来分隔。 3、输出的内容后面没有符号，则表示下一个print换行输出；如果print中没有

输出内容，则表示输出一个空行。 注：输出语句是编写程序必需掌握的基本语句，老师以实例讲解每个输出要点，输出语句的各个规则，学生观摩并记住print的用法。 四、实战练习 试编写一个程序，交换两个变量的值。 程序： Dim a, as integer，b as integer A=inputbox(“A=”,”输入A”) B=inputbox(“B=”,”输入B”) C=A A=B （先用学生的方式看看交换后的结果， B=C 用比喻的方式让学生容易接受，如交换两怀水一定要弄第3个容器）Print “交换后A=“;A,”交换后B=“；B

VB+数据库编程之+ADO+连接数据库实例

VB 数据库编程之 ADO 连接数据库实例 这里先说说ADO的ACCESS数据库连接吧，两种。 1.ADO控件连接 “工程”菜单→“部件...”：Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 并将Adodc数据控件绘入窗体。 右击Adodc数据控件→属性→使用连接字符串→生成→Microsoft Jet 4.0 OLE DB Provider→数据位置→找到要连接的ACCESS数据库文件…… Adodc数据控件的RecordSource属性为“2 - adcmdTable”和你要连接的表名。 控件的引用实例如下： '组合框（Combo）控件列表用某字段数据记录填充范例 '在窗体Load事件或Combo的相关事件中写入 '循环1到记录总数 For i = 1 To Adodc1.Recordset.RecordCount '如果不在记录集结尾则 If Not Adodc1.Recordset.EOF Then '组合框增加一行：“姓名”字段的值 Combo1.AddItem Adodc1.Recordset.Fields("姓名").Value '记录指针向后一个 Adodc1.Recordset.Movenext End If Next i 2.ADO代码连接 通用声明 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cmd As New https://www.wendangku.net/doc/1916599889.html,mand Private Sub Form_Load() '实例化Connection对象 Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\personnel.mdb;" 'Recordset对象 Set rs = New ADODB.Recordset rs.Open "职工信息", cn, adOpenDynamic, adLockOptimistic

(完整版)vb连接access数据库及数据读写操作

ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2

图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4

4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6

图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面

图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面

图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1

VB数据输出和输入

VB数据输出和输入 一、数据输出——print 1、Print方法：可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。 其一般格式为：[对象名.]print[表达式][，│;] （1）、这里的“对象名”可是以是窗体（form）、图片框（picture）、或打印机（printer），也可以是立即窗口（debug）。如果省略对象名，则在当前窗体上输出。 （2）、“表达式”是一个或多个表达式，可以是数值表达式或字符串。对于数据表达式，输出表达式的值；而字符串则照原样输出。如果省略“表达式”，则输出一个空行。 当输出多个表达式或字符串时，各表达式用分隔符（逗号、分号或空格）隔开。如果输出的各表达式之间用逗号（，）分隔，则按标准输出格式（分区输出格式）显示数据项。即以14个字符位置为单位把一个输出行分为若干个区段，逗号（，）后面的表达式在下一个区段输出。 如果各输出项之间用分号（；）或空格作分隔符，则按紧凑输出格式输出数据。 2、与print方法有关的函数 为了使信息按指定的格式输出，Visual Basic提供了几个与print 配合使用的函数，包括Tab、Spc、Space$和format$，这些函数可以与Print方法配合使用。

（1）、Tab函数。格式：Tab（n）。把光标移到参数n指定的位置开始输出信息。例如：print tab(10);123 将在第10个字符位置处输出数据123。 （2）、Spc函数。格式：Spc(n)。在print输出中，用Spc函数可以跳过n个空格。说明： ①、参数n是一个数值表达式。其取值范围为0~32767的整数。Spc函数与输出项之间用分号隔开。例如：print “你好”；Spc(8);”中国”将首先输出“你好”，然后跳过8个空格，再输出“中国”。 ②、Spc函数和Tab函数作用类似，而且可以互相代替。但是，Tab函数需要从对象的左端开始计数。而Spc函数只表示两个输出项之间的间隔。 ③、空格函数。格式：Space$（n）。用来返回n个空格。 Space$（n）函数与Spc(n)函数的区别： Space$（n）函数与Spc(n)函数的功能也很相似，但在使用方法上不同。 Space$（n）函数里的“$”是字符串类型说明符，可返回一个字符串值。可用于字符串的运算，使用时可以用字符串连接符连接。 而Spc(n)函数是与Print方法配合使用的函数，可直接控制输出位置。 3、格式输出 用格式输出format函数可以使数值或日期按指定的格式输出。一般格式为：format$(数值表达式，格式字符串)

第七讲 VB访问SQL Server2000数据库的方法

第七讲 VB访问SQL Server2000数据库的方法 一、ODBC数据源设置 1、ODBC简介 ODBC Open DatabaseConnectivity开放式数据库互连）是Mircosoft公司有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准API Application应用程序编程接口）。这些API利用SQL来完成大部分的任务。ODBC本身提供对SQL语言的支持，用户可以直接将SQL送给ODBC一个基于ODBC的应用程序对数据库操作不依赖于任何DBMS，不直接与DBMS打交道，所有数据库操作由ODBC驱动程序完成。 2、ODBC数据源的创建（建立ODBC数据源） 前台系统Windows 2000 professional系统，后台Windows 2000 Server系统。以Windows 2000 professional为例： （1）单击“开始”/设置/控制面板/管理工具/数据源ODBC,打开“ODBC数据源管理器”，选择“用户DSN or 系统DSN”，单击【添加】按钮，打开“创建用户数据源”对话框，选择“SQL Server”，单击【完成】按钮。

（2）打开“创建新的数据源到SQL Server”窗口： ○1你想用什么名称命名数据源：在名称框中输入xn。 ○2服务器：为网络中数据库服务器（默认是本地服务器Local，可选远程服务器IP）。 ○3登陆ID：xn密码：xn（取决于安装SQL时所指定的密码）。特别注意此处为确保数据库安全起见，数据库管理员可以给用户指定一个用户名及密码。这里为简便起见使用管理员用户名及密码。 ○4更改数据库为：aa（所要使用的数据库）。

VB数据库操作实例

VB数据库操作实例 工具/原料 VB数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一，很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。 步骤/方法 1. 1 《书库管理系统》是一个最简单的数据库操作实例，它包括浏览、添加、修改、删除功能的数据库操作，使用数据链接控件Adodc链接数据库、数据显示控件MSHFlexGrid显示数据库中的记录。 在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，我们必须点击菜单中的【工程】-【部件】，在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了。 其中Adodc控件的ConnectionString属性值是："Provider=Microsoft.Jet.OLEDB.4.0;Data Source=家庭书架.mdb;Persist Security Info=False"，它设置链接了“家庭书架.mdb”这个Access数据库，RecordSourc属性值是："select 图书登记表.ID,图书登记表.名称,图书登记表.

书号,图书登记表.作者,图书登记表.出版社,图书登记表.出借状态,出借记录.借书人,出借记录.电话,出借记录.地址,图书登记表.备注,图书登记表.出借记录from 图书登记表,出借记录where 图书登记表.ID=出借记录.zhuID ORDER BY 图书登记表.ID"，因为在“家庭书架.mdb”数据库中包含"图书登记表"和"出借记录"二个数据表，这是多表链接的典型的SQL语句。Adodc 的这二个属性值在VB的属性窗口进行编辑，你可以将上述属性值直接输入到相应的属性中，设置Visible的值为False，目的是在运行中不显示这个控件，其他属性默认值即可。 MSHFlexGrid控件的名称我们修改为MS1，它的属性设置稍稍比较麻烦：首先将它的DataSource属性在属性窗口设置为"Adodc1"； 然后在对象窗口右击控件，在下拉菜单中点击【属性】，在“通用”标签中修改行为3，修改列为11，修改固定行为0，修改固定列为0，如果数据链接没有问题，在属性的“带区”标签中可以看到列标题和列名称已经设置了，其他属性页的属性可以容许默认值，中点击【确定】即可。 另外在属性窗口设置MSHFlexGrid控件的BackColorBkg属性为&H00FFE0E0&，这个属性是控件底色的设置，然后设置BackColorFixed属性为&H00C0FFFF&，这个属性是控件数据显示标题的底色。其他默认值即可。 最后放置三个按钮，一个标签，三个Frame控件，在Frame1、Frame2、Frame3控件中分别放置9个标签（数组），8个文本框，一个下拉选择框，一个按钮，在Frame2、Frame3控件中分别放置一个标签，设置这个标签的Visible值为False，其他设置参考下图：设置和调整控件如上图后，设置数据库，在

VB数据库编程实用源码

使用ADO编程模型需添加ADO对象类库的“引用”----“Microsoft ActiveX Data Objects 2.x Library” ADO之VB数据库操作主要包括读、写、修改及删除等操作，不论是进行什么数据库操作都必须首先连接到数据库。 一、连接到数据库 1、连接到SQL数据库： 通过ADO的Connection对象可实现VB与SQL数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" '指定提供者，设置数据源 cnn.Open …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.Open "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 2、连接到ACCESS数据库： 通过ADO的Connection对象可实现VB与ACCESS数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" '指定提供者，设置数据源 cnn.Open …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文 件.MDB" …打开到数据库的连接

VB使用ADODB操作数据库的常用方法

VB使用ADODB操作数据库的常用方法 ADO常用方法 下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸 准备工作 ======== Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等 于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常 需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String'创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$ '以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码 FileName = App.Path & "\'数据库名'" DbIp = "数据库地址" DbName = "数据库名" DbUser = "数据操作员用户名" DbPw = "操作员密码" '以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量 '1)连接Access数据库: '------------------- CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data so urce=" & FileName & ";Jet OLEDB:Database Password=" & DbPw '2)连接Oracle数据库:

vb连接access数据库常用的方法两种示例

这里以链接acｃｅss数据库为例。 第一部分就是通过语句链接，第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ Dim rs Ａs New AＤＯDB、Recｏrdset Dｉm cｏnｓtｒAｓStrｉｎg 2、给这些变量赋值，方便链接数据库 coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 ３、打开数据库 ｃn、opｅｎconstr 打开表 ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn 取字符串并赋值给相应得文本 Text1、text=rs、ｆields（“效应与现象名称”) Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”） 关闭表 rｓ、cloｓe 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提

示出错得,这样得话，在窗口上建立两个文本框就够了。 但就是，在此之前还有一步一定要做， 点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所 示:

显示得结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下: Pｒｉｖａte Sｕb Form＿Load() Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ Dim cｏnstｒＡｓStｒinｇ coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿ "Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb" '空格加短下划线表示续行 cｎ、ｏpen cｏｎsｔｒ ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称") Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂)

VB数据的输入与输出练习题

一、数据的输出： 1、Print Format(1234.56,”###.#”)语句的输出结果是 A）123.4B）1234.6C）1234.5D)1234.56 2、以下不能用Print方法输出数据的对象或窗口是 A）窗体B）立即窗口C）图片框D)代码窗口 3、语句Print Format$(23846.5,”000,000.00”)的输出结果是 A）23846.5B）23，846.5C）23，846.50D)023，846.50 4、假定Picture1和Text1分别为图框和文本框的名称，则下列错误的语句是 A）Print25B）Picture1.Print25C）Text1.Print25D)Debug.Print25 二、InputBox函数： 5、执行下列语句strInput=InputBox(“请修正稿字符串”，”字符串对话框”，”字符串”),则变量strInput 的内容是： A）“请输入字符串”B）”字符串对话框”C）”字符串”D)空字符串 6、有下面的程序段：x=InputBox(“字符串”,”请输入”)print x A）“字符串”B）”输入”C）”请输入”D)空白（即未输出任何内容） 三、MsgBox函数 7、下列叙述中正确的是 A）MsgBox语句的返回值是一个整数 B）执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其它操作 C）MsgBox语句的第一个参数不能省略 D）如果省略MsgBox语句的第三个参数，则信息框的标题为空 8、假定有如下语句：x=MsgBox(“string1”,,”string2”,”String3”,2)执行语句后，显示一个信息框，单击“确定”按钮，则x的值为 A）string1B）string2C）string3D)1 9、设程序中有以下语句：MsgBox“Visual”,,”Basic”,”等级考试”,2，执行语句后，以下关于信息框叙述中正确的是 A）提示信息是Visual B）提示信息是Basic C）标题栏显示为Visual D)标题栏显示为“等级考试” 10、窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() x=”VisualBasicProgramming” a=right(x,11) b=Mid(x,7,5) c=MsgBox(a,,b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是 A）信息框是的标题是Basic B）信息框中的提示信息是Programming C)c的值是函数的返回值D)MsgBox的使用格式有错 四、字形

第四章 输入输出语句

第四章输入输出语句 一、选择题 1．若变量已正确说明为float类型，要通过语句scanf("%f %f %f "，&a，&b，&c)；给a 赋于10.0，b赋予22.0，c赋予33.0，不正确的输入形式是：（） A、10<回车>22<回车> 33<回车> B、10.0，22.0，33.0<回车> C、10.0<回车>22.0 33.0<回车> D、10 22<回车> 33<回车> 2．x、y、z被定义为int型变量，若从键盘给x、y、z输入数据，正确的输入语句是（） A、INPUT x、y、z； B、scanf("%d%d%d"，&x，&y，&z)； C、scanf("%d%d%d"，x，y，z)； D、read("%d%d%d"，&x，&y，&z)；3．以下程序段的输出结果是（） int a=1234； printf("%2d\n"，a)； A、12 B、34 C、1234 D、提示出错、无结果4．若有说明语句：int a，b，c，*d=&c；，则能正确从键盘读入三个整数分别赋给变量a、 b、c的语句是（） A、scanf("%d%d%d"，&a，&b，d)； B、scanf("%d%d%d"，&a，&b，＆d)； C、scanf("%d%d%d"，a，b，d)； D、scanf("%d%d%d"，a，b，*d)； 5．根据定义和数据的输入方式,输入语句的正确形式为 已有定义:float f1,f2; 数据的输入方式: 4.52↙ 3.5↙ A、scanf(“%f,%f”,&f1,&f2); B、scanf(“%f%f”,&f1,&f2); C、s canf(“%3.2f %2.1f”,&f1,&f2); D、scan f(“%3.2f%2.1f”,&f1,&f2); 6。根据定义和数据的输入方式,输入语句的正确形式为 已有定义:float f1,f2; 数据的输入方式:4.52 3.5↙ A、scanf(“%f,%f”,&f1,&f2); B、scanf(“%f%f”,&f1,&f2); C、scanf(“%3.2f %2.1f”,&f1,&f2); D、scanf(“%3.2f%2.1f”,&f1,&f2); 7. 下面程序的输出是______ main() { int k=11; printf("k=%d,k=%o,k=%x\n",k,k,k); } A、k=11,k=12,k=13 B、k=11,k=13,k=13

VB的基本数据类型

VB的基本数据类型： 数据:计算机能够处理数值、文字、声音、图形、图像等信息，均称为数据。 数据类型:根据数据描述信息的含义，将数据分为不同的种类，对数据种类的区分规定，称为数据类型。数据类型的不同，则在内存中的存储结构也不同，占用空间也不同 数值型数据（主要数据类型）日期型字节型 货币型逻辑型字符串型对象型变体型 一、数值数据类型 数值类型分为整数型和实数型两大类。 1、整数型 整数型是指不带小数点和指数符号的数。 按表示范围整数型分为：整型、长整型 （1）整型（Integer，类型符%） 整型数在内存中占两个字节（16位） 十进制整型数的取值范围：-32768 ~ +32767 例如：15，-345，654%都是整数型。而45678%则会发生溢出错误。 （2）长整型（Long，类型符&） 长整数型在内存中占4个字节（32位）。 十进制长整型数的取值范围： -2147483648 ~ +2147483647 例如：123456，45678&都是长整数型。 2、实数型（浮点数或实型数） 实数型数据是指带有小数部分的数。 注意：数12和数12.0对计算机来说是不同的，前者是整数（占2个字节），后者是浮点数（占4个字节） 实数型数据分为浮点数和定点数。 浮点数由三部分组成：符号，指数和尾数。 在VB中浮点数分为两种： 单精度浮点数（ Single ） 双精度浮点数（ Double ） （1）单精度数(Single，类型符！) 在内存中占4个字节（32位），,有效数字：7位十进制数 取值范围：负数 -3.402823E+38 ~ -1.401298E-45 正数 1.401298E-45 ~ 3.402823E+38 在计算机程序里面不能有上标下标的写法，所以乘幂采用的是一种称为科学计数法的表达方法 这里用E或者e表示10的次方(E/e大小写都可以） 比如：1.401298E-45表示1.401298的10的负45次方 vb里面可以这样表示：8.96E-5 例：21e5（正号省略）表示： 21乘以10的5次方的一个单精度数

VB数据库操作实例

VB数据库操作实例 2008年02月22日 05:49 VB数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一，很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。 《书库管理系统》是一个最简单的数据库操作实例，它包括浏览、添加、修改、删除功能的数据库操作，使用数据链接控件Adodc链接数据库、数据显示控件MSHFlexGrid显示数据库中的记录。 在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，我们必须点击菜单中的【工程】-【部件】，在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了。 其中Adodc控件的ConnectionString属性值是： "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=家庭书架.mdb;Persist Security Info=False"，它设置链接了“家庭书架.mdb”这个Access数据库，RecordSourc属性值是："select 图书登记表.ID,图书登记表.名称,图书登记表.书号,图书登记表.作者,图书登记表.出版社,图书登记表.出借状态,出借记录.借书人,出借记录.电话,出借记录.地址,图书登记表.备注,图书登记表.出借记录 from 图书登记表,出借记录 where 图书登记表.ID=出借记录.zhuID ORDER BY 图书登记表.ID"，因为在“家庭书架.mdb”数据库中包含"图书登记表"和"出借记录"二个数据表，这是多表链接的典型的SQL语句。Adodc的这二个属性值在VB的属性窗口进行编辑，你可以将上述属性值直接输入到相应的属性中，设置Visible的值为False，目的是在运行中不显示这个控件，其他属性默认值即可。 MSHFlexGrid控件的名称我们修改为MS1，它的属性设置稍稍比较麻烦：首先将它的DataSource属性在属性窗口设置为"Adodc1"； 然后在对象窗口右击控件，在下拉菜单中点击【属性】，在“通用”标签中修改行为3，修改列为11，修改固定行为0，修改固定列为0，如果数据链接没有问题，在属性的“带区”标签中可以看到列标题和列名称已经设置了，其他属性页的属性可以容许默认值，中点击【确定】即可。 另外在属性窗口设置MSHFlexGrid控件的BackColorBkg属性为&H00FFE0E0&，这个属性是控件底色的设置，然后设置BackColorFixed属性为&H00C0FFFF&，这个属性是控件数据显示标题的底色。其他默认值即可。 最后放置三个按钮，一个标签，三个Frame控件，在Frame1、Frame2、Frame3控件中分别放置9个标签（数组），8个文本框，一个下拉选择框，一个按钮，在Frame2、Frame3控件中分别放置一个标签，设置这个标签的Visible值为False，其他设置参考下图：

vb数据库操作实例

第一部分:vb数据库操作实例 vb神童教程(续)--编写一个小型的信息管理系统 vb神童教程(续)--准备数据库 vb神童教程(续)--设计系统的界面及对象的属性 vb神童教程(续)--为对象添加事件代码 vb神童教程(续)--编写一个小型的信息管理系统 受委托为编程入门网做一个简单的vb操作数据库的实例，来演示一下如何用vb 向数据库中添加、修改、删除记录这些操作。我觉得自己是比较菜的，几年来别人都在进步，只有我还在原地踏步。不过没有办法，我们这一圈人里现在只有我机器上还有vb6，勉为其难，只有尝试一下了。如果我写的这点幼稚的东西能为想要了解vb数据库操作的朋友提供哪怕是一丁点儿的参考和帮助，将是我最为高兴的事情，同时也希望高手不要见笑。 我做的这个实例名为“编程入门网网址管理系统”，算是一个小型的信息管理系统吧。该系统后台使用的是Access数据库，程序中使用ADO代码链接的形式连接Access。该系统具有向数据库中添加、修改、删除记录的功能，进行某项操作后能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校验，以避免输入错误的数据造成程序运行不正常，程序运行时各个操作及退出系统时均有友好的提示框请用户确认。所有代码均在Windows 2003+Vusual Basic 6.0环境下调试通过。 系统运行时如下图：

vb神童教程(续)--准备数据库 我用的是Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等；此外，对sql语言也需要有所了解。具体您可以参考：数据库基础知识ABC。 首先，在“我的电脑”的e盘新建一个名为vb文件夹，先打开Access，新建一个名为Access_db的数据库（Access数据库文件的扩展名是.mdb），保存到刚才建立的文件夹中，则以后在程序中调用数据源的位置为 E:\vb\Access_db.mdb。 然后在Access_db.mdb中建立一个名为wzdz的表（wzdz是“网站地址”的首字母缩写）, 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下： ▲数据类型：文本。 ▲字段大小：50 ▲有效性规则：无。 ▲必填字段：否 ▲允许空字符串：否 ▲索引：无 “编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考：vb神童教程(续)--vb连接Access数据库实例 这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在Access中给wzdz表中预先添加两条初始记录：