如何用宏做数据库查询

『壹』 如何利用EXCEL宏做一个小型的数据库查询系统

这个很简单，代码如下：

Sub C5C15_B3B13()
Dim Fo As Object, myName As String
Set Fo = Application.FileDialog(msoFileDialogFilePicker)
Fo.Title = "请选择您要复制C5：C15数据的文件："
If Fo.Show = True Then myName = Fo.SelectedItems(1)
If myName = "" Then
MsgBox "您取消了文件选择，所以本次处理未完成，将直接退出", vbOKOnly + vbInformation
Exit Sub
End If

Dim wb as Workbook
For Each wb in Workbooks
if wb.Fullname = myName then Goto wbHasOpened
Next
set wb = workbooks.open(myname)
wbHasOpened:

Dim sh as worksheet
For each sh in wb.sheets
if sh.name = "Voice Quality" Then
[b3:B13] = sh.[c5:c15].value
Exit For
end if
Next
Msgbox "处理完成！"
wb.close True
End Sub

『贰』 Excel宏操作SQL数据库

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim strSQL As String

Dim CountryCode As String
Dim CountryName As String
Dim DeleteFlg As String
Dim CreateBy As String
Dim UpdateBy As String

'strCn = "Provider=sqloledb;Server=xxxx;Database=xxxx;Uid=sa;Pwd=sa;"
strCn = strConn
'MsgBox strCn
'open connect
cn.Open strCn

'**********************************************
strSQL = "DELETE FROM xxxx"
cn.Execute strSQL

cn.Close

'get the max row number
Dim RowCount As Integer
RowCount = Sheet3.UsedRange.Rows.Count

'get the time
Dim nowtime As Date
nowtime = Now()
'MsgBox nowtime
Dim index As Integer
For index = 0 To RowCount
'get data from excel
111= Cells(index, 1).Value
2222= Cells(index, 2).Value
DeleteFlg = "0"
3333= Cells(index, 3).Value
4444= Cells(index, 4).Value

『叁』 我想用Excel宏编写代码来对SQL数据库进行连接和操作，请教详细的步骤或方法，重分！！！！一定加分

参考网上资料：
http://www.access-cn.com/offspace/html/32/n-532.html
一、加载ODBC宏（OFFICE2000光盘有提供）后您就可以使用该函数了。语法及示例详参《OFFICE2000帮助文档》，全篇如下：Office中国社区门户4q_
Sz y0[ Z!g

连接到外部数据源并运行工作表中的查询。然后，函数 SQL.REQUEST 以数组形式返回结果，而不必运行宏。如果该函数不存在，就必须安装 Microsoft Excel 的 QDBC 加载宏（XLODBC.XLA）。Office中国社区门户(m1n:jj(alT3^

语法Office中国社区门户}
}o%p&I"ev"b

SQL.REQUEST(connection_string,output_ref,driver_prompt,query_text,col_names_logical)

.I3ow{0F
Kh,]*S'A5V:Eq0
Connection_string 提供信息，如数据源名称、用户标识和口令等。这些信息对于连接数据源的驱动程序是必需的，同时它们必须满足驱动程序的格式要求。下表给出用于 3 个不同驱动程序的 3 个连接串的示例。

#RT"~6e7h&? M!`'J0
o
T f'j%o)M0 驱动器 连接串
dBASE DSN=NWind;PWD=test
SQL Server DSN=MyServer;UID=dbayer; PWD=123;Database=Pubs
ORACLE DNS=My Oracle Data Source;DBQ=MYSER VER;UID=JohnS;PWD=Sesame
Office中国社区门户r;}??X7||

7V2\O e&{S I;mIT8N0

在试图连接到数据源之前，必须定义在 connection_string 中使用的数据源名称（DSN）。Office中国社区门户p.D9{8]k }

Z0k0X/@ Q6|#rAP~0 可以以数组或字符串的形式输入 connection_string。但如果 connection_string 超过 250 个字符，必须按数组的形式输入。
4_0M+Hb&At3^0Office中国社区门户b-Q0iI9p)Y
如果函数 SQL.REQUEST 不能使用 connection_string 访问数据源，则返回错误值 #N/A。 Output_ref 对用于存放完整的连接字符串的单元格的引用。如果在工作表中输入函数 SQL.REQUEST，可以忽略 output_ref。

