从Excel导入到SQL Server(表至表)

最新推荐文章于 2024-10-24 12:27:46 发布

myhgyp

最新推荐文章于 2024-10-24 12:27:46 发布

阅读量2.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： sql server excel properties security insert delete

本文链接：https://blog.youkuaiyun.com/myhgyp/article/details/252302

VB 专栏收录该内容

8 篇文章

订阅专栏

博客代码展示了使用ADODB连接SQL Server数据库，设置连接字符串、超时时间后打开连接。先执行删除newsort表数据的操作，再从Excel文件中选取数据插入到newsort表，最后关闭连接并释放对象，实现了SQL Server与Excel的数据交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit
Dim Adocon As ADODB.Connection
Private Sub Form_Load()
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.Open
Adocon.Execute ("delete from newsort")
Adocon.Execute ("insert into newsort(sort_id,sort_name) SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "/carsort1.xls;Extended properties=Excel 5.0')...[carsort1$]")
Adocon.Close
Set Adocon = Nothing
End Sub