「SEO大军」博主SEO大军从事8年SEO工作,有丰富的网站SEO优化实战经验,诚接网站SEO诊断、SEO顾问!
微信号:seodajun

首页 > 干货分享 / 正文

vb怎么连接数据库?

vb怎么连接数据库 2019-03-12 16:32:29 微信号:seodajun 干货分享
微信号:seodajun

  VB连接数据库方式主要有两种,一是通过ODBC接口,ODBC是windows系统里提供的接口,专门连接数据库的,可以连接多种数据库,在应用电脑的设置ODBC,也就DSN数据源(下面说到的),连接到服务器。

vb怎么连接数据库

  第二种就是ADO方式

  VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:

  1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。

  2、接下来定义ADO的连接对象,如下所示:

  Set conn = New ADODB.Connection

  Set rs = New ADODB.Recordset

  第一种方法采用的是无源的数据库连接方法

  conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

  conn.ConnectionTimeout = 30

  conn.Open

  rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

  If rs.EOF = True And rs.BOF Then

  m = MsgBox("请重新登录", vbExclamation)

  Text1.Text = ""

  Text1.SetFocus

  Else

  Form1.Hide

  End If

  rs.Close

  这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:

  Set conn = New ADODB.Connection

  Set rs = New ADODB.Recordset

  conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

  conn.ConnectionTimeout = 30

  conn.Open

  rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

  Dim i As String

  For t = 0 To Val(rs.RecordCount) - 1

  i = Trim(rs.Fields("用户名").Value)

  rs.MoveNext

  Combo1.AddItem i

  Next t

  rs.Close

  连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。

  VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:

  1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。

  2、接下来定义ADO的连接对象,如下所示:

  Set conn = New ADODB.Connection

  Set rs = New ADODB.Recordset

  第一种方法采用的是无源的数据库连接方法

  conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

  conn.ConnectionTimeout = 30

  conn.Open

  rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

  If rs.EOF = True And rs.BOF Then

  m = MsgBox("请重新登录", vbExclamation)

  Text1.Text = ""

  Text1.SetFocus

  Else

  Form1.Hide

  End If

  rs.Close

  这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:

  Set conn = New ADODB.Connection

  Set rs = New ADODB.Recordset

  conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

  conn.ConnectionTimeout = 30

  conn.Open

  rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

  Dim i As String

  For t = 0 To Val(rs.RecordCount) - 1

  i = Trim(rs.Fields("用户名").Value)

  rs.MoveNext

  Combo1.AddItem i

  Next t

  rs.Close

  连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。

大军SEO,8年来一直专注SEO技术研究,营销型网站建设,热爱SEO,希望能和大家多多交流共同学习,目前主要为企业和个人提供网站优化,关键词排名等服务,属于全职个人站长,凡是跟大军合作的每家企业/个人都是认真负责,做好网站每个细节,如有SEO/网络营销技术问题的朋友可以。

本页核心:vb,连接,数据库

Tags:

声明:
1.本站遵循行业规范,任何转载的稿件都会明确标注作者和来源,如注作有误请联系我更改;
2.本站的原创文章,请转载时务必注明文章作者和来源,不尊重原创的行为我们将追究责任;
3.欢迎您对本文《vb怎么连接数据库?》做点评,本页面网址:http://www.seodajun.com/SEOfenxiang/1384.html。

微信号:seodajun
干货分享
了解更多vb,连接,数据库,请在查看本站栏目对应内容进行参阅,如对vb怎么连接数据库?有不明之处可以与我交流,如vb怎么连接数据库?信息有误您也可以进行指导,本博客仅为SEO界的伙伴互相交流的一个SEO博客。

【大军SEO:原名蒙晓军,8年如一日因为专业所以专注!做网站优化8年,熟悉各种CMS,精通各种搜索引擎排名,深知产品推广套路。专注于营销型网站建设,整站优化外包、关键词排名、黑帽/白帽SEO技术!承接网站SEO优化服务、SEO顾问服务(QQ:88288050)】
vb怎么连接数据库?
热门标签
微信号:seodajun