关于VB与数据库的问题,急~~~~·

来源:百度知道 编辑:UC知道 时间:2024/06/28 17:22:28
我想用VB实现 EXCEL与SQL SERVER 之间的数据转换,请高手给我些思路和想法吧,怎么写才能完成它们俩之间的转换呢,谢谢了,
问题补充:比如我把EXCEL里的数据用TEXTBOX控件在VB的窗体上显示出来了,那怎么样才能把这些显示的数据导入到SQL server里呀?我是个菜鸟,大家帮帮忙,会再加分的

建立ODBC数据源系统DSN,访问和写入都是一样的,不用转

将text1(n)控件数组与excel数据库(用data控件)的字段绑定,自动读取
再将text2(n)控件数组与SQL数据库(用data控件)的字段绑定
搞一个按钮,点了以后text1(n)赋值到text2(n),update一下SQL的data控件

用VB是可以直接读取Excel数据的!
只要添加引用就可以调用Excel控件了!
菜单->Project->references添加->Microsoft Excel 11.0 Object library
然后把数据插入到SqlServer数据库里面即可啊!
连接数据库调用ADO连接即可,同样需要添加引用
菜单->Project->references添加->Microsoft ActiveX Data Object 2.5 Library

连接Excel
Dim objExcelApp As Excel.Application
Dim objSheet As Excel.Worksheet
dim str as string
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open "test.xls", , True
objExcelApp.Visible = False
objExcelApp.DisplayAlerts = False

Set objSheet = objExcelApp.ActiveWorkbook.Sheets("Sheet1")
str = objSheet.Cells(1, 6).Value
objExcelApp.Workbooks(1).SaveAs SavePath
objExcelApp.ActiveWorkbook.Close