Excel VBA 实现SQL数据读取K3人员信息
Private Sub CommandButton1_Click()
Worksheets("Sheet2").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
'清除在Excel中的数据,确保导入信息不出现与原Excel数据进行叠加
Dim cnnConnect As Object
Dim rstRecordset As Object
Columns("A:C").Select
Range("A1").Activate
Selection.Delete Shift:=xlToLeft
Set cnnConnect = CreateObject("ADODB.connection")
Set rstRecordset = CreateObject("ADODB.Recordset")
cnnConnect.Open "Provider=SQLOLEDB;" & _
"Data Source=10.11.1.4;" & _
"User ID=finWork;Password=finwork;"
rstRecordset.Open _
Source:="Select code, name, email from hm_employees where status=1", _
ActiveConnection:=cnnConnect
'建立数据库连接,Source为数据库数据服务器IP,及连接用户名与密码,在实现时确保用户对K3数据库有读取权限
With ActiveSheet.QueryTables.Add( _
Connection:=rstRecordset, _
Destination:=Range("A1"))
.Name = "Contact List"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
'导入K3数据到Excel中,
Range("A1").Value = "工号"
Range("B1").Value = "姓名"
Range("C1").Value = "Email"
ActiveWorkbook.Worksheets("Sheet2").QueryTables
相关文档：
第十一题：
有表students(name,class,grade),请用标准sql语句完成
name class grade
张三 数学 81
李四 语文 70
王五 数学 90
张三 语文 60
李四 数学 100
王五 语文 90
王五 英语 81
要求: 用sql语句输出各门功课都大于80分的同学姓名?
create table students (
name varchar(25),
class varchar(25), ......
在ASP.Net项目中使用存储过程,首先可以提高数据库的安全性，其次可以提高运行SQL代码运行的速度，在大型项目中一般是必不可少的。Visual Studio.Net为SQL的存储过程提供了强大的支持，您既可以通过visual studio.net来新建存储过程，也可以直接在Sql Server的查询分析器中运行，还可以通过企业管理器创建，使用起来也 ......
sql在多方摸索和朋友的帮助下，终于可以连接成功，这对我来说是个里程碑来的，在工作的过程中我总是没有机会可以碰触到SQL，当我鼓起勇气勇气想学习的时候我连怎么用都不会，进来终于链接成功，开心地和朋友分享我的成果。
1.安装sql，学习SQl，因为一般我是想要用于VS2005项目的，所以一般最后就先安装VS软件，以便 ......
方法一：
select distinct name from tablename
方法二：
select min(fid),name,sex from tablename group by name
总计：
select distinct name from tablename 打开重复记录的单个字段
select * from tablename where fid in(Select min(fid) from tablename group by name)打开重复记录的所有字段值
select ......
（1） 选择最有效率的表名顺序(只在基于规则的优化器中有效)：
ORACLE的解析器按照从右到左的顺序处理from子句中的表名，from子句中写在最后的表(基础表 driving table)将被最先处理，在from子句中包含多个表的情况下,你必须选择记录条数最少的表作为基础表。如果有3个以上的表连接查询, 那 ......
