当前位置:首页 » 编程语言 » 用excel生成sql语句
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

用excel生成sql语句

发布时间: 2023-06-20 09:25:13

⑴ 如何把Excel数据转化成sql语句

前者是数据,后者是程序,如果将数据都写进程序,效率太低了。
你的本意估计是需要将excel数据导入sql数据库
1、在excel中编写代码,循环将数据写入sql数据库
2、从sql数据库中,编写代码将excel数据导入数据库
3、借助第三方软件,将excel数据写入sql数据库

⑵ 如何把Excel资料转化成SQL语句

如何把Excel资料转化成SQL语句

1、开启企业管理器,开启缓毕纤要汇入资料的资料库,在表上按右键,所有任务-->汇入资料,弹出DTS汇入/汇出向导,按 下一步 , 2、选择资料来源 Microsoft Excel 97-2000,档名 选择要汇入的xls档案,按 下一步 , 3、选择目的 用于SQL Server 的Micro...

前者是资料,后者是程式,如果将资料都写程序序,效率太低了。
你的本意估计是需要将excel资料汇入sql资料库
1、在excel中编写程式码,回圈将资料写入sql资料库
2、从sql资料库中,编写程式码将excel资料汇入资料库
3、借助第三方软体,将excel资料写入sql资料库

:jingyan../article/cdddd41c92924d53cb00e189.

