当前位置:首页 > 编程学习 > VB连接SQLServer数据库操作代码

VB连接SQLServer数据库操作代码

编程学习2007-10-0339250

第一步,在ModConString模块中定义一系列变量

'定义一个属性过程反映连接字符串

Public Property Get conString() As Variant
    conString =  "data source=.;initial catalog=Sims_four;user 
End  Property


'定义一个提供者反映数据库类型

Public Property Get conProvide() As  Variant
    conProvide = "sqloledb"
End Property


第二步,建立一个类OpenRs.cls

Option Explicit
Private cnSIMS As ADODB.Connection                  '声明一个连接
Private rsSims As ADODB.Recordset                  '声明一个连接记录集
Public rs1 As ADODB.Recordset                      '声明一个连接到所需表的记录集
Public  rs2 As ADODB.Recordset
Public rst As ADODB.Recordset
Private Data As  Object
'---------------------------------------------------------
'  在类初始化时建立连接
'---------------------------------------------------------
Private  Sub Class_Initialize()
    On Error GoTo DbnotOpen
    Set cnSIMS = New  ADODB.Connection
    With cnSIMS
        .Provider = conProvide
        .ConnectionString = conString
        .ConnectionTimeout = 10
        .Open
        Set rst = New ADODB.Recordset
    End With
    Exit  Sub
DbnotOpen:
    If Err = -2147467259 Then
        Set cnSIMS =  Nothing
        MsgBox "连接后台数据库失败!" & vbCrLf & vbCrLf &  "请检查配置是否完好,数据库Sims_four是否存在?", vbOKOnly + vbInformation, "学生信息管理系统"
        End
    End If
End  Sub
'---------------------------------------------------------
'data是一个指向ADO记录集的对象的引用
'用于设置class的数据源内容
'---------------------------------------------------------
Private  Sub Class_GetDataMember(DataMember As String, Data As Object)
    Set Data =  rsSims
End Sub
'-------------------------------------------------------
'建立一个可以打开记录集的函数,需要是必须把表名传给函数
'-------------------------------------------------------
Public  Function rsDK(Table As String)
    Set rsSims = New ADODB.Recordset
    With rsSims
        .Source = Table
        .ActiveConnection = cnSIMS
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open , ,  , , adCmdTable
    End With
End  Function
'-------------------------------------------------------
'建立一个可以打开记录集(动态游标)的函数
'需要把SQL语句传递给函数
'-------------------------------------------------------
Public  Function rsDK1(sql As String)
    Set rs1 = New ADODB.Recordset
    With  rs1
        .Source = sql
        .ActiveConnection = cnSIMS
        .CursorType =  adOpenKeyset
        .LockType = adLockOptimistic
        .Open , , , ,  adCmdText
    End With
End  Function
'-------------------------------------------------------
'建立一个可以打开记录集(静态游标)的函数
'需要把SQL语句传递给函数
'-------------------------------------------------------
Public  Function rsDK2(sql As String)
    Set rs2 = New ADODB.Recordset
    With  rs2
        .Source = sql
        .ActiveConnection = cnSIMS
        .CursorType =  adOpenStatic
        .LockType = adLockOptimistic
        .Open , , , ,  adCmdText
    End With
End  Function
'-------------------------------------------------------
'类终止时,释放一切可能占据的资源
'-------------------------------------------------------
Private  Sub Class_Terminate()
    Set cnSIMS = Nothing
    Set rs1 =  Nothing
    Set rs2 = Nothing
    Set rsSims = Nothing
    Set rst =  Nothing
End Sub



第三步,在窗体中使用这个类

Option Explicit
Dim myModiStudent As OpenRs   '声明连接数据库的类
Private Sub  Form_Load()
    Set myModiStudent = New OpenRs
    myModiStudent.rsDK1 "SELECT *  FROM student_info" ’打开表,红字是表名
    If Not  myModiStudent.rs1.EOF Then
        Set StudentGrid.DataSource = myModiStudent.rs1  ’这里用到了MSHFlexGrid 控件
    End If
End Sub


OK,成功拉。



扫描二维码推送至手机访问。

版权声明:本文由海阔天空发布,如需转载请注明出处。

本文链接:https://www.apull.net/html/20071003103.html

分享给朋友:

相关文章

 C++ string类常用函数

C++ string类常用函数

string类的构造函数:string(const char *s);    //用c字符串s初始化 string(int n,char  c);     //用n个字符c初始化此外,string类还支持默认构造函数和复制构造函数,如string s1;string  s2="hello";都是正确的写法。...

HTML与ASCII码表

HTML与ASCII码表

HTML与ASCII码表Standard ASCII set, HTML Entity names, ISO 10646, ISO 8879, ISO 8859-1  Latin alphabet No. 1Browser support: All browsersASCIIHTMLHTMLDecHexSymbolNumberNameDescription32333435363738394041424344454647202122232425262728292A2B...

用vb模拟键盘

用vb模拟键盘

  键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这样的一个软件。那么我们怎样才能用VB来写一个程序,达到与按键精灵类似的功能呢?那就让我们来先了解一下windows中响应键盘事件的机制。   当用户按下键盘上的一个键时,键盘内的芯片会...

BT雷人的程序语言

BT雷人的程序语言

这个世界从来都不会缺少另类的东西,人类自然世界如此,计算机世界也一样。编程语言方面,看过本站《6个变态的C语言Hello World程序》的朋友们一定对BT和另类不会陌生,但那都是些小儿科,真正的BT和另类要是从语言级上来完成。让我们来看看其中一个比较另类的语言BrainFuck。看到这个程序语言的名字,请不要以为这是一个搞笑的语言,这是一个“严肃事情”,请大家用“最虔诚的态度”来阅读本文。BF语言介绍Brainfuck,是一种极小化的计算机语言,它是由Urban Mülle...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。