1188
社区成员
向sql数据库中插入数据的问题！
当从excel里向sql数据库中插入数据时，当表已有时，程序报错说“表已经存在”，且不继续执行？
怎样保证数据不被重复插入呢?
代码如下：
Private Sub cmdselectinto_Click()
Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;" And _
"User ID=sa;Initial Catalog=china_MD_ELP;Data Source=(LOCAL)"
strSQL = "SELECT * INTO XLImport7 FROM " & _
"OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
"'Excel 8.0;Database=D:\lq\Project\YntMD007_単品ExcelDB保存機能追加\Program\単品ExcelDB保存機能追加03.xls', " & _
"[lq$])"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
cn.close
Set cn = Nothing
End Sub
怎样保证数据不被重复插入呢?
代码如下：
Private Sub cmdselectinto_Click()
Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;" And _
"User ID=sa;Initial Catalog=china_MD_ELP;Data Source=(LOCAL)"
strSQL = "SELECT * INTO XLImport7 FROM " & _
"OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
"'Excel 8.0;Database=D:\lq\Project\YntMD007_単品ExcelDB保存機能追加\Program\単品ExcelDB保存機能追加03.xls', " & _
"[lq$])"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
cn.close
Set cn = Nothing
End Sub
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yttrelq 2004-09-20
嗯，我确实在程序中控制数据的重复，对EXCEL中每个单元格的数据，与表中的每个纪录进行对比，没有重复的才插入数据库中，如此，效率很低。大哥有好的建议吗？
online 2004-09-20
如果有表，就删除
如果是数据，先删后插
如果是数据，先删后插
icedut 2004-09-20
要想数据不重复
就要你的程序控制了
你订好规则,就可以了阿
就要你的程序控制了
你订好规则,就可以了阿
yttrelq 2004-09-20
谢谢！怎样保证数据不被重复插入呢？
pweixing 2004-09-20
select name from sysobjects
用这个语句，可以查询出当前数据库中的表，然后用一个语句判断记录集里面有没有你要的表名就好了！
用这个语句，可以查询出当前数据库中的表，然后用一个语句判断记录集里面有没有你要的表名就好了！
RUKYO 2004-09-20
在数据量是海量这样的确会慢得难以忍受，给你一个例子：
'工程->引用Microsoft ActiveX Data Objects 2.x Library
Option Explicit
Public mCnnString As String
Private Sub Command1_Click()
Dim strSQL As String
Dim mCon As New ADODB.Connection
Dim mRst As New ADODB.Recordset
mCon.Open mCnnString
mCon.CursorLocation = adUseClient
Set mRst = mCon.OpenSchema(adSchemaTables, Array(Empty, Empty, "tblXSL", "Table"))
If mRst.EOF Then
strSQL = "SELECT * INTO tblXSL FROM " & _
"OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
"'Data Source=" & App.Path & "\Book1.xls;" & _
"Extended Properties=Excel 8.0')...[Sheet1$]"
Else
strSQL = "INSERT INTO tblXSL SELECT * FROM " & _
"OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
"'Data Source=" & App.Path & "\Book1.xls;" & _
"Extended Properties=Excel 8.0')...[Sheet1$] " & _
"WHERE ID NOT IN (SELECT ID FROM tblXSL)"
End If
mCon.Execute strSQL
Set mCon = Nothing
End Sub
Private Sub Form_Load()
mCnnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=Server"
End Sub
'工程->引用Microsoft ActiveX Data Objects 2.x Library
Option Explicit
Public mCnnString As String
Private Sub Command1_Click()
Dim strSQL As String
Dim mCon As New ADODB.Connection
Dim mRst As New ADODB.Recordset
mCon.Open mCnnString
mCon.CursorLocation = adUseClient
Set mRst = mCon.OpenSchema(adSchemaTables, Array(Empty, Empty, "tblXSL", "Table"))
If mRst.EOF Then
strSQL = "SELECT * INTO tblXSL FROM " & _
"OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
"'Data Source=" & App.Path & "\Book1.xls;" & _
"Extended Properties=Excel 8.0')...[Sheet1$]"
Else
strSQL = "INSERT INTO tblXSL SELECT * FROM " & _
"OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
"'Data Source=" & App.Path & "\Book1.xls;" & _
"Extended Properties=Excel 8.0')...[Sheet1$] " & _
"WHERE ID NOT IN (SELECT ID FROM tblXSL)"
End If
mCon.Execute strSQL
Set mCon = Nothing
End Sub
Private Sub Form_Load()
mCnnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=Server"
End Sub
使用JDBC向SqlServer数据库中插入数据 我们会发现在数据库中插入数据是比查询数据难的 因为查询只需要一个固定的值就可以进行查询 但是插入的话需要对照数据库的建表因为有些键值不允许为空示例代码：package sqlserver.controller;import java.sql....
向数据库中插入数据的SQL语句 1、插入单个字段 insert into table (列名) values(值); 2、插入多个字段 （1） 插入两个字段以上 ...3、使用子查询向表中插入数据 insert into table (列名1，列名...）values {select （）from table2} ...
MySQL创建数据库和创建数据表 MySQL 是最常用的数据库，在数据库操作中，基本都是增删改查操作，简称CRUD。 在这之前，需要先安装好 MySQL ，然后创建好数据库、数据表、操作用户。 一、数据库操作语言 数据库在操作时，需要使用专门的数据库...
Python往SQL Server中插入数据 往SQL Server数据库中插入数据/执行SQL语句，遵循以下步骤： 建立与数据库的连接，配置信息同上一节查询数据。 插入数据时记得将数据表头与数据库表头进行对应。 插入数据时记得将数据类型转为tuple，否则无法插入...
在sql中如何插入数据 插入、删除和修改数据库中的数据 insert、update、delete等 DCL（数据控制语言） 用来控制存取许可、存取权限等 grant、revoke 等 DQL（数据查询语言） 用来查询数据库中的数据 select等 DDL（数据定义语言） 用来...
使用SQL语句向表中插入多行数据 继上次使用SQL Server Management Studio创建一个教学数据库和教师关系表之后，再次使用SQL向表中添加数据。 图形界面就不多说了，自己摸索一下就会了，这次还是继续新建查询打开编辑区，要插入数据首先要知道插入的...
python向oracle数据库中插入数据 任务的第二阶段是从server端取得数据后,将数据发送到oracle数据库，这里就需要连接数据库，并且操作数据库 使用python连接数据库，需要使用第三方数据库cx_Oracle,这里放上cx_Oracle下载连接 下载 安装完成之后 ...
解决IDEA向MySQL数据库插入中文数据出现乱码的问题 不知道大家在使用IDEA插入一条MySQL数据时是否出现过乱码的问题，比如我在插入数据一条用户数据时，涉及到了地址属于中文的情况，就出现了都是“???”的情况，如下图所示，之前查找了资料，说是我的数据库没有设置成...
向MySQL数据库中插入数据，sql语句没问题，但插入失败也不报错？ 向数据库中的order数据表中插入数据时，一直插入数据失败。没有报SQL语句语法错误，Eclipse开发工具的console打印台中也没有报错，就是数据插不进去，不断的修改测试和打印，也没有发现问题。原因？
SQLServer数据库插入随机数据（数字或时间） 插入数据条数： CONVERT(nvarchar(20),@Date_start,120) ----日期格式转换为字符串格式 yyyy-mm-dd HH:mm:ss 实例：新建一个表，插入1000条随机数字、时间数据 create Table TestInsert (Num nvarchar(10),...
使用python编写脚本向数据库中插入数据 偷懒了好久没更新博客了，由于最近换了工作，工作需要，小白基础自学了一下如何使用python脚本向数据库中插入数据。所以今天主要记录和分享一篇关于python向数据库插入记录的文章，个人觉得在日常的测试工作中还是能...
java向MySql数据库中插入数据 import java.sql.Connection; import java.sql.DriverManager; import java.sql.PreparedStatement; import java.sql.SQLException; public class Test01 { public static void main(String[] a...
[代码问题梳理]c#向Access数据库插入数据 向Access数据库插入数据 数据的几种情况 数据插入语句的书写 注意事项 数据的几种情况与语句的书写我个人认为在数据插入过程中，可以粗略地认为数据分为这三种情况： 图片 变量 具体值 大部分向Access数据库存储...
如何控制Java代码向数据库中插入数据 控制Java代码向数据库中添加数据有四步：第一步加载驱动，第二步连接数据库，第三步创建PrepareStatement对象，第四步关闭资源 //下面是增加的方法 public void insert_data(){ //第一步加载驱动 try { Class.for...
向表中插入数据（SqlServer） 向表中插入数据（DML:insert） 语法1：默认插入所有的列 insert into 表名 values(值1，值2，值3，…); 注意：值的顺序必须与字段的顺序、类型、宽度吻合 执行成功，插入一条记录，否则没有插入记录 --向学生表中...
SQLServer数据库的表中插入null数据问题 数据为null的时候，参数化插入数据库的语句提示“@xxx”参数未提供，需要用DBNull.Value代替null StringBuilder strSql = new StringBuilder(); strSql.Append("insert into AA("); strSql.Append("X,Y)"); .....
C#连接sqlserver数据库，插入数据，并且读取数据库数据画折线图。 首先先讲一下连接数据库，我的环境是Visual Studio2010和sqlserver2012，先确保自己电脑装有数据库服务。 private void connectButton_Click(object sender, EventArgs e) { //建立一个连接数据库的服务 ...
