VB已读取到数据库数据,如何将数据写入Excel表(OLE控件)的某一单元格中,谢谢!
”'定义SQL查询命令字符串strsql="selectpricefromshandong"'执行strSQL所含的SQL命令rs.Openstrsql,cn“如上,如何...
”' 定义SQL查询命令字符串
strsql = "select price from shandong"
' 执行strSQL所含的SQL命令
rs.Open strsql, cn“
如上,如何连接数据库的代码省略,现已执行SQL命令读取到了数据,下一步如何将数据写入Excel表格的某一单元格中(已在form窗体中创建OLE控件,且插入Excel表格)。 展开
strsql = "select price from shandong"
' 执行strSQL所含的SQL命令
rs.Open strsql, cn“
如上,如何连接数据库的代码省略,现已执行SQL命令读取到了数据,下一步如何将数据写入Excel表格的某一单元格中(已在form窗体中创建OLE控件,且插入Excel表格)。 展开
2个回答
推荐于2018-03-26 · 知道合伙人软件行家
关注
展开全部
可对Ole控件关联对象的Excel表格的单元格的Value 属性赋值来写入VB已读到的数据。
Value 属性,返回或设置一个Variant型数,它指定该属性之值,此属性可读/写。
以下是实现代码:
Option Explicit
Dim oBok As Object '定义oBok为Object 数据类型
Private Sub Command1_Click()
OLE1.CreateLink "C:\zhang2012.xls" '打开要写入的Excel表
Set oBok = OLE1.object '将对象引用赋给变量或属性。
oBok.Sheets(1).Range("A1").Value = "VB已读取到数据库数据" '将数据写入Excel表的A列第一行
Set oBok = Nothing '使用 Nothing 关键字被将对象变量从实际对象中分离开来。
End Sub
Object 变量存储为 32 位(4 个字节)的地址形式,其为对象的引用。利用 Set 语句,声明为 Object 的变量可以赋值为任何对象的引用。
注意 虽然以 Object 类型声明的变量足以适应包含对各种对象的引用,但是绑定到变量引用的对象总是在晚期(运行时)绑定。要强迫在早期(编译时间)绑定的话,须将对象的引用赋值给用特定类名称声明的变量。
使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用
Set 语句将 Nothing 赋值给对象变量。例如:
Set MyObject = Nothing
Set 语句,将对象引用赋给变量或属性。
展开全部
在SQL SERVER里往Excel插入数据:
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)
T-SQL代码:
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, produkt) VALUES (20, 'Test')
参考:http://zhidao.baidu.com/link?url=CM9jOXmrtwRPZDTQr7ddV7bwKGe6uSOhSVOr7yM_pcygPzBFFTMKG6X1LKtxgdaBogJC_BgJC4MeiUB9SP76q_
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)
T-SQL代码:
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, produkt) VALUES (20, 'Test')
参考:http://zhidao.baidu.com/link?url=CM9jOXmrtwRPZDTQr7ddV7bwKGe6uSOhSVOr7yM_pcygPzBFFTMKG6X1LKtxgdaBogJC_BgJC4MeiUB9SP76q_
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |