vba 将excel插入sql数据库
Private Sub insert1_click()
Dim iCount As Integer
Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=8233;Initial Catalog=hskmis;Data Source=127.0.0.1"
cn.Open
cn.Execute ("delete temp9")
'计算该表有多少行
RowCount = Worksheets("FC").UsedRange.Rows.Count
'行循环
For irow = 1 To RowCount
strRecord = ""
'列循环,假设有五列,从第一列开始
For icol = 1 To 5
If icol <> 5 Then
strRecord = strRecord & "'" & Worksheets("FC").Cells(irow, icol).Value & "'" & ","
Else
strRecord = strRecord & "'" & Worksheets("FC").Cells(irow, icol).Value & "'"
End If
Next
MsgBox strRecord
Sql = cn.Execute("insert into temp9 values(" & strRecord & ")")
Next
MsgBox "插入完成"
End Sub
相关文档：
create PROCEDURE pagelist
@tablename nvarchar(50),
@fieldname nvarchar(50)='*',
@pagesize int output,--每页显示记录条数
@currentpage int output,--第几页
@orderid nvarchar(50),--主键排序
@sort int,--排序方式，1表示升序，0表示降序排列
......
Cross Apply使表可以和表值函数结果进行join，在下面的示例中建了两个表和一个表值函数，T_b的列a_ids中会存放a表的id用,分割的字符串连接；我们通过cross apply使T_a，T_b表通过splitIDs inner join 连接。请看示例：GO
if object_id('T_a','U') is not null
drop table T_a
GO
CREATE TABLE T_a( ......
在本文中，GetDate()获得的日期由两部分组成，分别是今天的日期和当时的时间：Select GetDate() 用DateName()就可以获得相应的年、月、日，然后再把它们连接起来就可以了：
Select Datename(year,GetDate())+'-'+Datename(month,GetDate())+'-'+Dat ......
SELECT CONVERT(varchar(100), CAST(@testFloat AS decimal(38,2)))
SELECT STR(@testFloat, 38, 2)
从Excel中导入到sql2000，有一列“联系方式”变成了float类型，我想转换成nvarchar类型，用下面的语句
select convert(nvarchar(30),convert(int,联系方式)) from employee
go
//数据溢出，不行！
select ......
Distinct
SELECT DISTINCT "栏位"
from "表格名"
Where
SELECT "栏位"
from "表格名"
WHERE "condition"
And/Or
SELECT "栏位"
from "表格名"
WHERE "简单条件"
{[AND|OR] "简单条件"}+
In
SELECT "� ......
