首页数据库vb和sql数据库开发实例(vb编写的数据库软件)

vb和sql数据库开发实例(vb编写的数据库软件)

编程之家2026-05-17855次浏览

大家好,今天给各位分享vb和sql数据库开发实例的一些知识,其中也会对vb编写的数据库软件进行解释,文章篇幅可能偏长,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在就马上开始吧!

vb和sql数据库开发实例(vb编写的数据库软件)

vb如何连接sql数据库,求源码

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$

vb和sql数据库开发实例(vb编写的数据库软件)

'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码

FileName= App.Path&"\'数据库名'"

DbIp="数据库地址"

DbName="数据库名"

DbUser="数据操作员用户名"

DbPw="操作员密码"

vb和sql数据库开发实例(vb编写的数据库软件)

'以上变量根据数据库类型的不同而不同,有可能只需要1至两个变量

'1)连接Access数据库:

'-------------------

CnStr="PROVIDER=microsoft.jet.oledb.3.51;persist security info=false;data source="& FileName&";Jet OLEDB:Database Password="& DbPw

'2)连接Oracle数据库:

'-------------------

CnStr="PROVIDER=MSDAORA.1;Password="& DbPw&";User ID="& DbUser&";Data Source="& 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 FoxPro Driver};UID="& DbUser&";SourceDB="& FileName&

";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"

'4)连接SQL的数据库

'------------------

CnStr="PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid="& DbUser&";pwd="& DbPw&";DRIVER=SQL Server;DATABASE="& DbName&";WSID=GQSOFT;SERVER="&

DbIP

'也可以使用这段简易代码 CnStr="Provider=SQLOLEDB;Data Source="& DbIp&";DATABASE="& DbName&";UID="& DbUser&";pwd="& DbPw

Conn.Open cnstr'使用 Connection集合的 Open方法与数据库建立连接

2、Recordset集合的常用方法

==========================

'1)打开一个表

'------------

Sql="select* from表名"'SQL查询语句

Set rs= New ADODB.Recordset'新建一个实例

rs.Open Sql, conn'使用 Open方法打开数据库中的一个表

'注意,这种打开方式只能使用 rs.MoveNext(即,向后移动行坐标)而不能像其他方向,并且不能修改数据内容

'

'rs.Open Sql, conn,1'虽然只加了个“1”,但这种方法可以向任何方向移动行坐标。

'

'以下参数代表了这个可选值的含义

'0= adOpenForwardOnly(默认值)打开仅向前类型游标。

'1= adOpenKeyset打开键集类型游标。

'2= adOpenDynamic打开动态类型游标。

'3= adOpenStatic打开静态类型游标。

'

'虽然使用以上方法可以可以实现行坐标(游标)的任意移动,但是仍然无法写入数据。因此需要进一步的对Open方法进行完善

'rs.Open Sql, conn, 1, 3'后面的3是确定读写权限的

'以下参数代表了这个可选值的含义

'1= adLockReadOnly(默认值)只读—不能改变数据。

'2= adLockPessimistic保守式锁定(逐个)—在编辑时立即锁定数据源的记录。

'3= adLockOptimistic开放式锁定(逐个)—只在调用 Update方法时才锁定记录。

'4= adLockBatchOptimistic开放式批更新—用于批更新模式(与立即更新模式相对)。

'

'2)读写数据

'----------

'增加一行记录并对新记录的内容进行修改并保存可以如下写法

rs.AddNew'增加一行记录

rs("...")="..."'数据读写操作

...

rs.UpDate'保存写入资料,如果使用只读权限,则不能使用这个方法

rs.Close'这个方法用来关闭你所代开的表,如果不使用这个方法也可以,但是数据库仍然认为你在对标进行锁定,可造成数据库负担过重

2、对数据进行筛选和排序

=======================

Sql="select* from表名"'SQL查询语句

'以上为打开一个表的所有内容

Sql="select top 50* from表名"'SQL查询语句

'以上为只打开前50行的记录

Sql="select top 50列名1,列名2,列名5 from表名"'SQL查询语句

'以上为只打开前50行的记录,并且只打开第1、2、5列数据

Sql="select* from表名 where列名1='"&字段&"'"'SQL查询语句

'以上为一个简单的筛选,表示打开的内容必须符合[列名1='"&字段&"'"]的内容

'需要注意的是,数据库列的类型必须匹配,比如字符串类型需要以单引号括起

'而数字类型则不能用单引号括起

'另外SQL语句还支持通配符,例如列名1 like'%"&字段&"%'"表示包含[字段]

'在表达式中的匹配

'? _(下划线)任何单一字符

'* or%零个或多个字符

'#任何单一数字(0— 9)

'[charlist]任何在字符表中的单一字符

'[!charlist]任何不在字符表中的单一字符

'注:根据数据库的不同?、_和*、%的应用有所差别,比如SQL只使用%和 _分别代表多个字符和单一字符

Sql="select* from表名 where列名1='"&字段&"' ORDER BY字段1 ASC"'对查询结果进行升序排列

Sql="select* from表名 where列名1='"&字段&"' ORDER BY字段1 DESC"'对查询结果进行降序排列

Sql="select* from表名 where列名1='"&字段&"' ORDER BY字段1 DESC, ORDER BY字段2 DESC"'对查询结果进行多维降序排列(速度奇慢,不推荐使用)

3、Recordset集合的常用属性方法

==============================

rs.BOF'是否游标在最上边

rs.EOF'是否游标在最下边

rs.RecordCount'记录集的行数(如果使用像前类型的游标,可能返回不准确)

rs.AddNew'新建一行记录

rs.Update'保存当前行被修改的记录

rs.Delete'删除当前行

rs.Close'关闭记录集

4、Fields集合的一些属性的解释

=============================

'以下为简写,正常情况需要rs.Fileds.。。。但是Fields属于Recordset的一个默认集合,因此可以省略

rs()'括号内可以是列名也可以是列的序号例如:rs("姓名")、rs(3)都是是可以的

rs(3).Name'返回列名

rs(3).Type'返回列的类型

rs(3).Value'返回当前行的值

rs.Fields.Count'返回列数

急!急!急!vb如何连接sql数据库

这里要用到adodc控件,首先连接好数据,

select* from管理员

查询:

用文本框txtName和txtPass输入名字与密码

然后:

"select* from管理员 where用户名='"& txtName&"'and密码='"& txtPass&"'"

查一下有记录不?

这里有几个小技巧

有时会出错,

因为什么,俺也不清楚

但是这样可以解决

1.数据类型出错:你再建一个文本框,它与Adodc的数据关联,这样就不出错了 [将它隐去]

2.查询语句出错

那是无法解析

"'"

这样要建& Chr(13)&取代.

如果看不明白,说明您没学,找个学友抄得了.

如何用vb和sql建立一个销售管理系统

1,整理需求,大概需要哪些功能,账号,权限,入库,出库,统计汇总,报表打印等。

2,设计数据库,access还是sqlserver,根据数据库的几范式设计表结构,可以适当的根据需求考虑空间换时间,不一定完全按照第三范式。

3,设计UI,编码。其实前面设计越细,后面编码越容易,做的系统也越稳定,bug少。

END,本文到此结束,如果可以帮助到大家,还望关注本站哦!

低代码开发平台 开源,zion小程序开发平台小程序开发软件,微信小程序制作工具