作者BigGreenFly (好大只的绿色苍蝇)
看板Visual_Basic
标题Re: [.NET] 请问如何用VB语法将SQL理想要的资料写ꐠ…
时间Fri Sep 26 22:32:56 2008
※ 引述《fumizuki (蒙面加菲狮)》之铭言
: 给你一个范例
: Imports System.Data.SqlClient
: Imports System.IO
: Imports System.Text
: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
: Handles Me.Load
: Dim ConnectionString As String
: Dim cn As New SqlConnection()
: Dim cmd As New SqlCommand, dr As SqlDataReader = Nothing
: Try
: '连线至SQL Server
: ConnectionString = "Data Source=执行个体名称;" & _
: "Initial Catalog=资料库名称;" & _
: "User ID=帐号;Password=密码;"
: cn.ConnectionString = ConnectionString
: cn.Open()
: '取得资料
: cmd.Connection = cn
: cmd.CommandText = "sql查询语法"
: dr = cmd.ExecuteReader()
: '读取并写入资料至档案
: Dim sw As New StreamWriter("档案路径", True, Encoding.Default)
: Do While dr.Read()
: sw.WriteLine(dr("栏位名称").ToString())
: Loop
: sw.Close()
: Catch ex As Exception
: '错误处理
: Label1.Text = ex.Message
: Finally
: '不管有没有错误，结束时都要关闭连接
: If Not dr Is Nothing AndAlso Not dr.IsClosed Then dr.Close()
: If Not cn Is Nothing AndAlso cn.State <> _
: Data.ConnectionState.Closed Then cn.Close()
: End Try
: End Sub
谢谢大大提供的程式码
不过当我要捞多个栏位时
ex:
栏位 A123 B123 C123 D123 E123
值 1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
如果说我要捞A~D栏位的话
TXT档案捞出来会变成
1
2
3
4
5
1
2
3
4
5
.
.
全部都变成一排
而我希望捞出来可以是4排
就像ex那样
而且每排之间有空格
希望大大能为我解答
感恩>"<
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.120.147.154
1F：推 fumizuki:把每一个资料列中所有栏位的值组合成一个字串再WriteLine 09/27 20:54
2F：→ BigGreenFly:大大 抱歉 把栏位的值串起来我不太懂，如果说我每个 09/27 23:47
3F：→ BigGreenFly:栏位都各有一百个值，假设我今天要捞四个栏位的话， 09/27 23:48
4F：→ BigGreenFly:那就要把这四百个值都串起来吗？ 抱歉我是新手 希望 09/27 23:50
5F：→ BigGreenFly:没有烦到你 T_T 09/27 23:51