怎么把SQL中'lk'数据库中的'人员表'中的部分数据(假如是姓王的数据)导出至excel(或类excel)中?
导出全部数据也可以,最好是到处部分数据,还有就是excel没有建好
补充:百度过,好像bcp可以,但是我郁闷的就是,我在查询分析器里面实验的时候,没错误,也执行了,就是没有导出来,结果如下:用法: bcp {dbtable | query} {in | out | queryout | format} datafile
[-m maxerrors] [-f formatfile] [-e errfile]
[-F firstrow] [-L lastrow] [-b batchsize]
[-n native type] [-c character type] [-w wide character type]
[-N keep non-text native] [-V file format version] [-q quoted identifier]
[-C code page specifier] [-t field terminator] [-r row terminator]
[-i inputfile] [-o outfile] [-a packetsize]
[-S server name] [-U username] [-P password]
[-T trusted connection] [-v version] [-R regional enable]
[-k keep null values] [-E keep identity values]
[-h "load hints"]
NULL
求大侠指点
追问:我是要把记录导出到excel中啊
答案:以下SQL代码适合SQL Server数据库,经过了测试:
UPDATE 员工表
SET 姓名 = '胡' SUBSTRING(姓名, 2, LEN(姓名)-1)
WHERE 姓名 LIKE '王%'
或者:
UPDATE 员工表
SET 姓名 = '胡' SUBSTRING(姓名, 2, LEN(姓名)-1)
WHERE LEFT(姓名,1) = '王'
一个汉字占一个位置。希望能有所帮助!欢迎到CSDN,365testing,测评网看看FIO。365testing.com。FIO
其他:路过…… 查询分析器里面实验的时候,没错误,也执行了,你导数据到一个地方看看,如果没有数据说明你的语句有问题,还有看下是否还需要写个提交(submit)或是执行什么的语句不?bcp不会,不然就帮你看看了。现在我只能分析下问题可能出在哪里。 ACCESS有两种方法可以导出到excel,不论是2003还是2010你都能直接在表格右键菜单中(或者菜单选项中)看到导出,导出到excel选项,access自带一个report功能,支持通过查询的日期范围等导出一个查询结果(实际上说简单点就是,直接导出一个表(包括一个查询)由于功能简单没什么能设置的,所以你希望导出什么内容,就首先想办法创建这个内容的查询出来,然后直接导出查询即可),同时可以通过录制宏来实现半自动的导出查询到excel(宏有导出到excel的向导)
第二种方法就是不考虑access自己的直接导出功能,而是要创造出完全自定义的导出,那么自然石通过VBA,这是我以前写的一个手工单程序,摘录一段导出到excel的:
Private Sub Command118_Click() '导出
On Error GoTo Err_Command118_Click
Set myexcel = CreateObject("Excel.Application") ‘创建excel这些过程是看不到的放心
Set ob = myexcel.Application.workbooks.Add '添加一个sheet
myexcel.Application.Visible = True
Me.productsub.Form.Recordset.MoveFirst
With myexcel.Application.ActiveSheet '输出产品列表
ob.worksheets(1).range("A19").copyfromrecordset Me.productsub.Form.Recordset
For i = 19 To 200
If .range("B" & i) = "" Then
Exit For
Else
.range("A" & i).Clear
End If
Next
.range("D19:F" & i).Cut Destination:=.range("F19:h" & i) '调整列表
.range("C4") = [取货仓库/公司].Value ’这些都是字段
.range("C5") = 取货地址.Value
.range("C6") = 申请人.Value
.range("C7") = 申请人联系电话.Value
.range("G5") = 手工单号.Value
.range("C8") = 是否返回仓库.Value
.range("C9") = 预计返回时间.Value
.range("C11") = [收货人(公司)].Value
.range("C12") = 联系人.Value
.range("G12") = 收货人联系电话.Value
.range("C13") = 地址.Value
.range("C14") = 要求到货时间.Value
.range("G14") = 运输方式.Value
.range("C16") = 申请部门.Value
.range("B" & i + 3) = 申请人要求.Value
.range("F" & i + 3) = 备注.Value
.range("C" & i + 7) = 部门申请人.Value
.range("C" & i + 8) = 申请日期.Value
.range("G" & i + 7) = 部门批准人.Value
.range("G" & i + 8) = 批准日期.Value
.range("C" & i + 10) = 供应链部确认人.Value
.range("G" & i + 10) = 货物签收人.Value
.range("C" & i + 11) = 承办日期.Value
.range("G" & i + 11) = 签收日期.Value
.range("G" & i) = 总重量.Value
For k = 18 To i
.range("C" & k & ":" & "E" & k).merge
.range("H" & k & ":" & "i" & k).merge
Next
End With
'*****************************格式化*************
Call formatTAB ‘这是格式化excel表格,比如颜色,字体,单元格尺寸大小等等,为了创造出完全符合自己希望的报表,这是个自定义函数formatTAB你需要吗?需要也可以分享出来
Call SetLine ’同上,这是给一些地方划线,画边框,这个excel最终会有标题有表格等等
'*****************************************
myexcel.Application.CutCopyMode = False
Set ob = Nothing
Set myexcel = Nothing
Me.Check169.Value = True
Exit_Command118_Click:
Exit Sub
Err_Command118_Click:
MsgBox Err.Description
Resume Exit_Command118_Click
End Sub ‘完成后就会打开一个导出的结果
顺便,如果你懒得录制宏但是又想用access自己的导出,在vba中可以直接:
Private Sub Command124_Click()
On Error GoTo Err_Command124_Click
Dim stDocName As String
stDocName = "pro" ’创建的一个自定义的查询的名字,这个查询表将会被导出
DoCmd.OutputTo acReport, stDocName ‘导出的命令
Exit_Command124_Click:
Exit Sub
Err_Command124_Click:
MsgBox Err.Description
Resume Exit_Command124_Click
End Sub ffsdsdfsdfdfdssdfsd
上一个:现在有两个EXCEL表1和表2,我想用表2中每一条数据查询表1的记录并导出,有没有批量的方法或是函数?
下一个:我把excel中的数据导入sql中的表里,提示成功,但是返回所有行后,一条数据都没有,这怎么解决?谢谢各位