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
相关文档：
如何远程判断Oracle数据库的安装平台
select * from v$version;
查看表空间的使用情况
select sum(bytes)/(1024*1024) as free_space,tablespace_name
from dba_free_space
group by tablespace_name;
SELECT A.TABLESPACE_NAME,A.BYTES TOTAL,B.BYTES USED, C.BYTES FREE,
(B.BYTES*100)/A.BYTES "% USED",(C.BYTES ......
实现小数据量和海量数据的通用分页显示存储过程
建立一个 Web 应用，分页浏览功能必不可少。这个问题是数据库处理中十分常见的问题。经典的数据分页方法是:ADO 纪录集分页法，也就是利用ADO自带的分页功能（利用游标）来实现分页。但这种分页方法仅适用于较小数据量的情形，因为游标本身有缺点：游标是存放在内存中， ......
自动编号：设字段类型为：int ，然后列属性中 （是标识）选是，标识种子选1。
用varchar(max)代替text。varchar的最大长度为8000，但是varchar(max)则可以存储多达2G的数据，因此其作用相当于SQL 2000中的text。但是微软可能会后续的SQL Server版本中移除text类型，从现在就应该用varchar(max) 来代替text。
用nvarchar(m ......
Distinct
SELECT DISTINCT "栏位"
from "表格名"
Where
SELECT "栏位"
from "表格名"
WHERE "condition"
And/Or
SELECT "栏位"
from "表格名"
WHERE "简单条件"
{[AND|OR] "简单条件"}+
In
SELECT "� ......
