zoukankan      html  css  js  c++  java
  • vb 6.0数据库操作代码例子

    '***********************************************************
    '
    删除函数
    '
    ************************************************************
    Private Sub Delete_Click()
    '声明数据库连接对象
    Dim conn As New ADODB.Connection

    conn.ConnectionString 
    = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
    '打开数据库连接
    conn.Open
    '执行删除sql语句
    conn.Execute "Delete from Users where UserName='insert' or UserName='update'"
    '关闭数据库并释放数据库对象
    conn.Close
    Set conn = Nothing
    End Sub
     
    '***********************************************************
    '
    添加函数
    '
    ************************************************************
    Private Sub InsertButton_Click()
    '声明数据库连接对象
    Dim conn As New ADODB.Connection

    conn.ConnectionString 
    = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
    '打开数据库连接
    conn.Open
    '执行添加sql语句
    conn.Execute "Insert into Users (UserName,UserPassword) values ('insert','test')"
    '关闭数据库并释放数据库对象
    conn.Close
    Set conn = Nothing

    End Sub
    '***********************************************************
    '
    读取函数
    '
    ************************************************************
    Private Sub SelectButton_Click()
    '声明数据库连接对象和记录集对象
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    '指定连接字符串
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
    '打开数据库连接
    conn.Open

    '执行查询sql语句
    rs.Open "Select * from Users", conn

    '读取记录集内容
    While Not rs.EOF
    '显示记录
    Print rs("UserId"), rs("UserName"), rs("UserPassword")
    rs.MoveNext
    Wend

    '关闭记录集并释放记录集对象
    rs.Close
    Set rs = Nothing
    '关闭数据库并释放数据库对象
    conn.Close
    Set conn = Nothing

    End Sub
     
    '***********************************************************
    '
    更新函数
    '
    ************************************************************
    Private Sub Update_Click()
    '声明数据库连接对象
    Dim conn As New ADODB.Connection

    conn.ConnectionString 
    = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
    '打开数据库连接
    conn.Open
    '执行更新sql语句
    conn.Execute "Update Users set UserName='update' where UserName='insert'"
    '关闭数据库并释放数据库对象
    conn.Close
    Set conn = Nothing

    End Sub
  • 相关阅读:
    判断&数学&生活
    Tomcat7源码环境搭建
    CentOS 7 下使用虚拟环境Virtualenv安装Tensorflow cpu版记录
    Quartz学习笔记1:Quartz概述
    Docker学习笔记2: Docker 概述
    大数据基础知识问答----spark篇,大数据生态圈
    [MSSQL] [EntityFramework(.Net Core)] 自增长id字段,无法插入数据
    [json-server] RESTful API 中,取主数据时,同时获取多个关联子表的数据
    前后端分离开发之前端自己的API(DB)---- (2)
    前后端分离开发之前端自己的API(DB)---- (1)
  • 原文地址:https://www.cnblogs.com/xhan/p/1173831.html
Copyright © 2011-2022 走看看