VB和VB.net环境下链接Access、SQL数据库的方法及技巧（Access篇）

ACCESS数据库：

                                                                        VB环境下

方法一：用代码链接

                     步骤一：

                         在 工程引用Microsoft ActiveX Data Objects 2.8 Library
'2.5 2.6 2.7 2.8 随你

                        步骤二：

                       用代码和mdb文件建立连接

Private Sub OpenDataBase()
 On Error GoTo err
     Dim str As String
     Dim IniName As String
         IniName = "C:\SystemSetup.ini"
          If Dir(IniName) = "" Then
             MsgBox "请指定数据库的路径！", vbInformation
a:          With CommonDialog1
              .FileName = ""
              .CancelError = True
              .Filter = "*.mdb,*.accdb"
              .ShowOpen
             End With
              DataFilename1 = CommonDialog1.FileName
          Call INIWrite("数据库地址", "地址路径", DataFilename1, IniName)
                  Else
           DataFilename1 = INIRead("数据库地址", "地址路径", IniName) '读取配置文件内容赋值给变量aa
      End If
      If DataFilename1 <> "" Then
         If Conn.State = 1 Then Conn.Close
            Conn.CursorLocation = adUseClient
            Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataFilename1 & ";User ID=;Persist Security Info=False;Jet OLEDB:Database Password="
         End If
    Exit Sub
err:
         If err.Number = "-2147467259" Then
         GoTo a
        Else
         MsgBox err.Number & "--" & err.Description, vbInformation, "打开数据库失败！"
        End If
End Sub
  代码解释：

首先新建一个Ini文件用于存储数据库的绝对地址。然后用Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataFilename1 & ";User ID=;Persist Security Info=False;Jet OLEDB:Database Password="与数据库建立连接。Microsoft.Jet.OLEDB.4.0这是数据库驱动。

 方法二： 新建数据设计环境建立VB与数据库的链接：

                   

 在工程文件里面新建DataEnvironment，然后通过这个与数据库建立连接，具体方法参考链接https://wenku.baidu.com/view/31127585f01dc281e43af0a5.html

                                                                                  VB.net环境下：

  方法一：（用代码链接）

              Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppDisk & "\db123.mdb" & ";Persist Security Info=False"
    Dim cn As OleDbConnection = New OleDbConnection(cnStr)

          用这两句代码即可链接上数据库！

方法二：通过添加数据源

将要连接的Access数据库添加到工程文件即可。

                            

                                    接下来介绍常用的数据库操作方法，VB和VB.net两种环境下通用

       在VB环境下要对数据库进行操作，首先定义一个记录集变量 Dim rst As New ADODB.Recordset

        只要把数据库里面的表赋值给这个记录集，通过对记录集的操作来操作数据库里面的数据。

          下面介绍几种常见的操作方法：

              一：Add New 往数据库里面新增记录

               二：Edit    编辑选定的记录

               三：  RS.MoveFirst 、RS.MoveLast、RS.MoveNext、RS.MovePrevious这几句是移动记录集的指针的时候常用的几句。

                四：RS.EOF和RS.BOF：前者是指记录集的指针移到了记录集地址结尾之外，后者是指记录集指针移动到了记录集地址的开头之外。在编程的时候可以使用这两条语句来判断记录集的位置，作为循环标志。

                五：RS.Filed系列

                         1、RS.Filed(字段的名字)、RS.Filed(1)这两句的作用一样，都指定表里面的某个字段，在编程的时候建议灵活运用。

                         2、RS.Filed(字段名).Name返回字段名，RS.Filed(字段名).Value返回字段的值

               六: RS.Filter

                         这个是记录集筛选器，在程序里面做查询的时候建立使用，配合好SQL语句可以实现很多功能。

              七：RS.update

                    更改了数据库里面的内容后，要用这一句更新数据库表里面的内容，不然之前的操作无效。

             八：RS.Delete

                         这一句用于删除记录集里面的内容

                         

下面共享两段代码。功能分别是删除数据库里面的表、在数据库里面新建一张表

       Public Sub DeleteTabel(strU As String)
       
              Dim str As String

              str = "drop table [Work_report" & strU & "]"
             Conn.Execute str

             Conn.Close
              Conn.Open
  
 End Sub

Public Sub CreateSJK(str As String)
  Dim i As Double
  Dim tabelname As String
  Dim tabelname1 As String
  Dim str1 As String
 

  tabelname = "Work_report" & str

   str1 = "Select * Into " & tabelname & " From [Work_reportadmin] Where false"
    Conn.Execute str1
   End Sub

  用SQL语句操作数据库里面的内容：

   新增：Insert Into （表名） (字段一,字段二,字段三,字段四,字段五) Values('" & String1 & "','" & String2 & "','" & String3 & "','" & String4 & "','" & String5 & "')"                                

   编辑&修改 "Update Tabel2（表名） Set 字段一='" & String1 & "', " 
            & "字段二='" & String2 & "', " _
            & "字段三='" & String3 & "', " _
            & "字段四='" & String4 & "', " _
            & "字段五='" & String5 & "' " _
            & "WHERE ID = " & Val(TextBox6.Text)

删除记录 ： "Delete From Tabel1（表名） WHERE ID =" & Val(TextBox6.Text)

    Dim MyDataReader As OleDbDataReader
    Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()

在VB.NET里面可以通过定义OleDbDataReader 和OleDbCommand来执行相应的SQL操作

、 Public Function FillTextBox(ByVal Sqlstring As String)
        If cn.State = 0 Then
            cn.Open()
        End If
        MyOleDbCommand.Connection = (cn)
        MyOleDbCommand.CommandText = Sqlstring
        MyDataReader = MyOleDbCommand.ExecuteReader
        Try
            Do While MyDataReader.Read
                TextBox6.Text = (MyDataReader.Item(0))
                TextBox1.Text = (MyDataReader.Item(1))
                TextBox2.Text = (MyDataReader.Item(2))
                TextBox3.Text = (MyDataReader.Item(3))
                TextBox4.Text = (MyDataReader.Item(4))
                TextBox5.Text = (MyDataReader.Item(5))
                If TabelName = "Tabel3" Then Store = Val(TextBox5.Text)
            Loop
        Catch err As System.Exception
            MyDataReader.Close()
        End Try
        MyDataReader.Close()
    End Function

这段代码是在VB.NET环境下面用于读取数据表里面的内容。

今天先谈到这里，SQL数据库的操作技巧下一篇再更新！