VB6-操作数据库

平常搞数据库操作多了就想把经常用的内容放在一起,我也懒,在一本书里的工程例子挑了一个bas,修修改改,凑合这用吧。

 1 Public strCnn As String  ‘数据库连接字符串
 2 Public AdoCnn As ADODB.Connection ‘数据库连接
 3 Public IsConnect As Boolean  ‘判断是否连接
 4
 5
 6 Private Sub Connect() ‘连接数据库
 7     On Error GoTo Err:
 8     If IsConnect = True Then  ‘如果连接标记为真,则返回。否则会出错
 9         Exit Sub
10     End If
11
12     Set AdoCnn = New ADODB.Connection ‘关键New用于创建新对象cnn
13     With AdoCnn
14         .ConnectionString = strCnn
15         .ConnectionTimeout = 10
16         .Open
17     End With
18     IsConnect = True  ‘设置连接标记,表示已经连接到数据库
19     Exit Sub
20 Err:
21     If Err = -2147467259 Then
22         Set Cnn = Nothing
23         MsgBox Err.Description & "请检查数据库配置!", vbOKOnly + vbInformation, "Connect"
24     Else
25         MsgBox Err.Description & "请检查数据库配置!", vbExclamation, "Connect"
26     End If
27
28 End Sub
29
30 Public Sub Disconnect() ‘断开与数据库的连接
31     Dim rc As Long
32     If IsConnect = False Then Exit Sub ‘如果连接标记为假,标明已经断开连接,则直接返回
33     AdoCnn.Close  ‘关闭连接
34
35     Set AdoCnn = Nothing
36     IsConnect = False
37 End Sub
38
39 Public Sub DB_Connect() ‘使用Connect_Num控制数据库连接
40     Connect_Num = Connect_Num + 1
41     Connect
42 End Sub
43
44 Public Sub DB_Disconnect()
45     If Connect_Num >= CONNECT_LOOP_MAX Then
46         Connect_Num = 0
47         Disconnect
48     End If
49 End Sub
50
51 Public Sub DBapi_Disconnect() ‘强制关闭api方式访问的数据库,计数器复位
52     Connect_Num = 0
53     Disconnect
54 End Sub
55
56 Public Sub ExecSql(ByVal TmpSql As String)   ‘执行数据库操作语句
57     On Error GoTo Err:
58     Dim cmd As New ADODB.Command  ‘创建Command对象cmd
59     DB_Connect    ‘连接到数据库
60     Set cmd.ActiveConnection = AdoCnn  ‘设置cmd的ActiveConnection属性,指定与其关联的数据库连接
61     cmd.CommandText = TmpSql  ‘设置要执行的命令文本
62     cmd.Execute
63     Set cmd = Nothing
64     DB_Disconnect
65     Exit Sub
66 Err:
67     MsgBox Err.Description, 64, "ExecSql"
68 End Sub
69
70 Public Function QuerySql(ByVal TmpSql As String) As ADODB.Recordset ‘执行数据库查询语句
71     On Error GoTo Err:
72     Dim rst As New ADODB.Recordset
73     DB_Connect    ‘连接到数据库
74     If IsConnect = False Then Exit Function
75     Set rst.ActiveConnection = AdoCnn    ‘设置rst的ActiveConnection属性,指定与其关联的数据库连接
76     rst.CursorType = adOpenKeyset
77     rst.LockType = adLockOptimistic   ‘设置锁定类型
78     rst.Open TmpSql    ‘打开记录集
79     Set QuerySql = rst    ‘返回记录集
80     Exit Function
81 Err:
82     MsgBox Err.Description, 64, "QuerySql"
83 End Function
84
85 Public Function GetFieldValue(FieldValue As Variant) As String
86     GetFieldValue = IIf(Not IsNull(FieldValue), FieldValue, "")
87 End Function

VB6-操作数据库

时间: 2024-10-05 19:04:58

VB6-操作数据库的相关文章

Python操作数据库(mysql redis)

一.python操作mysql数据库: 数据库信息:(例如211.149.218.16   szz  123456) 操作mysql用pymysql模块 #操作其他数据库,就安装相应的模块 import  pymysql ip='211.149.218.16' port=3306 passwd='123456' user='root' db='szz' conn=pymysql.connect(host=ip,user=user,port=port,passwd=passwd,db=db,cha

