兔源码网 - 专注DZ模版分享、DZ插件分享!

 找回密码
 立即注册

QQ登录

只需一步,快速开始

广告
温馨提示:本站所有DZ相关模板、插件、教程(包括DZ应用中心已下架插件、模板)皆为提供免费下载,无任何收费模式(不包括VIP版块非DZ资源,VIP版块需充值兔币购买会员组方可下载),用户仅需手动前往【申请下载权限】申请用户组下载权限即可,如本站没有您需要的插件或模板,请自行前往淘宝互站网送吗网等第三方站点搜索相关插件或模板进行低价格购买下载本站非常不建议用户浪费金钱前往DZ应用中心购买。

VB连接SQL数据库代码和技术详解

[复制链接]
tuyuanma 发表于 2017-4-6 10:44:06 | 显示全部楼层 |阅读模式
温馨提醒:禁止内容附带广告图片、二维码图片,否则将在不通知情况下永久禁言账号!
欢迎加入兔源码站长交流群,您的加入是我们前行的动力!

DZ站长建站交流群:493651246

[ 温馨提示:点击上方群文字,可快速加入QQ群 ]


VB如何连接SQL数据库?这是一个困扰很多朋友的问题,其实VB连接SQL数据库并不困难,有两种方法可以实现,一种是通过ODBC数据源的配置进行连接,一种是通过纯代码编辑进行连接,下面我们就详细介绍一下这两种连接方法。6 ]: u, H, r: g! J) W' T/ _7 Z
+ y! n% E5 D. z! |
  ODBC数据源VB连接SQL数据库

  一、配置ODBC数据源

  1、在控制面板中,双击管理工具,然后打开ODBC数据源管理器。

  2、在“系统DSN”选项卡中,单击“添加”按钮,打开“创建新数据源”对话框,在“名称”列表框中选择“SQL Server”。选好单击完成

  3、在打开“建立新的数据源到SQL Server”对话框,在“名称”文本框输入新数据源的名称,描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。

  4、选择使用用户输入登录的ID和密码的SQL 验证。选连接SQL默认设置

  5、再下一步下一步,完成。测试数据源看连接是否成功就行了。成功后按确定。

  二、VB中设置连接
- K# S, U/ r3 h& {/ q7 c  P# L5 S, v$ f; d2 b2 z
  1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
, V# `1 q- e# e. c6 k2 y4 ?& F$ K. L, T. F
  2、对ADO部件点右键选属性,选择使用连接字符串,按生成。
- ?4 J$ h% l& d- S( K$ ^0 [" Y. r# K  D
  3、选择Mircosoft OLE DB Providar for SQL Server按下一步
* C  k7 V* f$ H4 F, G+ |
  w! v. N* @6 \) @/ ?  4、
  c$ P  Z% U% s  1)输入服务器名称
" j1 j2 k2 W1 J6 N0 K  2)使用指定的服务器信息
0 |! e- O9 g! D* s4 ]: W2 i  3)在服务器上选择数据库
  M1 p4 s7 K5 N  p/ J( m3 a9 G这时就选择你在SQL Server建好的数据库就行了' R- f' ^8 g2 s  j/ s3 {
1 q2 d) _% p3 i0 W0 A' E9 H/ P
  5、测试连接可以看到连接是否成功!

  通过代码VB连接SQL数据库+ ~: ]) X1 v* k/ k4 \! X. b

