16,549
社区成员
发帖
与我相关
我的任务
分享
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String
Dim connstr As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=asds.mdb" '"Provider=MSDAORA;Data Source=test.mdb;PassWord=xgzc_sc;user id=xgzc_sc;data source=xgmis" '
Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(connstr)
Dim cmd As System.Data.OleDb.OleDbCommand
Try
cn.Open()
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
sql = "select top 65535 * into [Excel 8.0;database=" + SaveFileDialog1.FileName + "].[Sheet1] from RECORDS"
cmd = New System.Data.OleDb.OleDbCommand(sql, cn)
cmd.ExecuteNonQuery()
cn.Close()
cn.Dispose()
cn = Nothing
End If
Catch ex As Exception
MsgBox(ex.ToString)
cn.Dispose()
End Try
End Sub
End Class