vb.net引用qsl的简单介绍

vb.net连接excel

在项目中添加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是什么东西

分享文章：vb.net引用qsl的简单介绍
URL分享：http://scyanting.com/article/dsiipoc.html