. P, a! b' w8 y8 [( q; E5 l, l* JPublic conn As New ADODB.Connection
9 B5 [1 B0 p- w+ w. X; J/ SPublic rs As New ADODB.Recordset
. H+ c. m$ X  EPublic addFlag As Boolean

Public Function OpenCn(ByVal Cip As String) As Boolean  [5 @6 C5 r$ n3 o- X8 O& N$ K
Dim mag As String
1 k7 r: f9 B' }$ p. G6 _On Error GoTo strerrmag$ p4 g6 i& X' w% h
Set conn = New ADODB.Connection
3 i% y& V: @) C# ]/ h$ M  K) Xconn.ConnectionTimeout = 25
. |$ N: o4 H" cconn.Provider = "sqloledb", `% r0 i7 J0 p' m' S! z( o+ B
conn.Properties("data source").Value = Cip '服务器的名字2 i1 X2 S4 {& f6 l! X' [
conn.Properties("initial catalog").Value = "zqoa" '库名
9 c8 \4 G3 f7 X( u0 [, g# n& b* }'conn.Properties("integrated security").Value = "SSPI" '登陆类型
6 \. b2 @2 m0 `: F: E1 E) Pconn.Properties("user id").Value = "sa"
6 v3 ?2 T0 u/ H5 ?conn.Properties("password").Value = "sa"+ ?: n, F0 T& c( f( Y8 M
conn.Open* X' I9 _: S3 E! X0 l3 E6 m8 d, o# _
OpenCn = True
: {' }" I0 L1 R3 D' HaddFlag = True
! A/ Y0 D) q2 R, zExit Function
& l! {& @& Z; y; E2 w( mstrerrmag:' w1 y# D9 d- l, `8 {0 O6 q2 c: [
mag = "Data can't connect"
0 C0 `) z* A3 V* F- {6 G$ g9 oCall MsgBox(mag, vbOKOnly, "Errorata connect")2 Z* y# I6 \' _" C# H0 u" _* g
addFlag = False6 E7 J+ ?2 R4 N! P  Z4 ~
Exit Function
# q6 A9 [: r( d1 kEnd Function

3 h0 n9 ^$ W7 X' T0 G  L3 V' b
Public Sub cloCn()" q- w; R8 P0 }8 a: y0 k+ k# w9 X
On Error Resume Next/ K; I: R' V- F
If conn.State <> adStateClosed Then conn.Close% r. O# ~+ k1 Q
Set conn = Nothing
; j- A( E6 V1 `9 T/ m4 d/ ], X9 GEnd Sub

Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集
& q- i7 ^+ q' u3 c) xDim mag As String1 d" ^" n$ V# P* f
Dim rpy As Boolean
+ M9 W% ~$ J' _8 }9 |On Error GoTo strerrmag
$ w% {" g$ p6 v7 GSet rs = New ADODB.Recordset5 K* n( u' X' p8 B0 e. W, N
If addFlag = False Then rpy = True  C. S& G; l/ F+ A$ M
With rs* F9 ^4 z8 ], Q( G4 N
.ActiveConnection = conn
; Z5 `+ s* a. Z2 f.CursorLocation = adUseClient& o: Q3 l3 @8 w. V- y3 w
.CursorType = adOpenKeyset
6 \- M9 Z$ b+ _8 [.LockType = adLockOptimistic$ l) v* j) S$ l
.Open strsql: T8 H6 ?4 x, q# Z4 V- d3 V
End With
( n; x' g$ Z( [  J2 JaddFlag = True% D: r% Y$ `- J# Y; |
openRs = True% Y" p- `. F* l
End
6 j# x4 W; \1 `8 `4 j" w# m! b& ['Exit Function
' h; c+ s% I, |( u% t, zstrerrmag:  E( b+ ?$ F7 z+ A" ~) H% f
mag = "data not connect"
" B5 b/ u/ r/ {Call MsgBox(mag, vbOKOnly, "error:connect")
# {# d( q9 h1 ]" T, Z4 UopenRs = False
. M$ [, b5 r# Q- f* p9 O5 WEnd* b' f' D5 l7 U4 _& j
'Exit Function
& b5 Z; w3 D  ]" JEnd Function; {. k! G& h( \
Public Sub cloRs()
% b  S6 Y1 U8 c( y% s! ZOn Error Resume Next
+ p6 A* U$ N5 z0 D3 s* MIf rs.State <> adStateClosed Then rs.Clone
: S. b# K: P. j' D$ LSet rs = Nothing, l& R' {& \7 U8 z" s( q
End Sub

  以上就是VB连接SQL数据库的具体方法,可以根据个人喜好和具体情况来选择连接方法。


6 e; p: n4 L* m! W# ?2 H

版权声明
1、转摘或引用本站内容资源须注明原网址,并标明本站网址(兔源码www.tuyuanma.com);
2、对于转摘或引用本站内容资源而引起的民事纠纷、行政处罚或其他损失,本站不承担责任;
3、对于不遵守本声明或其他违法、恶意使用本站内容者,本站保留其追究法律责任的权利。




自动排版 | 高级模式
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

广告

兔源码网 ( 赣ICP备17001544号 公网安备36112102000036号 )

兔源码 QQ交流群:493651246  GMT+8, 2019-7-19 11:28
←站长统计工具 查看密码:tuyuanma

兔源码DZ模板下载 站长邮箱:tuyuanma@qq.com 站长QQ:3197813386 网站地图

© 2001-2013 本站内容皆来自互联网及用户分享,如需删除请提供软著或商标证书。

     
快速回复 返回顶部 返回列表