从品牌网站建设到网络营销策划,从策略到执行的一站式服务
在项目中添加Excel类库的引用,然后在VB中定义Excel 的Application,WorkBook和Worksheet
创新互联建站主要从事成都网站建设、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务石拐,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
然后对Worksheet中的Range进行操作,不用像Access那样建立ADO什么的连接。
比如
Dim exlApp as Excel.Application = Createobject("Excel.Application")
if exlApp is Nothing then exit sub
dim xBook as Excel.WorkBook=exlApp.Workbook.add
if xBook is Nothing then exit sub
dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add
if xSheet is Nothing Then exit sub
with xSheet
.Range("A1").value="Excel Application Test"
.Range("B1" ":D2").Merge
.Range("B1" ":D2").Value="合并表格内容"
end with
你可以试试连接是否正确。
1、首先打开Visual Studio 2008代码窗口,添加引用。
2、输入以下代码:Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public;(因为是全局变量,所以用Public 来声明)。
4、如果SQL 数据库就在本机,则用以下代码连接。
5、如果代码太长,影响可读性,可以用空格加"_"后,回车换行即可。
在项目A里添加引用,在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件,然后在项目A中添加对这个dll文件的引用。
Private Function ReadFile(ByRef a As String) As String
a = "bian"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = "yuanlai"
ReadFile(a)
''想要的结果就是在这里使用a的值是"bian"
MsgBox(a)
End Sub
===================
以上就可以,不知道你“ByRef a As b”的b是什么东西
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图