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表示降序排列
......
一、深入浅出理解索引结构
改善SQL语句
很多人不知道SQL语句在SQL SERVER中是如何执行的，他们担心自己所写的SQL语句会被SQL SERVER误解。比如：
select * from table1 where name=''zhangsan'' and tID > 10000
和执行:
select * from table1 where tID > 10000 and name=''zhangsan''
一些人不知道 ......
自动编号：设字段类型为：int ，然后列属性中 （是标识）选是，标识种子选1。
用varchar(max)代替text。varchar的最大长度为8000，但是varchar(max)则可以存储多达2G的数据，因此其作用相当于SQL 2000中的text。但是微软可能会后续的SQL Server版本中移除text类型，从现在就应该用varchar(max) 来代替text。
用nvarchar(m ......
一段时间来，每天的工作都比较杂，vb,asp,c#,sql，每项工作都要搞，实在是累！工作之余，想想公司和工作的情况，看来是有必要换个环境了。不过也要先把目前的工作处理完成啊。
最近又遇到一个问题：一家客户使用中的数据库，日志文件异常增大，平均每天增加大约一个G，而数据文件变� ......
--> Title : SQL Server 2005中的文件和文件组
--> Author : wufeng4552
--> Date : 2009-10-23
1、文件和文件组的含义与关系
每个数据库有一个主数据文件.和若干个从文件。文件是数据库的物理体现。 文件组可以包括分布在多个逻辑分区的文件，实现负载平衡。文件组允� ......
