vb是如何连接数据库的

        刚开始学习数据库时
,对数据库很不了解,尤其是模块中的代码。照着抄都有很多错的,每一句到底是什么意思呢,根本不懂。于是我就花费了大量的时间去查每一句代码的具体作用,直到我师傅说让我带着问题前进的时候。
        不过我还是稍微有点成果的——我弄懂了模块中的连接数据库的代码。先写出来一些我自己的理解,如果错了,请大家不惜赐教。
  
 Sub Main()                              '从sub main启动工程
Dim flogin As New frmlogin '登陆窗体的模版 ,其中flogin 是一个窗体,不过为什么不直接登录就不懂了。。。
flogin.Show vbModal '把登陆窗体实例化
If Not flogin.OK Then 'ok是加载在flogin窗体的一个开关,用来确定是否登陆成功
End
End If
Unload flogin Set fMainForm = New frmMain '窗体实例化,类似flogin
fMainForm.Show
End Sub

进入登陆界面
         
  
点击确定后的代码运行方式
          
   Private Sub cmdok_Click()
Dim txtSQL As String '定义一个字符串,存放sql的语句。
Dim mrc As ADODB.Recordset ’定义一个结果集(或者说是临时的表格)存放从数据库中调出的数据
Dim MsgText As String ’定义一个字符串,存放连接数据库的结果。一般不再用户界面体现 If Trim(txtUserName.Text) = "" Then '验证用户名栏是否为空
MsgBox "请输入用户名", vbOKOnly, "警告" '如果是空的话,直接警告并退出
exit sub
Else
txtSQL = "select * from user_info where user_ID='" & Trim(txtUserName.Text) & "'" 'sql语句,这句话的意思是从 'user_info 的表格中取出来所有user_id =用户名中 字符的行。
Set mrc = Executesql(txtSQL, MsgText) '通过Executesql()这个函数将sql 语句送入,并将操作结束后得到的结果集赋值给 mrc <span style="white-space:pre"> </span>' 括号中的txtsql存放的就是sql字符串,关于executesql()函数的运行方式,下面有详细的描述。 If mrc.EOF Then ’.eof是mrc的一个属性,如果从数据库中进行了sql语句的操作,数据库将从第一句开始查找符合条件的项<span style="white-space:pre"> </span>'进行操作,如果查到了最后一句,并且没有发现任何符合条件的项,就会返回. eof= true 否则返回的<span style="white-space:pre"> </span>'则是 .eof=flase 如果他报错的话,说明连接失败 详情参见:<a target=_blank href="http://blog.csdn.net/liyasong666888/article/details/37931469">mrcc.eof</a>
MsgBox "没有该用户,请重新输入!", vbOKOnly, "警告"
txtUserName.SetFocus
Else '如果从数据库中找到了所要找的项的话进行如下操作(此时数据存入mrc)
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then '调出数据中的第一列,看其值是否等于用户输入的密码。
OK = True
Me.Hide
UserName = txtUserName.Text
Else
MsgBox "密码错误,请重新输入密码"
txtPassword.Text = ""
txtPassword.SetFocus
End If End If End If end sub

