excelvba处理sql记录集

㈠ 在excel中如何使用vba实现将sql的数据快速写入excel

DimconnAsNewADODB.Connection
connStr="Driver={SQLServer};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.OpenconnStr'连接数据库
DimrsAsNewRecordset
sql="select*froma"'查看表a
rs.Opensql,conn,3,3
ifNotrs.EOFthen
ForiCols=0Tors.fields.Count-1
Sheets(1).Cells(1,iCols+1).Value=rs.fields(iCols).Name
NextiCols
Sheets(1).Cells(2,1).CopyFromRecordsetrs
endif

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

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

  'sql完整例子
  Sub testSql()

  '定义连接对象
  Dim cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  
  '定义连接字符串
  Dim conStr As String
  Dim sqlstr As String
  '连接字符串-以下是连接MSSQL数据库
  conStr = "Provider=sqloledb; " _
  & "Server=192.168.1.121; " _
  & "Database=DATABASENAME;Uid=admin;Pwd=admin;"
  cnn.Open conStr
  
  sqlstr = "SELECT * from tablename"
  rs.Open sqlstr, cnn
  Range("a2").CopyFromRecordset rs
  rs.Close
  cnn.Close

End Sub

㈢ excel vba如何实现根据数据库sql查询返回的数据集绘图表呢

授你一渔：
你这样做，录宏，然后操作，数据导入，这样你得到了一段导入数据的VBA，接下来的处理，你应该能懂的。

㈣ 求助，EXCEL通过VBA操作SQL数据库

Sub 按钮1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
‘工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面两句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字符串变量
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串

'下面的语句将读取数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表

strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定义SQL查询命令字符串

cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
i = 2

Set sht = ThisWorkbook.Worksheets("Test") '把sht指向当前工作簿的Test工作表
Do While Not rs.EOF '当数据指针未移到记录集末尾时，循环下列操作
sht.Cells(i, 1) = rs("CUSTOMER_NAME") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列
rs.MoveNext '把指针移向下一条记录
i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行
Loop '循环
rs.Close '关闭记录集，至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数

cn.Close '关闭数据库链接,释放资源
End Sub

㈤ Excel 怎样用VBA将数据导入到SQL数据库

subtest()
Setcnn=CreateObject("ADODB.Connection")

Setrs=CreateObject("Adodb.Recordset")strCn="Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
cnn.OpenstrCn
SQL=""
cnn.OpenstrCn'与数据库建立连接，如果成功，返回连接对象cn
rs.OpenSQL,cn'执行strSQL所含的SQL命令，结果保存在rs记录集对象中
cnn.Close
Setcnn=Nothing

endsub

请参考

连接数据库后，通过写SQL语句实现增删改查

㈥ 在excel中用vba实现与sql数据库的数据比较

先建立一个sheet通过数据页签中自其它来源,将数据库中的资料导入。然后再建立一个sheet通过数据页签中的现有连接，然后通过sql语句就可以比较那两个sheet中的内容了。以后直接点击刷新数据就可以了

㈦ 如何在EXCEL中使用SQL进行数据处理与分析

在EXCEL中使用SQL进行数据处理与分析步骤有：

工具原料：excel2013版本

1. 打开“excel”，在“数据”选项卡中，找到“自其他来源”；

   
   

   
   

   
   

   ㈧ Excel VBA 连接SQL数据库后的操作。

   呵呵，以前就帮人家解决过这个，请看下面的代码，有注释的！
   Private Sub CommandButton5_Click()
   Dim Conn As New ADODB.Connection '定义ADODB连接对象
   Dim ConnStr As String '定义连接字符串
   Dim xiao As String
   
   xiao = ComData.Text
   
   '对于SQL 2008，如果以IP方式访问服务器，必须要启动SQL Server Browser服务，如果是Express版本，要以“IP(计算机名)\实例名”方式访问
   ConnStr = txtData.Text
   
   Dim Records As New ADODB.Recordset '定义ADODB对象的记录集
   Dim Sheet As Worksheet '定义工作表
   
   Set Sheet = ThisWorkbook.Worksheets("Sheet2") '给变量Sheet赋值，注意：是工作簿中索引为1的那个表（通常一个新的工作簿Sheet1的索引为1）
   'Sheet.Name = "Data" '把Sheet名称改为Data
   Sheet.Cells.Clear '清空表中原有的数据
   
   '连接状态是打开就不在进行Open操作
   
   Conn.Open ConnStr
   Dim SQLStr As String '要执行的SQL语句
   SQLStr = "select * from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句
   
   Records.Open SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '读取SQL查询结果到Records记录集
   'Records.Open
   Dim i, j, TotalRows, TotalColumns As Integer
   j = 0
   TotalRows = Records.RecordCount
   TotalColumns = Records.Fields.Count
   
   '下面的循环把表头（即列名）写到Excel表的第一行
   For i = 0 To TotalColumns - 1
   Sheet2.Cells(1, i + 1) = Records.Fields(i).Name
   Next
   
   '下面的循环把查询结果写到Excel表中
   Do While Not Records.EOF
   
   For i = 0 To TotalColumns - 1
   Sheet2.Cells(j + 2, i + 1) = Records.Fields(i).Value
   Next
   
   Records.MoveNext
   j = j + 1
   
   Loop
   Records.Close '关闭记录集
   Conn.Close '关闭连接
   
   Set Records = Nothing '清空对象
   Set Conn = Nothing '清空对象
   
   End Sub
   
   有什么不懂的话Hi我！

   ㈨ 在vba中怎么用sql语句吧excel工作表和数据库表连接查询

   摘要 VBA连接SQL SERVER数据库操作Excel。

   ㈩ 怎样用excelVBA将sql数据库中数据的列名读

   Sub 按钮1_Click()
   Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
   'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
   'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
   ‘工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
   '下面两句就不需要增加引用ADO
   Set cn = CreateObject("Adodb.Connection")
   Set rs = CreateObject("Adodb.Recordset")
   Dim strCn As String, strSQL As String '字符串变量
   Dim strCond As String
   strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串