adb命令详解(二)——手机缺失sqlite3时操作数据库的多种解决方案

在android应用开发无处不在SQLite数据库的身影.那么在开发中怎么使用adb命令操作数据库的功能呢? 下面我们将完整的介绍与数据库操作相关的命令集及当手机缺少sqlite3的时候的多种解决方案. 1.当手机缺失sqlite3时,如何操作数据库 先来看看手机缺失sqlite3时候的效果图: 这个时候你想操作刚刚编写应用程序中执行的数据库文件内容,显然是执行不了sql语句的.下面我们将介绍三种方法让你可以查看应用程序下的数据库文件: ㈠向手机导入sqlite3文件 ①第一步,下载sqlite

C#编写程序操作数据库如何防止SQL注入漏洞的发生

我们在使用C# 编程的时候,经常会遇到操作数据库的地方,如果我们不注意,可能编写的代码就是下面这样 在前台定义了一个文本框,name值为btnName;  定义了一个查询按钮,name值为btnSearch,Click事件为 btnSearch_Click, private void btnSearch_Click(object sender, RoutedEventArgs e)         {             using (SqlConnection conn = new Sql

Asp.net连接数据库及操作数据库--入门

1.创建公共类DB--4个方法.GetCon()//连接数据库,sqlEx//执行数据库操作, reDt//返回数据表, reDr//返回SqlDataReader对象 dr ///<summary>连接数据库</summary>返回SqlConnection对象 public SqlConnection GetCon()//连接数据库,ConfigurationManager对象的AppSettings属性值获取配置节中连接数据库的字符串实例化SqlConnection对象,并返

python 全栈 数据库 (三) python操作数据库

python 操作MYSQL数据库主要有两种方式: 使用原生模块:pymysql ORM框架:SQLAchemy 一.pymysql 1.1下载安装模块 第一种:cmd下:执行命令下载安装:pip3 install pymysql 第二种:IDE下pycharm python环境路径下添加模块 1.2使用操作 #导入模块 import pymysql #建立连接通道,建立连接填入(连接数据库的IP地址,端口号,用户名,密码,要操作的数据库,字符编码) conn = pymysql.connect

MySQL---连接器(python如何操作数据库媒介,基于python语言)

MySQL — 连接器 连接器的概念 它们往往是一类Python包,或者是一类已经写好的Python库.这些库提供了我们Python去连接数据库服务器的基本功能. ? 既然它是一个包,那么我们首先学会导入这个包 #! /usr/bin/env python3 # coding: utf-8 ? from mysql import connector print('导入成功') 执行以上代码 $ python3 test_connector.py 导入成功 表示我们成功导入了相关的包或者模块 连接

使用内置函数操作数据库

0.视频:http://www.imooc.com/video/3383 1.笔记: ContentValues: 1)用于存储一组可以被ContentResolve处理的值: 2)代码示例: ContentValues values=new ContentValues();//类似hashMap key value values.put("name", "张三"); 3)执行对应的Sql操作: db.update("stutb", values

初学时简单的操作数据库方法

一:cmd操作数据库--开启数据库net start mysql --关闭数据库net stop mysql --1:连接数据库mysql -uroot -p --2:查询数据库show databases; --3:设置字符编码set names gbk; --4:增加数据库create database if not exists 库名; --5:查看数据库的创建语句(是如何创建的)show create database 库名: --6:删除数据库drop database if exis

封装JDBC操作数据库的方法

自己动手封装java操作数据库的方法: 一:目录结构 二:所需依赖的第三方jar包 这里只需引入mysql-connector-java-5.1.8-bin.jar,mysql数据库驱动jar包 三:代码 1:和数据库进行交互,首先是数据源,获取连接,代码如下: 1 /** 2 * 3 */ 4 package com.hlcui.datasource; 5 6 import java.sql.Connection; 7 import java.sql.DriverManager; 8 impo

操作数据库和表

mysql –u用户名 –p密码 1.操作数据库 创建数据库 CREATE DATABASE [IF NOT EXISTS] db_name [create_specification [, create_specification] ...] create_specification: [DEFAULT] CHARACTER SET charset_name | [DEFAULT] COLLATE collation_name create database mydb1;//创建数据库 cre