数据库设计(VB).pptVIP

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数据库设计(VB)

设计数据库应用系统结构 C/S架构 二层C/S架构 三层C/S架构 B/S架构 二层C/S架构 两层的客户/服务器模式由客户端应用程序和数据库服务器程序两部分构成,二者可分别称为前台程序和后台程序,数据存放在后台服务器上,客户端界面(完成商业逻辑和显示逻辑)存在于客户端计算机上。 其基本工作原理是:客户端程序向数据服务器发送SQL请求,服务器响应请求,对数据表进行操作,得到数据集,返回给前端应用程序。 在这种体系结构中,客户端负责实现用户接口功能,同时封装了部分或全部的应用逻辑。服务器端的数据库服务器主要提供数据存储功能,也可通过触发器和存储过程提供部分应用。 数据库连接方式 ODBC ADO ODBC ODBC是一个CLI(Call Layer Interface),通过允许开发者制作一个在大多数数据库中可运行的简单的API调用,从而简化Windows(及其他一些OS)到数据库的访问。 向所有的中间件一样,ODBC提供了一个定义良好的、不依赖于数据库的API。使用API时,ODBC通过一个驱动管理器来判定应用程序要连接的数据库的类型,并载入适当的ODBC驱动。 ADO ADO(ActiveX Data Objects),主要是使用微软的 OLE DB 功能对在数据库服务器中的数据进行访问和操作。 其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。 ADO 支持用于建立基于客户端/服务器和 Web 的应用程序的主要功能。 ADO 同时具有远程数据服务 (RDS) 功能,通过 RDS 可以在一次往返过程中实现将数据从服务器移动到客户端应用程序或 Web 页、在客户端对数据进行处理然后将更新结果返回服务器的操作。 ADO控件 VB 和 SQL SERVER 的连接1 VB 和 SQL SERVER 的连接2 VB 和 SQL SERVER 的连接2 插入 修改 修改 删除 删除 查询 Private Sub Command1_Click() Dim temp1 temp1 = 100000 Adodc1.RecordSource = select * from dzxxtb order by 读者编号 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast Text1.Text = Val(Adodc1.Recordset.Fields(读者编号)) + 1 Else Text1.Text = temp1 + 000001 End If Adodc1.RecordSource = select * from dzxxtb order by 读者编号 Adodc1.Refresh clear1 Text2.SetFocus End Sub Sub clear1() Text2.Text = Combo1.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Combo2.Text = Text9.Text = DTPicker2.Value = Date Text10.Text = Text11.Text = Text22.Text = End Sub Private Sub Command3_Click() Dim sql As String sql = insert into dzxxtb values( Text1 , Text2 , Combo1 , DTPicker1 , Text3 , Text4 , Text5 , Text6 , Text7 , Text8 , Combo2 , Text9 , DTPicker2 , Text10 , Text22 ) cnn.Execute (sql) MsgBox 数据保存成功, 64 Adodc1.Refresh Adodc2.RecordSource = select * from dzxxtb Adodc2.Refresh End Sub Execute方法执行对连接的命令。 Priva

文档评论(0)

xcs88858 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档