pb中，如何将excel中某些内容作为数据库的字段导入数据库

以下是完整的导入数据的代码：这个要求就是需要使EXCEL的标题和数据窗口的标题对应，EXCEL从第二行开始导入。如果是某些内容，那么要换一种别的方式。

string str_savename,named

int excelok,li_net

oleobject excelserver

excelserver=create oleobject

excelok=excelserverconnecttonewobject("excelapplication")

//检查返回值，以确保已成功地连接到了Excel

if excelok <> 0 then

messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")

return

end if

li_net = GetFileOpenName("选择文件", str_savename,named,"xls","Excel文件(xls),xls")

if li_net > 0 then

if str_savename = "" then return

excelserverworkbooksopen(str_savename)

excelserveractivesheetcellscopy

dw_1importclipboard(2) //导入数据 dw_1是数据窗口名字，改成你的名字

clipboard("")

excelserverquit()

excelserverdisconnectobject()

destroy excelserver

end if

如果只导入EXCEL的某些内容，可以用如下代码：

string ls_tmp

IF GetFileOpenName("选择文件 ", ls_Path, ls_File, "XLS", "Excel Files (XLS),XLS, Comma-separated values (CSV),csv") < 0 THEN

Messagebox('文件导入', '获取文件失败！', StopSign!)

return

END IF

// === 判断档案是否存在

IF FileExists(ls_Path) = False THEN return

// === 判断是否为Excel档案

IF Lower(Right(ls_Path, 4)) <> 'xls' AND Lower(Right(ls_Path, 4)) <> 'csv'THEN

MessageBox('文件导入', '并非可选择的文件！', StopSign!)

return

END IF

oXls = CREATE OleObject

ll_Xls = oXlsConnectToObject('','excelapplication')

CHOOSE CASE ll_Xls

Case -5

// === 文件还没打开

oXlsConnectToNewObject('excelapplication')

Case Is < 0

DESTROY oXls

MessageBox('文件导入', '无法开启指定的文件！', StopSign!)

return

END CHOOSE

Long ll_Row, curRow

Decimal ld_Tmp

curRow = 2 //设置从EXCEL的第二行开始导入

oBook = oXlsWorkBooksOpen(ls_Path)

oSheet = oXlsSheets(1)

DO WHILE True

ls_value = oSheetCells(curRow, 1)Value //读取excel的内容放到变量中，cells(行,列)

IF ls_value = '' THEN Exit //如果遇到空，表示已经导入完成

ll_Row = dw_1InsertRow(0) //给数据窗口增加行

dw_1setitem()

curRow ++

LOOP

oBookClose

DESTROY oSheet

DESTROY oBook

IF ll_Xls = -5 THEN oXlsApplicationQuit

oXlsDisConnectObject()

DESTROY oXls

Sub 按钮1_Click()

Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表

'Dim cn As New ADODBConnection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

'Dim rs As New ADODBRecordset '定义记录集对象，保存数据表

‘工具 ---〉引用 ---〉Microsoft ActiveX data objects

'下面两句就不需要增加引用ADO

Set cn = CreateObject("AdodbConnection")

Set rs = CreateObject("AdodbRecordset")

Dim strCn As String, strSQL As String '字符串变量

Dim strCond As String

strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串

'下面的语句将读取数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表

strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定义SQL查询命令字符串

cnOpen strCn '与数据库建立连接，如果成功，返回连接对象cn

rsOpen strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中

i = 2

Set sht = ThisWorkbookWorksheets("Test") '把sht指向当前工作簿的Test工作表

Do While Not rsEOF '当数据指针未移到记录集末尾时，循环下列 *** 作

shtCells(i, 1) = rs("CUSTOMER_NAME") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列

rsMoveNext '把指针移向下一条记录

i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行

Loop '循环

rsClose '关闭记录集，至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数

cnClose '关闭数据库链接,释放资源

End Sub

下面是读取一个EXCEL文件并将其写入数据库的代码实例，亲测通过：

注意：EXCEL里面的列名称要和数据库里的字段相同

<%

i=0

Dim cn,oConn,connstr

'打开XLS

Set cn = ServerCreateObject("ADODBConnection")

cnProvider = "MicrosoftJetOLEDB40 "

cnConnectionString = "Data Source=" & ServerMapPath("listxls") & ";" & _

"Extended Properties=Excel 80;"

cnOpen

'打开MDB

connstr="DBQ="+serverMapPath("TESTmdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (mdb)};"

set oConn=serverCreateObject("ADODBCONNECTION")

oConnopen connstr

'读取数据

set rsRead=serverCreateObject("ADODBRecordset")

rsReadOpen "select from [list$]",cn,1,1

do until rsReadEOF

'写入数据库

oConnExecute("Insert into eer(mc)Values('"& rsReadFields("mc") & "')" )

rsReadMoveNext

i=i+1

loop

responsewrite("<p align=center>成功导入"&i&"条数据</p><br>")

responseWrite("<p align=center><a href=javascript:windowclose()>关闭窗口</a></p>")

%>

您可以使用Python来获取Excel表头作为MySQL字段。首先，您需要使用Python的xlrd模块来读取Excel表格，然后使用MySQLdb模块来连接MySQL数据库，创建表，并将Excel表格中的表头作为MySQL字段。具体的步骤如下：

1 使用xlrd模块读取Excel表格，获取表头；

2 使用MySQLdb模块连接MySQL数据库，创建表；

3 将Excel表格中的表头作为MySQL字段，并设置字段类型；

4 使用MySQLdb模块将数据插入MySQL数据库；

5 关闭MySQL数据库连接。

这样，您就可以使用Python获取Excel表头作为MySQL字段了。

以上就是关于pb中，如何将excel中某些内容作为数据库的字段导入数据库全部的内容，包括:pb中，如何将excel中某些内容作为数据库的字段导入数据库、EXCEL VBA怎么读写SQLSERVER 数据库、如何用asp读取Excel文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！