当需要函数 SQL.REQUEST 返回完整的连接串时,可以使用 output_ref（此种情况下，必须在宏表中输入函数 SQL.REQUEST）。Office中国社区门户#^;a#C/b9r~&d
Office中国社区门户K$M'FCJXb
如果省略 output_ref，函数 SQL.REQUEST 不能返回完整的连接串。 Driver_prompt 指定驱动程序对话框的显示时机以及可用的选项。可以使用下表中所描述的数字来描述 driver_prompt。如果省略 driver_prompt，函数 SQL.REQUEST 默认为 2 。

2cX!c0~e5Rl&RT6U0 Office中国社区门户X9d7G _n
Driver_prompt 说明
1 一直显示驱动程序对话框。
2 只有在连接串和数据源说明提供的信息不够充分，以致不能完成连接时，才显示驱动程序对话框。所有对话框选项都可使用。
3 只有在连接串和数据源说明提供的信息不够充分，以致不能完成连接时，才显示驱动程序对话框。如果未指明对话框选项是必需的，这些选项是暗的，不能使用。
4 不显示对话框。如果连接不成功，则返回错误值。

{ |1@Pi)L0Office中国社区门户8_E8q4L9x]6X4J"_/C

Query_text 需要在数据源中执行的 SQL 语句。

如果函数 SQL.REQUEST 不能在指定的数据源中执行 query_text，则返回错误值 #N/A 。Office中国社区门户*`%S Hr+C7e6A1h3f
Office中国社区门户Eg.\*_H)yB
可以将引用连接到 query_text 上来更新查询。在下面的例子中，每次 $A$3 改变，函数 SQL.REQUEST 使用新的数值来更新查询。
"SELECT Name FROM Customers WHERE Balance > "&$A$3&"".

Microsoft Excel 将串长度限制在 255 个字符内。如果 query_text 超过此长度，请在垂直单元格区域中输入查询并使用整个区域作为 query_text。所有单元格的值连接在一起，形成完整的 SQL 语句。 Office中国社区门户 S,m/u(k]
Column_names_logical 指明是否将列名作为结果的第一行返回。如果要将列名作为结果的第一行返回，请将该参数设置为 TRUE。如果不需要将列名返回，则用 FALSE。如果省略 column_names_logical，则函数 SQL.REQUEST 不返回列名。

/q#H@B#Y:ji_0
返回值

如果此函数完成了它的所有功能，则返回查询结果数组或受查询影响的行数。Office中国社区门户WRBy h&O@Pll
Office中国社区门户)z*WnpE1J'E$?.@
如果函数 SQL.REQUEST 不能使用 connection_string 访问数据源，则返回错误值 #N/A。

3u'sr+~9~/yFTfmS0说明

函数 SQL.REQUEST 可以以数组的形式输入。如果以数组形式输入函数 SQL.REQUEST，该函数将返回一个恰好填充选定区域的数组。Office中国社区门户 cq8Xq ]NS
Office中国社区门户(^T%b7@ ]y
如果单元格区域大于结果集，函数 SQL.REQUEST 向返回的数组添加空单元格，直至增加到所需要的大小。
;Y"X;FA,kW0
+Lu"l5@?0 如果结果集大于以数组形式选定的输入区域，函数 SQL.REQUEST 返回整个数组。Office中国社区门户]/y){ Q sIX
Office中国社区门户1c#ZY8`7n$YRp&x
函数 SQL.REQUEST 参数的次序与 Visual Basic for Application 中函数 SQLRequest 的参数次序不同。
Office中国社区门户"C!pK p9O6BnlPj
示例

6c!s3F^-TzT_0
假设需要对名为 DBASE4 的 DBASE 数据库进行查询。如果在单元格中输入下列公式，将会返回查询结果数组，其中第一行是列名：Office中国社区门户B9]4[RqK_w
c

SQL.REQUEST("DSN=NWind;DBQ=c:\msquery;FIL=dBASE4", c15, 2,
"Select Custmr_ID, Due_Date from Orders WHERE order_Amt>100", TRUE)二、用“数据”菜单上的“获取外部数据”-“新建数据库查询”向导获取数据库数据。用该向导取得数据后，以后该工作表的数据以后会随数据动态更新（在不移动数据源文件的前提下）。注意：请仔细设置外部数据表的属性，会有更多收获。
以上答案供参考

『肆』 如何在excel中编写宏读取数据库

• Subtest()

• SetoExcel=GetObject(,"Excel.Application")

• SetoWb=oExcel.Workbooks.Open("D: est.xls")'写你自己的Excel路径

• MsgBoxoWb.Sheets("Sheet1").Range("C5")'取"Sheet1"工作表C5单元格的值

• oExcel.Quit'退出Excel

• EndSub

按Alt+F11打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。

这里采用的是后置绑定方法，无需事先加载Excel对象引用库。

如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：

oExcel.Visible = False