请问如何用VB.NET实现把excel导入access,access到处excel???

hzygz 2009-07-06 11:35:31
如题
...全文
249 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hzygz 2009-07-09
  • 打赏
  • 举报
回复
十分感谢3楼和4楼~~3楼解决了导入的问题,4楼解决了导出的问题 放分 分虽然不多 但代表我的小小心意
hzygz 2009-07-06
  • 打赏
  • 举报
回复
大哥 详细点嘛
CloneCenter 2009-07-06
  • 打赏
  • 举报
回复
Oledb 方式连接到 Access 和 Excel。
tj3004204004 2009-07-06
  • 打赏
  • 举报
回复
access导入access
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

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