[求助]CopyFromRecordset的使用方法

panjian318

  3pLjzIjK.rar (11.26 KB, 下载次数: 169)

2006-12-21 17:35 上传

点击文件名下载附件
[求助]CopyFromRecordset的使用方法

各位好:

    请帮忙指点一下吧.万分感谢.....

                              panjian318

       

sccj2009

把CommandButton1_Click改成以下代码试一下
Private Sub CommandButton1_Click()
    Dim endroww%, roww%, addr$, sql$
    On Error Resume Next
    Application.ScreenUpdating = False
    'open data
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
   
    '得到数据区的地址
    Windows(ThisWorkbook.Name).Activate
    Sheets("数据源").Select
    endroww = [a65536].End(xlUp).Row
    addr = Range(Cells(1, "L"), Cells(endroww, [aa1].End(xlToLeft).Column)).Address(0, 0)
   
    'clear data
     Sheets("查询").Select
    Cells.Select
    Selection.ClearContents
   
    'sql查询语句
    sql = "SELECT * FROM [数据源$] WHERE 工号='" & Trim(UCase(Me.TextBox1)) & " ' order by 日期"

    Err.Clear
    Sheets("查询").[A2].CopyFromRecordset cnn.Execute(sql)
    cnn.Close
    Set cnn = Nothing
    If Err.Description <> "" Then MsgBox Err.Description: Exit Sub
   
    '加字段名
    Sheets("数据源").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("查询").Select
    Rows("1:1").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.ScreenUpdating = True
   
    Unload Me
End Sub

panjian318

Private Sub CommandButton1_Click()
    Dim sql$
    On Error Resume Next
    Application.ScreenUpdating = False
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    sql = "SELECT * FROM [数据源$] WHERE 工号='" & Trim(UCase(Me.TextBox1)) & " ' order by 日期" 
    Err.Clear
    Sheets("查询").[A2].CopyFromRecordset cnn.Execute(sql)
    cnn.Close
    Set cnn = Nothing
    If Err.Description <> "" Then MsgBox Err.Description: Exit Sub
    Application.ScreenUpdating = True
    Unload Me
End Sub

首先感谢sccj2009朋友提供指点,已有所体会.还请继续解惑为盼......

以上代码实现了部份功能,但请问:1.' order by 日期" 这句是什么意思?起什么作用?

                              2.  上述代码将查询之"工号"对应所有例的内容都例示出来,但我只想例  示其中某些例的内容可以怎么办呢?

                              3.如果需要在"计件工资"旁边增加一例"工资累计",又可以怎么自动实现?

感谢.......

sccj2009

1.“order by 日期”,结果按日期排序

2、把"SELECT * FROM [数据源$]"中的“*”，更换成“日期，工号，姓名”等需要的字段即可

3、同时需要“计件工资”和“工资累计”有点困难，我真不知道

上述问题都属SQL部分的知识，建议先看书了解一些

panjian318

感谢sccj2009朋友指点帮助........

xh_xj

   Sheets("查询").[A2].CopyFromRecordset cnn.Execute(sql)
我想问一下,如何只导出指定字段呢?

xh_xj

有大大指导一下么?

zhaogang1960

xh_xj 发表于 2012-7-17 22:44
就上面的例子,我只想导出工号和姓名,用CopyFromRecordset能否实现

ADO法主要是写SQL语句，其他语句基本固定：
Sql = "SELECT 工号,姓名 FROM [数据源$]"
'Sql = "SELECT 字段1,字段2,……,字段n FROM [工作表$] where 条件"    '条件可选

xh_xj

就上面的例子,我只想导出工号和姓名,用CopyFromRecordset能否实现

xh_xj

    sql = "SELECT 工号,姓名 FROM [数据源$] WHERE 工号='" & Trim(UCase(Me.TextBox1)) & " ' order by 日期"

谢谢!