这是有点儿奇怪,我已经剥夺了它的熊骨头的代码仍然没有做它用来做什么...也许我不能见树树林,但我不能看到我做错了 - 基本上,我打电话从SQL服务器中的数据 - 通过一个循环的拉动在这个例子中,它只是做一个MDB文件上。 ..我创建了一个按钮,按下时,它出口的数据*。txt文件=不这样做了,它创建的txt文件,但不追加数据,有什么想法吗??
<pre lang="xml"><%@ Page Language="VB" Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat="server" Language="VB" >
'Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim intBtnClkCount As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles writeButton.Click
intBtnClkCount += 1
' writeButton.Visible = False
End Sub
Sub objWriter(ByVal s As Object, ByVal e As EventArgs)
Dim FILE_NAME As String = "C:\Users\Fe\Desktop\xml\test.f"
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet
Dim I As Long
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("storage1.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * from samplesource", DBConn)
DBCommand.Fill(DSPageData, _
"samplesource")
For I = 0 To DSPageData.Tables("samplesource").Rows.Count - 1
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
lblMessage.Text = lblMessage.Text _
& "<BR>Processed Record: " _
& DSPageData.Tables("samplesource"). _
Rows(I).Item("s1")
objWriter.Close()
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form id="Form1" runat="server">
<BR><BR>
<asp:label
id="lblMessage"
runat="Server"/><asp:Button ID="writeButton" Text="Write" runat="server"
OnClick="objWriter" />
</form>
</BODY>
</HTML>