求助一个能在EXCEL按钮直接在MSSQL进行查询，已经能连接，但如何读入文件来查询呢？

andanok

Sub 按钮1_Click()
Dim cnn As New ADODB.Connection
On Error Resume Next
cnn.Open "Provider=SQLOLEDB;Data Source=(local); User ID=sa;Password =123;"
If Not cnn.State = adStateOpen Then
    MsgBox "数据库连接失败，请检查！"
End If
SQL = 查询语句在：D:\查询.sql
cnn.Execute (SQL)
Set cnn = Nothing
    MsgBox "数据库连接正常，执行完毕！", 64, "提示"
End Sub

这代码如何改成能用外部的文件做查询呢

如果不能实现，是不是可以用A1:A50的内容查询，语句是排在单元格里，已经是完整的，就是如何用这区域的内容查询

z315559822

[code=sql]
'需要引用ado2.5以上
Sub 往sql里添加新编码()  '定义过程名称
    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  '定义记录集对象，保存数据表
    Dim strCn As String, strSQL As String    '字符串变量
'If Environ("userNAME") & " / " & Environ("COMPUTERNAME") = "zxc / A1981" Then
    If Application.UserName = "Administrator/MPC01" Then
        strCn = "Provider=sqloledb;Server=XYINGSC01;Database=ld;Uid=1981;Pwd=852;"    '定义数据库链接字符串
    Else
        msgbox "只有管理员才可以操作"
        Exit Sub
    End If
    strSQL = "select * from cpbm"    '定义SQL查询命令字符串
    cn.ConnectionTimeout = 30
    cn.CursorLocation = adUseClient
    cn.Open strCn   '与数据库建立连接，如果成功，返回连接对象cn
    rs.Open strSQL, cn, adOpenStatic, adLockBatchOptimistic, adCmdText    '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
    Set sht = ActiveWorkbook.Worksheets("添加编码")
    With rs
        For i = 2 To sht.[a65536].End(xlUp).Row    '循环开始，i从2到4
            .MoveFirst
            .Find "产品编码='" & sht.Cells(i, 4) & "'"
            If Not rs.EOF Then
                For j = 1 To 37
                    .Fields(j - 1).Value = sht.Cells(i, j).Value
                Next j
            Else
                .AddNew
                For j = 1 To 37
                    .Fields(j - 1).Value = sht.Cells(i, j).Value
                Next j
            End If
            Application.StatusBar = "请稍等.........正在处理第 " & i - 1 & "条编码"
   If Range("V" & i & "").Value = "T" Or Range("V" & i & "").Value = "T2" Then
    RunYesNo = msgbox("这个台子是否是拉台?", vbYesNo, "提示")
    If RunYesNo = vbYes Then Exit Sub
   End If
   
        Next i
        .UpdateBatch
    End With
    rs.Close: cn.Close
    Set rs = Nothing: Set cn = Nothing: Set sht = Nothing
   
    msgbox "处理完毕！" + Chr(13) + "记得更新cpgzde！", vbInformation, "系统提示"
    Application.StatusBar = False
End Sub



[/code]

andanok

z315559822 发表于 2013-4-12 09:17

其实还是愿意调用外部.txt或.SQL文件，因为有时其它程序生成的查询代码就方便去查询

hustnzj

andanok 发表于 2013-4-12 09:41
其实还是愿意调用外部.txt或.SQL文件，因为有时其它程序生成的查询代码就方便去查询

读入txt文件应该就可以，不过我没弄过，你要是弄出来通知我一下，哈哈

z315559822

andanok 发表于 2013-4-12 09:41
其实还是愿意调用外部.txt或.SQL文件，因为有时其它程序生成的查询代码就方便去查询

懂你的意思了，我这里有一类似的EXCEL弄的东东，是利用excel Query首先和mssql建立连接，然后把要查询的sql语句写在EXCEL的一个单元格里，然后用VBA调用Query连接和单元格里面的SQL查询语句。具体见附件。 SQL数据查询.rar (24.16 KB, 下载次数: 85)

2013-4-13 08:33 上传

点击文件名下载附件

andanok

不是这样哦，外部.txt或.SQL文件是已经包含完整的SQL语句，只是在EXCEL里把它发送到MSSQL服务器执行