VB 从SQL数据库中把数据导出到Excel表格中，怎么写

Sub dataToExcel()

Dim conn As String

Dim rs As New ADODBRecordset

Dim excel As Object

Dim workbook As Object

Dim sheet As Object

Dim i&, j&

    'SQL数据库的连接字串

    conn = "Provider=SQLOLEDB1;Data source=服务器地址;initial catalog=数据库名称;User Id=数据库登录账号;Password=数据库登录账号"

    '打开到sql的连接，读取xxx表数据到rs

    rsOpen "select  from xxx", conn, adOpenKeyset, adLockReadOnly

    'excel对象、工作簿、工作表

    Set excel = CreateObject("ExcelApplication")

    Set workbook = excelworkbooks()Add()

    Set sheet = workbooksheets(1)

    excelVisible = True

    '循环读取rs并写入到excel

    For i = 1 To rsFieldsCount

        j = 1

        rsMoveFirst

        Do While Not rsEOF

            sheetcells(j, i) = rsFields(i - 1)Value

            rsMoveNext

            j = j + 1

        Loop

    Next

    rsClose

    Set rs = Nothing

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 & ")"

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

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

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

"provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" & CurDir(FilePath)

说明：CurDir(FilePath)表示DBF文件所在的目录,如文件路径为：F:\编程模板\ckrjzdbf,CurDir(FilePath)返回F:\编程模板,但在查询是DBF文件要去文件名后缀，如ckrjzdbf在sql查询时，要把"DBF"去掉如:

select from [ckrjz]

以上就是关于VB 从SQL数据库中把数据导出到Excel表格中，怎么写全部的内容，包括:VB 从SQL数据库中把数据导出到Excel表格中，怎么写、vb用vb编程把数据导入数据库中、用VB做怎么将Excel数据导入SQL数据库中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！