package org.cupd.spdb.report.importexcel.
import javax.servlet.http.HttpServletR
import javax.servlet.http.HttpServletR
import org.apache.struts.action.ActionF
import org.apache.struts.action.ActionF
import org.apache.struts.action.ActionM
import org.apache.struts.actions.DispatchA
import org.cupd.spdb.report.importexcel.service.CardBinS
import org.cupd.spdb.report.importexcel.service.impl.CardBinServiceI
* excel数据读取与导入后台管理
public class CardBinAction extends DispatchAction {
public ActionForward showCardBinPage(ActionMapping mapping, ActionForm actionform,
HttpServletRequest request, HttpServletResponse response)
throws Exception {
return mapping.findForward(&showCardBinPage&);
CardBinService CardBinService=new CardBinServiceImpl();
public int insertCardBin()
int result=CardBinService.insertDB();
package org.cupd.spdb.report.importexcel.service.
import java.util.L
import org.cupd.spdb.report.importexcel.dao.CardBinD
import org.cupd.spdb.report.importexcel.dao.impl.CardBinDaoI
import org.cupd.spdb.report.importexcel.entity.BizCardB
import org.cupd.spdb.report.importexcel.service.CardBinS
public class CardBinServiceImpl implements CardBinService {
private CardBinDao cardBinDao=new CardBinDaoImpl();
public CardBinDao getCardBinDao() {
return cardBinD
public void setCardBinDao(CardBinDao cardBinDao) {
this.cardBinDao = cardBinD
public List&BizCardBin& getBeanList() {
return beanL
public void setBeanList(List&BizCardBin& beanList) {
this.beanList = beanL
private List&BizCardBin& beanL
public int insertDB(){
int flag=0;
cardBinDao.insertDB();
} catch (Exception e) {
e.printStackTrace();
Impl实现层
package org.cupd.spdb.report.importexcel.dao.
import java.io.FileNotFoundE
import java.io.IOE
import java.sql.C
import java.sql.PreparedS
import java.sql.ResultS
import java.sql.SQLE
import mons.logging.L
import mons.logging.LogF
import org.apache.poi.xssf.usermodel.XSSFC
import org.apache.poi.xssf.usermodel.XSSFR
import org.apache.poi.xssf.usermodel.XSSFS
import org.apache.poi.xssf.usermodel.XSSFW
import org.cupd.spdb.report.importexcel.dao.CardBinD
import com.websurf.spdb.bo.DBConnBOI
public class CardBinDaoImpl implements CardBinDao {
private static final Log log=LogFactory.getLog(CardBinDaoImpl.class);
private static DBConnBOImpl dbConn = new DBConnBOImpl();
PreparedStatement ps =
Connection conn =
ResultSet rs =
private String filePath=&E:\\Microsoft Excel.xlsx&;
* 插入数据
public boolean insertDB(){
boolean flag=
//文件流指向excel文件
// FileInputStream fin=new FileInputStream(filePath);
XSSFWorkbook workbook=new XSSFWorkbook(filePath);//创建工作薄
XSSFSheet sheet=workbook.getSheetAt(0);//得到工作表
XSSFRow row=//对应excel的行
XSSFCell cell=//对应excel的列
int totalRow=sheet.getLastRowNum();//得到excel的总记录条数
(&得到excel的总记录数&+totalRow);
//以下的字段一一对应数据库表的字段
String cardName=&&;
String cardType=&&;
String cardBin=&&;
String cardLength=&&;
String activityCode=&&;
String note=&&;
String sql =&insert into BizCardBin(cardName,cardType,cardBin,cardLength,activityCode,note) values(?,?,?,?,?,?)&;
for(int i=2;i&=totalRi++){
row=sheet.getRow(i);
cell=row.getCell((short) 0);
cardName=cell.getStringCellValue().toString();
cell=row.getCell((short) 1);
cardType=cell.getStringCellValue().toString();
cell=row.getCell((short) 2);
cardBin=cell.getStringCellValue().toString();
cell=row.getCell((short) 3);
cardLength=cell.getStringCellValue().toString();
cell=row.getCell((short) 4);
activityCode=cell.getStringCellValue().toString();
cell=row.getCell((short) 5);
note=cell.getStringCellValue().toString();
conn=dbConn.getConnection();
(&获取JDBC连接完成&);
ps=conn.prepareStatement(sql);
ps.setString(1,cardName);
ps.setString(2,cardType);
ps.setString(3,cardBin);
ps.setString(4,cardLength);
ps.setString(5,activityCode);
ps.setString(6,note);
ps.execute();
System.out.println(&preparestatement successful&);
dbConnClose(conn, dbConn);
psClose(ps, rs);
} catch (FileNotFoundException e) {
e.printStackTrace();
} catch(IOException ex){
ex.printStackTrace();
} catch(SQLException exx){
exx.printStackTrace();
public static void main(String[] args) {
CardBinDaoImpl e=new CardBinDaoImpl();
e.insertDB();
* 插入数据 只需要传入插入sql即可
* 插入sql的样例:insert into t_department values('D004','金融部');
* @param insert 插入语句
* @throws SQLException
/*public int insertCardBin(BizCardBin cardBin){
int result=0;
PreparedStatement ps =
Connection conn =
String sql =&insert into BizCardBin(cardName,cardTyoe,cardBin,cardLength,cardLength,activityCode,note) values(?,?,?,?,?,?,?)&;
conn=dbConn.getConnection();
(&获取JDBC连接完成&);
ps = conn.prepareStatement(sql);
ps.setString(1, cardBin.getCardName());
ps.setString(2, cardBin.getCardType());
ps.setString(3, cardBin.getCardBin());
ps.setString(4, cardBin.getCardLength());
ps.setString(5, cardBin.getActivityCode());
ps.setString(6, cardBin.getNote());
result = ps.executeUpdate();
} catch (SQLException e) {
// TODO Auto-generated catch block
log.error(&SQL Exception &+ e);
e.printStackTrace();
dbConnClose(conn, dbConn);
psClose(ps, rs);
public void dbConnClose(Connection conn,DBConnBOImpl dbConn){
if(conn!=null){
dbConn.close(conn);
private static void psClose(final PreparedStatement preparedStatement,
final ResultSet resultSet) {
if (resultSet != null) {
resultSet.close();
if (preparedStatement != null) {
preparedStatement.close();
} catch (SQLException e) {
log.error(&error&, e);
求各位大神指点 指出哪里不恰当之处
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：950次
排名：千里之外用VB做怎么将Excel数据导入SQL数据库中-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
用VB做怎么将Excel数据导入SQL数据库中
来源：互联网 更新时间： 4:39:09 责任编辑：鲁晓倩字体：
问题详情：如何使用vba 将excel指定行的数据导入到sql200中?要具体实例 回答：你在EXCEL中增加一个列名为ID,后在VBA中写以下 码,并引用Microsoft ActiveX Data Objects 2.后执行Public Sub 写入SQL200() Dim cnn As New ADODB.Connection Dim SQL As String, mydata As String, mytable As String Dim i% mydata = "KKKK" '指定要修改的数据库 mytable = "aaaa" '指定数据表 '建立与指定SQL Server数据库的连接 cnn.ConnectionString = "Provider=SQLOLEDB;" _ & "User ID=" _ 'sa改成你SQL (通常不用改) & "Password =123;" _ '123改成你SQL200 & "Data Source=" _ 'sowin改成你的SQL200的电脑名, '如sql200在网络上,则sowin改成IP地址(如12.1.0.1) & "参考回答：为什么不用openrowset或者opendatasource?问题:VBA实现EXCEL导入到SQL有严重问题 回答：Sub 按钮2_单击()Dim connSet conn = CreateObject("ADODB.Connection")conn.Open ("driver={SQL Server};server=uid=pwd=database=")FileName = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "请选择 ", , MultiSelect:=False)If Filename = False Then Exit Sub'加这一行试下Sql = "SELECT * into GENERALDATA FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""" & FileName & """;User ID=APassword=;Extended properties=Excel 5.0')[录入模板$]"conn.Execute (Sql)conn.CloseSet conn = NothingEnd Sub问题:vba access 将Access数据导入到sqlserver问题详情：access窗体,使用VBA将指定的 '-------------------------- 数据导入最 回答：吧sqlserver作为数据源,可以直接导的。你查查docmd.exprot.问题:.将Excel数据导入到sql2005问题详情：.将Excel数据导入到sql2005,有多种方法更好 回答：一、在程序中,用ADO.。 码如下: 连接串string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel .0;Data Source=" + [EXCEL ,含路径] + ";";OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); DataTable dtSchema = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new object[] {null, null, null, "TABLE"});DataSet ds = new DataSet(); 一个EXCEL 可能有多个 表,遍历之foreach( DataRow dr in dtSchema.Rows ){ string table = dr["TABLE_NAME"].ToString(); string strExcel = "SELECT * FROM [" + table + "]"; ds.Tables.Add(table);问题:怎么将Excel数据导入SQLserver200数据库表中?
相关文章：
<a href="/cse/search?q=<inputclass="s-btn"type="submit"text="<inputclass="s-btn"type="submit"text="<buttonhidefocusclass="s-btnjs-ask-btn"text="我要提问
<a href="/cse/search?q=SQL向数据库中批量插入数据
SQL向数据库中批量插入数据
除非注明，文章均为原创，转载请保留链接: ，VBA交流群。
之前讲过利用SQL语句向Access数据库中插入一条数据，这节来讲下怎样向数据库中批量插入数据。
现在我的Excel表中的有一个学生信息表，有99条数据，现在我要将这99条数据一次性插入Access数据库中的学生信息表中，先看代码
Sub 插入数据表格()
Dim cnn As Object, rs As Object, SQL$, mypath
Set cnn = CreateObject("adodb.connection")
mypath = ThisWorkbook.Path & "\学校管理.accdb"
On Error Resume Next
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mypath
SQL = "select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
SQL = "insert into 学生信息 " & SQL
cnn.Execute SQL
Set cnn = Nothing
其他地方没有什么，主要是在SQL语句的书写上。为了便于理解我这将SQL语句分成了两部分，先看第一部分"select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0)
& "]"，这句代码和我们之前以Excel为例讲解select语句的时候非常像，其实这句就是将当前的Excel当成数据库，将其中的数据全部提取出来，这句翻译出来就是“select * from [Excel 12.0;Database=C:\Users\Administrator\Desktop\ACCESS数据库\数据.xlsm].[Sheet1$A1:J100]”，然后第二句"insert into 学生信息 " & SQL就是将第一部分SQL筛选出来的数据整个插入到学生信息表中。
本节示例文件下载地址：。
咨询，程序开发，友链交换请联系博主
VBA QQ群：
注意！复制代码请用Ctrl+C！2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。8091人阅读
&#65279;&#65279;
VBA连接SQL SERVER数据库操作Excel。
Sub 按钮1_Click()
&&& Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
&&& 'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
&&& 'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
&&& ‘工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
&&&&&&& '下面两句就不需要增加引用ADO
&&& Set cn = CreateObject(&Adodb.Connection&)
&&& Set rs = CreateObject(&Adodb.Recordset&)
&&& Dim strCn As String, strSQL As String '字符串变量
&&& Dim strCond As String
&&& strCn = &Provider=Server=R9HDET7;Database=Uid=Pwd=password& '定义数据库链接字符串
&&& '下面的语句将读取数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表
&&& strSQL = &select CUSTOMER_NAME from VSC_BI_CUSTOMER & '定义SQL查询命令字符串
&&& cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
&&& rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
&&& Set sht = ThisWorkbook.Worksheets(&Test&) '把sht指向当前工作簿的Test工作表
&&& Do While Not rs.EOF '当数据指针未移到记录集末尾时，循环下列操作
&&&&& sht.Cells(i, 1) = rs(&CUSTOMER_NAME&) '把当前记录的字段1的&#20540;保存到sheet1工作表的第i行第1列
&&&&& rs.MoveNext '把指针移向下一条记录
&&&&& i = i &#43; 1 'i加1，准备把下一记录相关字段的&#20540;保存到工作表的下一行
&&& Loop '循环
&&& rs.Close '关闭记录集，至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数
&&& cn.Close '关闭数据库链接,释放资源
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：390633次
积分：5358
积分：5358
排名：第3830名
原创：172篇
转载：17篇
评论：22条
(1)(1)(1)(8)(1)(1)(4)(2)(2)(1)(1)(1)(2)(5)(5)(7)(6)(3)(1)(10)(24)(7)(4)(8)(1)(4)(3)(2)(2)(3)(7)(5)(6)(10)(35)(7)