谁能给我一个EXCEL VBA往SQL数据库读取和写入记录的例子

读取和写入 *** 作方式一样，唯一不同的是sql语句，读取用select，读取用insert，以读取为例子，录入如下代码：

'sql完整例子

Sub testSql()

'定义连接对象

    Dim cnn As New ADODBConnection

    Dim rs As New ADODBRecordset

    '定义连接字符串

    Dim conStr As String

    Dim sqlstr As String

    '连接字符串-以下是连接MSSQL数据库

    conStr = "Provider=sqloledb; " _

    & "Server=1921681121; " _

    & "Database=DATABASENAME;Uid=admin;Pwd=admin;"

    cnnOpen conStr

    sqlstr = "SELECT from tablename"

    rsOpen sqlstr, cnn

    Range("a2")CopyFromRecordset rs

    rsClose

    cnnClose

End Sub

在各种数据库中实现有所不同，以SQL SERVER 为例，

可使用 DDL 触发器，把以CREATE、ALTER 和 DROP 开头的 Transact-SQL记录下来。

如果要针对DML进行记录，则使用DML触发器。

在mysql中要向数据库中保存数据我们最常用的一种方法就是直接使用Insert into语句来实现了，下面我来给大家详细介绍Insert into语句用法

INSERT用于向一个已有的表中插入新行。INSERT…VALUES语句根据明确指定的值插入行。让我们先来看一下insert语句标准的定义，放在[]内的都是可以省略的：

语法

INSERT [LOW_PRIORITY | DELAYED | HIGH_PRIORITY] [IGNORE]

[INTO] tbl_name [(col_name,)]

VALUES ({expr | DEFAULT},),(),

[ ON DUPLICATE KEY UPDATE col_name=expr, ]

实例

create table links (name varchar(255) not null default '', address varchar(255) not null default '');

最简单的插入方法

代码如下

复制代码

Mysql>insert into worker values(‘tom’,’tom@yahoocom’),(‘paul’,’paul@yahoocom’);

或

insert into links values('jerichen','gdsz');

批量保存数据

假如我们想一次性的往数据库里插入多条数据咋办？一定要写多条语句吗？肯定是不会的，因为MySQL设计的还是很人性的。其提供insert语句的

一种非标准格式，即，values(字段值1,字段值2,字段值3),(另一个字段1的值,另一个字段2的值,另一个字段3的值);

# 同时插入两条数据，看语法说明，那个into被我省略了

代码如下

复制代码

insert links (name,url) values('jerichen','gdsz'),('alone','gdgz');

使用INSERT…SELECT语句插入从其他表选择的行

当我们在上一节学习创建表时，知道可以使用select从其它表来直接创建表，甚至可以同时复制数据记录。如果你已经拥有了一个表，你同样可以从select语句的配合中获益。

从其它表中录入数据，例如：

代码如下

复制代码

mysql>insert into tbl_name1(col1,col2) select col3,col4 from tbl_name2;

你也可以略去目的表的列列表，如果你每一列都有数据录入。

代码如下

复制代码

mysql>insert into tbl_name1 select col3,col4 from tbl_name2;

INSERT INTO SELECT语句满足下列条件：

查询不能包含一个ORDER BY子句。

以上就是关于谁能给我一个EXCEL VBA往SQL数据库读取和写入记录的例子全部的内容，包括:谁能给我一个EXCEL VBA往SQL数据库读取和写入记录的例子、如何将某个用户对数据库的 *** 作记录进数据库、如何使用mysql语句向表中插入数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！