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
相关文档：
系统环境：Windows 7
软件环境：Visual C++ 2008 SP1 +SQL Server 2005
本次目的：编写一个航空管理系统
这是数据库课程设计的成果，虽然成绩不佳，但是作为我用VC++ 以来编写的最大程序还是传到网上，以供参考。用VC++ 做数据库设计并不容易，但也不是不可能。以下是我的程序界面，后面 ......
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( ......
作者:罗代均 ldj_work#126.com 转载请保持完整性
1.测试表
employee
雇员id 部门id 薪金
emp_id dept_id salary
......
SQL Server 索引结构及其使用（一）
作者：freedk
一、深入浅出理解索引结构
实际上，您可以把索引理解为一种特殊的目录。微软的SQL SERVER提供了两种索引：聚集索引（clustered index，也称聚类索引、簇集索引）和非聚集索引（nonclustered index，也称非聚类索引、非簇集索引）。下面，我们举例来说明一下聚集索 ......
4.6 通过日志查看服务器的运行情况
SQL Server 2005可以将某些系统事件和用户自定义的事件记录到SQL Server错误日志和Windows应用程序日志中。这两种日志都会自动标上时间。
4.6.1 在【事件查看器】中查看服务器的运行情况
SQL Server 2005服务器的启动、关闭和暂停动作，都会产生一个事件记录，这个记录将会记在Windows ......
