Excel VBA 怎么写入SQL server 2000 指定数据库指定表指定单元格

你大概弄错了，数据库不存在什么最后空行，你指的多半是插入 *** 作，如果是的话，执行sql语句（假定你的第三列字段名为name)

str="insert into wdgj21(name) values('" & Ar & "')"

（怎么执行不用偶说吧）当然如果你用addnew之类来替代上面这个也是可以的。

取出数据跟这个是差不多的，假定你的数据库中的name2列中包括这个ar的内容，你想取出那一行的name的值，

str="select top 1 name from wdgj21 where name2 like '%" & Ar & "%'"

用ADODBRecordset打开就可以取到结果了。

用VBA将EXCEL内容一次性导入SQL

'工具->引用->Microsoft ActiveX Date Object 20

Public Sub SaveData()

Dim Cnn As ADODBConnection

Dim SQL As String

Set Cnn = New ADODBConnection

'建立于数据库的链接

'这里根据你的实际值修改ConnectionString = "Driver=SQL Server;Server=<a href=">

我们就从向数据库添加数据的INSERT INTO开始。

前面几篇 SQL语言教程 中介绍SQL的文章后，我们已可以创建，修改与删除一个数据库，今天介绍的INSERT INTO，我们就可以向上面创建的数据库中添加数据。INSERT INTO添加数据基本有两种方法：一种是一次性输入一笔数据，另一种是一次性输入多笔数据。因为后者还要用到SQL语句中最核心，最重要，最常用，也是最难全懂的Select语句，因此在这一篇文章中，我们先介绍第一种，语法如下：

INSERT INTO 表格名 (列名1, 列名2, ) VALUES (数值1, 数值2, )

上面的语法就是向表格名中指定的表格里添加一行新的数据，在列名1，列名2……中添加对应的值，需要说明的一点是，不一定表格中的每一个列名都指定值，如果没有指定，该列的值就是设定数据库时默认的值。如果列的数值没有，而设定数据库时该列设定的是必填字段，而程序会提示出错。

按照惯例，我们还是给出一段程序来让我们更了解上面说的内容：

Sub 向销存表数据库录入数据()

'

'时间：2008-10-9

'作者：bengdeng

'功能：在程序文件同一目录下进销存表数据库中录入数据

'注意：要在工具/引用中引用microsoft activex date objects xx

' 其中xx为版本号，可能会因为你安装的office的版本不同而不同，本例引用了25版

'发布：>

能帮忙改下吗我改的还不管用

Public Sub 写入SQL2000()

Dim cnn As New ADODBConnection

Dim SQL As String, mydata As String, mytable As String

Dim i%

mydata =

SQL是一种专门的查寻语言，需要学习的；ACCESS与Microsoft SQL Server 等软件都支持此类语言；比如写：

就是查寻表1的所有数据；

如果使用ODBC连接不正确,可以尝试改用ADODB连接试试因为ODBC连接,有时候设置不匹配或者连接串配置不正确,容易让不熟练的产生错误ADODB连接串相对简单一些

下面给你一个参巧的连接串文本

声明自己再弄一下好吧:

"Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student;Data Source=PC2011052917FKB\SQLEXPRESS"

以上就是关于Excel VBA 怎么写入SQL server 2000 指定数据库指定表指定单元格全部的内容，包括:Excel VBA 怎么写入SQL server 2000 指定数据库指定表指定单元格、用VBA将EXCEL内容一次性导入SQL、我想根据xls中的列的值通过VBA代码生成insert语句（.sql）,高手指点下，谢谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！