1、在你的excel表格中增加一列
2、在第一行的D列,就是D1中输入公式: =CONCATENATE("INSERT INTO PERSONS_SERIAL_NUMBER(PERSONS_NO, PERSONS_NAME,ID_NUMBER) VALUES('" & B1 & "', '" & C1 & "', '" & E1 & "');")
3、此时D1已经生成了如下的sql语句: INSERT INTO PERSONS_SERIAL_NUMBER(PERSONS_NO, PERSONS_NAME,ID_NUMBER) VALUES('xxxxx', 'xxxx, 'xxxxxxxxxx');
4、将D1的公式复制到所有行的D列,方法是:把资料放在单元格最右下角,当鼠标变成十字形时,往下拖到最后一行放开就会自动复制,动态改变values里面的引数
5、此时D列已经生成了所有的sql语句
6、把D列复制到一个纯文字档案中,推荐使用UltraEdit进行处理。

如何把mysql某些资料转化成sql

SQL SERVER有一个自带的汇入汇出工具,你可以用它来把SQL SERVER的资数搜料汇入到MYSQL。
如果无法执行的话,可以自己编写程式,将SQL SERVER的资料按照MYSQL中你建设的表的栏位标准来汇出,然后再汇入到MYSQL。

如何把SQL资料档案转化成ACCESS资料

sql企业管理器里面有一个数据汇入汇出
你可以把表直接汇出excel档案的

如何把word做的一些资料转化成EXCEL

直接复制就自动分好单元格了。 直接扰仿复制啊。 我楼下的朋友(zjgwenqi - 助理 二级)方法可行,我的方法删掉了。 ,lCXXtZ

如何将一张资料库表中的资料汇出或转化成sql语句

sql
方法/步骤
很多时候我们在生产资料库上面只能进行简单的查询,是不能增删查改的。但是又想使用真实的资料。
如果用plsql develop是可以实现将资料汇出成insert语句的。但是汇出之后是全部的列都会出现在insert语句里面。
3
遇到一些空值,日期之类的还要处理一下才行,而且有很多列是自己不需要的。
4
这个时候就需要用sql来构造insert语句了。他是比较自由和灵活的,可控制性比较强。

如何把shibor 日资料转化成月资料

请在日期后插入一列,如C列,在C1输入公式: =TEXT(A1,"yyyy-mm") 将日期转换为年月的文字,下拉复制; 再进行资料透视表按这年月作透视,将气温汇总除以气温计数即可得出平均值。 或请你将原表作附件上传,帮你做一下

如何将SQLite DB档案转化成带插入的sql语句

找到由SQLServer转换的SQLite DB档案(可参考我的以前的经验:SQLServer资料库表汇出SQLite DB档案方法),
下载动软程式码生成工具并安装,按照成功后到所有程式可以检视到
执行动软程式码生成工具进入到主接口。
点选左上角的新增服务器注册,弹出资料库型别窗体。选择SQLLite,点选下一步。如下图:
接下来会弹出选择SQLite资料库窗体,在资料库档案文字框输入本地SQLite db档案路径,点选确定(。系统会提示关闭软体从新开启。
重新开启动软程式码生成工具后,到左边服务器可以看见那你的SQLite资料库
选择一张表,右键选择生成资料脚步(。会弹出一个提示:“如果该表资料量较大…”,直接选择“是”(,点选“是”后右边出现生成的sql语句,包含新增语句和插入资料的语句。储存档案即可。

⑶ 在Excel里用宏实现自动生成sql语句的问题

分类: 电脑/网络猜悔 >> 程序设计 >>毁核 其他编程语言
问题描述:

请看我的Bolg里有图片描述,一目了然.blog.sina/u/***********即点击按钮生成5条insert语句,用分号阁开.

知道思路的说下思路,知纤兆掘道细节的最好说详细点啦,先谢谢!

解析:

Const MAX_NUM_ROW = 5000

Const PATH_OUTPUT_ROW = 1

Const PATH_OUTPUT_COL = 2

Const FILE_OUTPUT_ROW = 2

Const FILE_OUTPUT_COL = 2

'Template Info

Const ENTRP_CDE_COL = 1

Const RPT_TMPLT_ID_COL = 2

Const RPT_FMT_TYP_COL = 3

Const FNCTN_ID_COL = 4

Const TMPLT_PATH_COL = 5

Const BNDL_PATH_COL = 6

Const RPT_NAM_GEN_CLASS_COL = 7

Const RPT_DATASOURCE_CLASS_COL = 8

Const ACK_RPT_TMPLT_ID_COL = 9

Const REC_VER_NUM_COL = 10

Const INIT_TIME_COL = 11

Const LAST_UPD_TIME_COL = 12

Const LAST_UPD_BY_COL = 13

Const START_ROW = 5

Private Type Tmplt

ENTRP_CDE As String

RPT_TMPLT_ID As String

RPT_FMT_TYP As String

FNCTN_ID As String

TMPLT_PATH As String

BNDL_PATH As String

RPT_NAM_GEN_CLASS As String

RPT_DATASOURCE_CLASS As String

ACK_RPT_TMPLT_ID As String

REC_VER_NUM As String

INIT_TIME As String

LAST_UPD_TIME As String

LAST_UPD_BY As String

End Type

Dim noOfTmplts As Integer

Dim TmpltArray(MAX_NUM_ROW) As Tmplt

Private Sub CommandButton1_Click()

generateSQL

End Sub

Private Sub generateSQL()

makedir

initData

writeToFile

End Sub

Private Sub makedir()

On Error Resume Next

'Make Directory

MkDir Sheet18.Cells(PATH_OUTPUT_ROW, PATH_OUTPUT_COL)

End Sub

Private Sub initData()

Erase TmpltArray

'Erase TmpltRoleArray

'noOfUserRoles = 0

noOfTmplts = 0

Dim j As Integer

'Lookup all fields

For j = START_ROW To MAX_NUM_ROW

If Sheet18.Cells(j, RPT_TMPLT_ID_COL) = "" Then

Exit For

End If

'Set Template

TmpltArray(noOfTmplts).ENTRP_CDE = Sheet18.Cells(j, ENTRP_CDE_COL)

TmpltArray(noOfTmplts).RPT_TMPLT_ID = Sheet18.Cells(j, RPT_TMPLT_ID_COL)

TmpltArray(noOfTmplts).RPT_FMT_TYP = Sheet18.Cells(j, RPT_FMT_TYP_COL)

TmpltArray(noOfTmplts).FNCTN_ID = Sheet18.Cells(j, FNCTN_ID_COL)

TmpltArray(noOfTmplts).TMPLT_PATH = Sheet18.Cells(j, TMPLT_PATH_COL)

TmpltArray(noOfTmplts).BNDL_PATH = Sheet18.Cells(j, BNDL_PATH_COL)

TmpltArray(noOfTmplts).RPT_NAM_GEN_CLASS = Sheet18.Cells(j, RPT_NAM_GEN_CLASS_COL)

TmpltArray(noOfTmplts).RPT_DATASOURCE_CLASS = Sheet18.Cells(j, RPT_DATASOURCE_CLASS_COL)

TmpltArray(noOfTmplts).ACK_RPT_TMPLT_ID = Sheet18.Cells(j, ACK_RPT_TMPLT_ID_COL)

TmpltArray(noOfTmplts).REC_VER_NUM = Sheet18.Cells(j, REC_VER_NUM_COL)

TmpltArray(noOfTmplts).INIT_TIME = Sheet18.Cells(j, INIT_TIME_COL)

TmpltArray(noOfTmplts).LAST_UPD_TIME = Sheet18.Cells(j, LAST_UPD_TIME_COL)

TmpltArray(noOfTmplts).LAST_UPD_BY = Sheet18.Cells(j, LAST_UPD_BY_COL)

noOfTmplts = noOfTmplts + 1

Next

End Sub

Private Sub writeToFile()

Dim lvOutputPath As String

lvOutputPath = Sheet18.Cells(PATH_OUTPUT_ROW, PATH_OUTPUT_COL) & "\" & Sheet18.Cells(FILE_OUTPUT_ROW, FILE_OUTPUT_COL)

If lvOutputPath = "" Then

MsgBox "File Output Path Missing!"

Exit Sub

End If

fileNum = FreeFile

' Open Output Path

Open lvOutputPath For Output As fileNum

Dim lvUserSql As String

For j = 0 To noOfTmplts - 1

lvUserSql = "INSERT INTO RS_RPT_TMPLT(ENTRP_CDE,RPT_TMPLT_ID,RPT_FMT_TYP,FNCTN_ID,TMPLT_PATH,BNDL_PATH,RPT_NAM_GEN_CLASS,RPT_DATASOURCE_CLASS,ACK_RPT_TMPLT_ID,REC_VER_NUM,INIT_TIME,LAST_UPD_TIME,LAST_UPD_BY) " & _

"values('TF','" & TmpltArray(j).RPT_TMPLT_ID & "','" & TmpltArray(j).RPT_FMT_TYP & "','" & TmpltArray(j).FNCTN_ID & "','" & TmpltArray(j).TMPLT_PATH & "','" & TmpltArray(j).BNDL_PATH & "','" & _

TmpltArray(j).RPT_NAM_GEN_CLASS & "','" & TmpltArray(j).RPT_DATASOURCE_CLASS & "','" & TmpltArray(j).ACK_RPT_TMPLT_ID & "'," & TmpltArray(j).REC_VER_NUM & "," & TmpltArray(j).INIT_TIME & "," & TmpltArray(j).LAST_UPD_TIME & ",'" & TmpltArray(j).LAST_UPD_BY & "');"

Print #fileNum, lvUserSql

Next

Close fileNum

MsgBox "Finished"

Exit Sub

Err_Open_File:

Close lvFileNum

If Err.Number = 76 Then

'Path Not Found

MsgBox Err.Description

Exit Sub

Else

MsgBox Err.Description

Exit Sub

End If

End Sub

⑷ Excel转换为SQL语句 问题

1、例如我想把图1的数据给添加到图2的数据库中;

⑸ excel2010怎样生成sql语句

自己写吧,很简单的

Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select top 3 * from [sheet1$A2:D]"
[H3].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing

⑹ 在excel里sql语句怎么写

OPENROWSET('Microsoft.Jet.OLEDB.4.0','Excel 8.0;HDR=YES;DataBase="+Path +"';'':'','select * from [Sheet1$]')";

string sql = " SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','Excel 8.0;HDR=YES;DataBase=" + Path + "',Sheet1$)";

⑺ 如何将Excel数据转换为SQL脚本

1、把乎绝Excel通过DTS包导入到数据库中,再通过软件生成Sql脚本型腊(另存为sql)。
2、通过Excel中的公式来生成Sql语句。
可以借助很多卜顷滑其它工具,数据库查询工具,UE等。

⑻ 如何把Excel数据转化成SQL语句

1、例如我想把图1的数据给添加到图2的数据库中;

⑼ EXCEL转换SQL语句

insert into T_GF_ORG
(GID,是否确认,是否拼团,是否秒杀,缩略图,商品编号,商品货号,条形码,库存,售价,重量,运费,销量,浏览量,评论量,添加时间,更新时间,状态,推荐,排序,所属栏目)
values ('1','','0',0,外径*粗细为
5*1.9的优质NBR丁青黑色O型圈z,/ow-content/uploads/nbrorings.jpg',S0000001',S0000001',',1000000',.03',0
kg',固定',0',2',0',43928.6042708333',43936.4357407407',',',1',丁晴O型圈);

同时可以利用excel公式直接写出来:
=CONCATENATE("insert into T_GF_ORG (GID,是否确认,是否拼团,是否秒杀,缩略图,商品编号,商品货号,条形码,库存,售价,重量,运费,销量,浏览量,评论量,添加时间,更新时间,状态,推荐,排序,所属栏目)
values ('",A2,"','",B2,"','",C2,"',",D2,",",E2,",",F2,"',",G2,"',",H2,"',",I2,"',",J2,"',",K2,"',",L2,"',",M2,"',",N2,"',",2,"',",P2,"',",Q2,"',",R2,"',",S2,"',",T2,"',",U2,"',",V2,");")