一个关系到小弟是否下岗的问题,望高手指点...

Question

我只知道在vb中怎么做，vb.net没用过不知道啊

Answer 1

我也是知道在VB中的做法，如果你需要，EMAIL我。
[email protected]

Answer 2

.NET 问题以后此类问题请发到NET技术->VB.NET论坛。
先读出数据，然后用Microsoft Excel x.0 Object Library中提供的对象写入Excel中（需安装Excel 95/97/2000/XP）。右键单击工程，选择添加引用（Add Reference...），单击COM标签页，选择Microsoft Excel Object Library。
用对象浏览器 浏览此库的对象模型，然后进行编写。由于本人尚未熟悉.NET的数据库编程，因此不能列出全部代码。但可提供一个具体思路。（未经验证）新建一个Excel.Application对象Excel1。
Dim Excel1 As New Excel.Application()用Excel1.Workbooks集合（基于1）的Add方法添加工作薄Wb1。
Dim Wb1 As Excel.Workbook=Excel1.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)在工作簿Wb1选择第1个工作表
Dim Ws1 As Excel.Worksheet=Wb1.Worksheets(1)用Ws1.Name设置工作表名称：
Ws1.Name="Test"用Ws1.Cells集合设置单元格（A1为Ws1.Cells(1,1)，B2为Ws1.Cells(2,1)，依此类推）
Ws.Cells(1,1)="Using VB.Net to Create an Excel Workbook"
Ws.Cells(2,1)="使用VB.Net来创建一个Excel工作簿"
Ws.Cells(3,1)=Now
也可用Ws1.Range方法获得许多个单元格的集合序列。（用法：Object.Range(起始单元格,终止单元格)
Dim r As Excel.Range=Ws.Range("A2","B5")设置为粗体：把A2:B5设置为粗体
r.Font.Bold=True

Answer 3

跟vb一样.用Microsoft Excel 10.0 Object Library中提供的对象写入Excel中,
创建一个Excel对象,添加worksheep,到如数据,保存,退出.
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey

Answer 4

Dim cnnstr1,cnnstr2 As String
        Dim strResult() as String ‘输出的存放处
        Dim mySelectQuery As String = "SELECT  column1,column2 FROM table WHERE 条件" '按条件查两个字段出来
        System.Data.OleDb.OleDbCommand(mySelectQuery, Me.OleDbConnection1)
        Dim myReader As System.Data.OleDb.OleDbDataReader
        Try
            Me.OleDbConnection1.Open()
            myReader = myCommand.ExecuteReader()　‘执行查询
            '读取SQL选出的数据
            Dim i as integer = 0
            While myReader.Read()　’循环查结果有几条记录
                cnnstr1 = myReader.GetString(0) 'column1结果
　　　　　　　　cnnstr2 =myReader.GetString(1)　'column2结果
　　　　　　　　strResult(i)=cnnstr1+";"+cnnstr2 '按要求进行存放
                i+=1
            End While
            '关闭读取
            myReader.Close()
            '关闭连接
            Me.OleDbConnection1.Close()
        Catch ex1 As System.Exception
            Throw ex1
        End Try
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey