create function f_id ()
returns int
as
begin
declare @id int
select @id=isnull(max(id),0)+1 from mywork
return @id
end
insert into mywork (id,name,date) values (dbo.f_id(),'张三','2009-10-10')
以上,希望对你有所帮助
1、打开excel2、打开数据库
3、逐条读取excel数据
4、逐条写入sql数据库
5、关闭数据库、excel
以下是一个 读取word表格的小程序,基本上能说吗问题!仅供参考
Private Sub File1_Click()
Dim bsl As Integer
Dim biaogeshuju As String
Dim lujing As String
lujing = Dir1.Path + "\" + File1.FileName
If xuanze = "doc" Then '如果文件不是Word文档,将不进行处理。
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
Set Word = WordApp.Documents.Open(lujing)
WordApp.Visible = True
If WordApp.activedocument.tables.Count >0 Then '判断Word文档中表的数量
bsl = WordApp.activedocument.tables.Count
lianjie '连接数据库
cn.Open
rs.Open "select * from 临时表1", cn, 1, 3
If rs.EOF And rs.BOF Then '删除临时表1中的数据
Else
cn.Execute "Delete 临时表1"
End If
For k = 1 To bsl '把Word文档中的数据上传到临时表1
h = WordApp.activedocument.tables(k).Rows.Count '获得Word文档表格的行数
For i = 2 To h
biaogeshuju = Left(Word.tables(k).cell(i, 2).range.text, Len(Word.tables(k).cell(i, 2).range.text) - Len(Right(Word.tables(k).cell(i, 2).range.text, 2)))
If k = bsl And biaogeshuju = "" Then '检查是表格里是否有数据
Exit For
Else
rs.AddNew
rs.Fields(0) = Left(File1.FileName, Len(File1.FileName) - 4)
For j = 1 To 15
If j = 3 Then
rs.Fields(j) = Val(Left(Word.tables(k).cell(i, j).range.text, Len(Word.tables(k).cell(i, j).range.text) - Len(Right(Word.tables(k).cell(i, j).range.text, 2))))
Else
rs.Fields(j) = Trim(Left(Word.tables(k).cell(i, j).range.text, Len(Word.tables(k).cell(i, j).range.text) - Len(Right(Word.tables(k).cell(i, j).range.text, 2))))
End If
Next
rs.Update
End If
Next
Next
rs.Close
cn.Close
End If
lianjie
cn.Open
rs.Open "select * from 临时表1 order by 序号 asc", cn, 1, 3
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 2
Text1.text = Left(File1.FileName, Len(File1.FileName) - 4)
rs.Close
cn.Close
Word.Close
WordApp.quit
End If
End Sub
一、针对批量插入数据,如果量不是太多,可以多条SQL语句运行就可以了,
类似下面的语句,当然可以使用excel 编辑后,复制到查询器中运行,
insert into table(a,b) values('1','a')
insert into table(a,b) values('2','b')
insert into table(a,b) values('3','c')
二、大量数批量插入,即数据表的移植,数据备份转换之类的,就需要工具,比如MSSQL的DTS工具,pb的数据通道 等等。这里介绍一下 DTS工具。
1、在SQL安装目录下开启导入和导出数据,即DTS。
2、选择一个批量的数据,可以是表,也可以是带分隔符的文件,或excel文档之类,如图中选择,导入的格式
3、选择导入的目标
4、选择导入方式
5.具体的导入规则
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)