数据库的建立与链接问题

傷城~ 2022-08-10 17:52 205阅读 0赞

做完学生管理系统，经过师傅的验收，发现对最初的概念了解相当不深刻！又反过头对5实例简单看了一下，老师常说，学习最重要的是反复，通过这次观看，重新对基本概念有所了解。

首先看几个专业名词：ADO---activex data object动态数据对象通过OLE DB(object linking and embed中文：对象连接与嵌入，是底端程序接口）实现对不同数据的访问。

当时师傅问我关于ADO的对象时，一下子懵了，原来我们在建立数据库定义的connection，recordset等都是ado 的对象，它共有7个对象，在这次的学生信息管理系统中最常见的就是上面那俩，3个独立对象：recordset，connection，command！还有4个附属对象：field，parameter，property，error

OLE DB由3个部分组成：数据提供者，数据消费者，服务组件。数据提供者是类似于SQL Serser，ODBC提供数据的程序，VB创建的程序就是一种典型的数据消费者，它是利用数据提供者提供的数据创建的数据应用程序。服务组件负责连接数据提供者与数据消费者。

五实例当中应用了vb外界程序的可视化管理器建立的micrsoft access数据库（其文件后缀名为.mdb），而学生信息管理系统的数据库是利用SQL Sever创建的（后缀名为.sql），数据库类的应用程序第一步是建立数据库！第二步，建立ADO引用，在vb程序里直接点击工程下的引用选择microsoft activex data objects 2.6 library即可！第三步，用代码建立连接。下面让我们看一下数据库的不同连接方式对比：

1.直接连接access数据库

dim Objcn as new connection,objRs as new recordset

objcn.connectionstring="Prvider=Microsoft.jet.OLEDB.3.5.1;" & \_

"data sourse=数据远文件路径"         '连接数据提供者与数据源

objcn.open

strSQL=“select ……from …… where……”

set objrs.activeconnection=objcn   '将数据库记录集与数据源相匹配

objrs.open(strSQL)      '记录集打开

.                       ‘进行数据库的增删改查操作

objcn.close         ‘关闭数据库

set objrs=Nothing

set objcn=Nothing

2. 利用ODBC连接access数据库，ODBC有3种数据源连接方式，分别为用户DNS，系统DNS，文件DNS，学生信息管理系统利用的正是文件DNS的添加。

set objcn=new connection

objcn.open="dsn=数据库文件名"

set objrs=new recordset

objcn.close

set objrs=nothing

set objcn=nothing

3.利用ado data控件创建数据库连接，这种方法相对简单，只要从控件属性里面进行连接即可。

看完了5实例的连接方法，解析一下对学生管理系统连接于登陆时的代码：

1.在登陆窗体中，为走向专业化，往往数据库的登录名设置为系统用户名，所以在登陆窗体的用户名部分自动获得系统用户，在开头部分调用API函数：

Private Declare Function GetUsername Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

窗体加载部分获得系统用户名：

Private Sub Form\_Load()  
    Dim sbuffer As String  
    Dim lsize As Long  
      
    sbuffer = Space$(255)  '因无法确定系统用户名的长度，先开辟一个255（最大值）空格字符控件  
    lsize = Len(sbuffer)   'lsize盛放sbuffer字符串的真是长度  
    Call GetUsername(sbuffer, lsize)   
    'api中字符串作函数，需要提前确定大小  
      
    If lsize > 0 Then  
        txtusername.Text = Left$(sbuffer, lsize)  
    Else  
        txtusername.Text = vbNullString  
        '没有字符串  
    End If  
      
    ok = False  
    micount = 0  ’用于登陆次数的标记  
 End Sub

2.在确认按钮中建立连接：

Private Sub cmdOK\_Click()  
    Dim txtSQL As String  
    Dim mrc As ADODB.Recordset '用于保存数据源记录集  
    Dim MsgText As String  
  
  
      
    UserName = ""     '先将登录名滞空  
    If Trim(txtusername.Text = "") Then     '确认用户名输入框不为空  
        MsgBox "没有这个用户，请重新输入用户", vbOKOnly + vbExclamation, "警告"  
        txtusername.SetFocus  
    Else  
        txtSQL = "select \* from user\_info where user\_id ='" & txtusername.Text & "'"  
        Set mrc = ExecuteSQL(txtSQL, MsgText)    ' 调用模块当中的executesql函数建立数据库连接  
        If mrc.EOF Then  
            MsgBox "没有这个用户，请重新输入用户", vbOKOnly + vbExclamation, "警告"  
            txtusername.SetFocus  
        Else                                    '确认密码  
            If Trim(mrc.Fields(1)) = Trim(txtpassword.Text) Then  
                ok = True  
                mrc.Close  
                Me.Hide  
                UserName = Trim(txtusername.Text)  
                frmmain.Show  
            Else  
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"  
                txtpassword.SetFocus  
                txtpassword.Text = ""  
            End If  
        End If  
    End If  
      
    micount = micount + 1          '值允许3次输入  
    If micount = 3 Then  
        Me.Hide  
    End If  
    Exit Sub  
      
End Sub

3.理解一下执行函数excutesql函数的连接方式。

Public Function ConnectString() As String  
    ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123" '文件源，登录名，验证密码  
End Function  
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset  
  
  
   Dim cnn As ADODB.Connection  
   Dim rst As ADODB.Recordset  
   Dim sTokens() As String  
     
   'On Error GoTo ExecuteSQL\_Error  
     
   sTokens = Split(SQL) '该函数定义将sql语句中的词以空格为分解符分解开放进一个数组里  
   Set cnn = New ADODB.Connection '实体化，连接数据源  
   cnn.Open ConnectString     '打开数据源  
     
   If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then       '比较确定sql数据开始单词是否为增，删，改  
      cnn.Execute SQL   '执行SQL语句  
      MsgString = sTokens(0) & " query successful"  
      '虽然MsgString不是返回值，但传递方式是ByRef，实参地址和这个地址相同  
   Else  
      Set rst = New ADODB.Recordset    '实例化记录集  
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic   '打开要执行的内容sql，连接数据源，游标类型：键集游标,窗口值固定大小  
      '得到临时表，游标指向第一条记录  
      'get RecordCount，  
      Set ExecuteSQL = rst  
      MsgString = "查询到" & rst.RecordCount & \_  
         " 条记录 "  
   End If  
     
ExecuteSQL\_Exit:  ‘关闭连接  
   Set rst = Nothing  
   Set cnn = Nothing  
   Exit Function  
     
ExecuteSQL\_Error:  
   MsgString = "查询错误: " & \_  
      Err.Description  
   Resume ExecuteSQL\_Exit  
End Function

总结来说，建立连接分三步走战略：打开--执行（增删改查）--关闭