vb是如何连接数据库的的更多相关文章

  1. VS2010 VB 连接数据库SQL2005

    示例一:  Dim conn As New OleDb.OleDbConnection         Dim cmmd As New OleDb.OleDbCommand         conn. ...

  2. 【应用笔记】【AN004】VB环境下基于RS-485的4-20mA电流采集

    版本:第一版作者:周新稳 杨帅 日期:20160226 =========================== 本资料高清PDF 下载: http://pan.baidu.com/s/1c1uuhLQ ...

  3. 【VB超简单入门】二、知识准备

    在开始编程之前,需要先熟悉一下各种操作和术语,以后学习编程才能得心应手. 首先最重要的操作当然就是-电脑的开机关机啦~(开个玩笑哈哈),必须掌握软件的安装和卸载,还有能编写批处理程序对平时的使用也是很 ...

  4. vb.net中的SqlHelper

    1.定义: SqlHelper是一个基于·NET Framework的数据库操作组件.组件中包含数据库操作方法.SqlHelper用于简化你重复的去写那些数据库连接(SqlConnection),Sq ...

  5. VB最新使用教程

    Visual Basic是一种由 微软公司开发的结构化的.模块化的.面向对象的.包含协助开发环境的事件驱动为机制的可视化程序设计语言.这是一种可用于微软自家产品开发的语言.它源自于BASIC编程语言. ...

  6. VB连接Mysql数据库

    当然机器装有mysql数据库 然后下载安装Mysql,odbc驱动 须要加入ado'菜单"project"->"引用" 找 Microsoft Activ ...

  7. Pascal、VB、C#、Java四种语法对照表

    因为工作原因,自学会了vb后陆续接触了其它语言,在工作中经常需要与各家使用不同语言公司的开发人员做程序对接,初期特别需要一个各种语法的对照比,翻看了网络上已有高人做了整理,自己在他基础上也整理了一下, ...

  8. VB.net 连接池

    上篇博客介绍了临时表的使用,以及它的生命周期和连接池的关系.那么为了能更好的把握临时表的产生和消亡,本篇博客就介绍Vb.net连接池.在打开和关闭数据库连接时的耗费的资源是非常高的.那么在程序需要频繁 ...

  9. [置顶] vb报表的设计

    敲机房收费系统,最难的部分应该就是关于报表的部分了.相对于学生信息管理系统,报表是新内容,在vb中添加报表需要添加第三方控件,首先我们要下载水晶报表,下面就向大家展示一下我设计报表的步骤(我用的新版本 ...

随机推荐

  1. mysql管理---表分区

    一.什么是表分区 通俗地讲表分区是将一大表,根据条件分割成若干个小表.mysql5.1开始支持数据表分区了. 如:某用户表的记录超过了600万条,那么就可以根据入库日期将表分区,也可以根据所在地将表分 ...

  2. 通过Jenkins跑Jmeter接口测试脚本,我想当有接口跑失败时Jenkins发送邮件通知,这个如何弄呢

    通过Jenkins跑Jmeter接口测试脚本,我想当有接口跑失败时Jenkins发送邮件通知,这个如何弄呢

  3. Android 状态栏通知Notification、NotificationManager详解

    http://www.cnblogs.com/onlyinweb/archive/2012/09/03/2668381.html

  4. 【转】VS2013动态库文件的创建及其使用详解

    一.VS2013动态库文件的创建 1.新建项目,win32,win32项目,输入项目名称,例如MakeDll. 2.”确定“——”下一步“,选择”DLL“选项,再点”完成“: 3.菜单栏选择”项目“— ...

  5. Memcached源码分析之thread.c

    /* * 文件开头先啰嗦几句: * * thread.c文件代表的是线程模块.但是你会看到这个模块里面有很多其它方法, 例如关于item的各种操作函数,item_alloc,item_remove,i ...

  6. PHP 安装使用 gearman

    1.安装服务器端: 官方下载,请到https://launchpad.net/gearmand. yum install boost-devel* gperf* libevent-devel* lib ...

  7. UVa 11450 - Wedding shopping

    题目大意:我们的朋友Bob要结婚了,所以要为他买一些衣服.有m的资金预算,要买c种类型的衣服(衬衫.裤子等),而每种类型的衣服有k个选择(只能做出一个选择),每个选择的衣服都有一个价格,问如何选择才能 ...

  8. [Angular Tutorial] 7-XHRs & Dependency Injection

    我们受够了在应用中用硬编码的方法嵌入三部电话!现在让我们用Angular内建的叫做$http的服务来从我们的服务器获取更大的数据集吧.我们将会使用Angular的依赖注入来为PhoneListCtrl ...

  9. Java JDBC连接SQL Server2005错误:通过端口 1433 连接到主机 localhost 的 TCP/IP 连接失败 及sql2008外围服务器

    转载:Java JDBC连接SQL Server2005错误:通过端口 1433 连接到主机 localhost 的 TCP/IP 连接失败 错误原因如下: Exception in thread & ...

  10. Android性能优化(一)之启动加速35%

    一.前言 随着项目版本的迭代,App的性能问题会逐渐暴露出来,而好的用户体验与性能表现紧密相关,从本篇文章开始,我将开启一个Android应用性能优化的专题,从理论到实战,从入门到深挖,手把手将性能优 ...