用vb将Excel中的数据写入数据库

Private Sub Command1_Click()

Dim fileadd As String

CommonDialog1ShowOpen

CommonDialog1Filter = "xls文件(xls)|xls" '选择你要的文件

fileadd = CommonDialog1FileName

If fileadd = "" Then Exit Sub

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen(fileadd) '打开已经存在的EXCEL工件簿文件

xlAppVisible = False ' = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets(1) '设置活动工作表

For R = 1 To 99999 '行循环

If LTrim(RTrim(xlBookWorksheets(1)Cells(R, 1))) <> "" Then

Call Dosql("INSERT INTO CB_JiXieFeiYong (danwei_name) VALUES (" & LTrim(RTrim(xlBookWorksheets(1)Cells(R, 1))) & ")")

Else

R = 99999 + 1

End If

Next R

xlAppDisplayAlerts = False '不进行安全提示 '

Set xlSheet = Nothing '

Set xlBook = Nothing '

xlAppQuit '

Set xlApp = Nothing

Unload Me

End Sub

Private Sub Dosql(ByVal tn As String) '执行SQL语句

Dim sql As String

Set conn = New ADODBConnection

connConnectionString = condstr

connOpen

connExecute tn

connClose

End Sub

这段代码估计对你有用。

aa=ConExecute ("insert into table(col1,col2,col3) values(" & log1 & "," & log2 & "," & log3 & ")")

或

ConExecute "insert into table(col1,col2,col3) values(" & log1 & "," & log2 & "," & log3 & ")"

必须安装mysql的驱动才行，不管是vb还是c++都需要这个驱动。

代码如下：

public

function

exemysql(byval

sql

as

string)

as

adodbrecordset

sql

=

trim$(sql)

set

conn

=

new

adodbconnection

set

rs

=

new

adodbrecordset

connopen

"driver=mysql

odbc

351

driver;"

&

_

"server=服务器地址;"

&

_

"port=3306;"

&

_

"database=数据库名;"

&

_

"uid=用户名;"

&

_

"pwd=密码"

conndefaultdatabase

=

"数据库名"

conncursorlocation

=

aduseclient

set

rsactiveconnection

=

conn

rslocktype

=

adlockbatchoptimistic

rscursortype

=

adopenkeyset

rsopen

sql

set

exesql

=

rs

set

rs

=

nothing

set

conn

=

nothing

end

function

不用绑定多好啊，直接写sql语句，

insert

into

table2

("usrname")values("myname")

可以为它添加一个ado控件，然后在textbox里选择数据源为ado，再添加按钮就可以插入数据了

用VB做，将Excel数据导入SQL数据库中：

法一:可以试着用VB书写一段调用SQL Server数据库DTS的代码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。

方法二:可以用VB来 作EXCEL,然后一条数据一条数据的 入到数据库中,这种方法不 使用,因为VB 作EXCEL是非常慢的,如果数据量太大,很有可能会造成宕机。

以上就是关于用vb将Excel中的数据写入数据库全部的内容，包括:用vb将Excel中的数据写入数据库、vb用vb编程把数据导入数据库中、vb高手进，vb连接mysql数据库，怎么把数据写入数据库！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！