Save DataFile as text file plus comma splices. ( DETAILS HERE)

EDN Admin

EDN Admin

Well-known member
Joined
Aug 7, 2010
Messages
12,794
Location
In the Machine
I was trying to save my datafile ( using SQL server, windows 7, 64bits using VS 2010) as a text file. (.txt)

I done that, but the thing it saved in my text file is not my data. It saved the name of my database, take a look at this:
I am using Krypton button. (same command) So I saved it as text file, but it showed me:
LendingProgram.LendingLibraryDataSetTableAdapters.LendingProgramTableAdapter WITH NO comma splice. If you read my code, it should have a comma splice. Like: hello, people, USA, lolz,

I want to have a comma in between every type of the program. Like First name, Richard, Last Name, Wang, ID, 3, ..etc. How would i do that? I already made an example from Richtextbox1, and it worked the way i wanted.
Thank You!

<div style="color:Black;background-color:White; <pre>
<span style="color:Blue; Private <span style="color:Blue; Sub KryptonButton3_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles KryptonButton3.Click
<span style="color:Blue; Dim save <span style="color:Blue; As <span style="color:Blue; New SaveFileDialog
save.Filter = <span style="color:#A31515; "Text files|*.txt"
<span style="color:Blue; If save.ShowDialog() <> Windows.Forms.DialogResult.OK <span style="color:Blue; Then <span style="color:Blue; Exit <span style="color:Blue; Sub
<span style="color:Blue; Dim writer <span style="color:Blue; As <span style="color:Blue; New StreamWriter(File.Create(save.FileName))
<span style="color:Blue; Dim s <span style="color:Blue; As <span style="color:Blue; String
<span style="color:Blue; For i <span style="color:Blue; As <span style="color:Blue; Double = 1 <span style="color:Blue; To LendingProgramTableAdapter.ToString.Length
s = Mid(LendingProgramTableAdapter.ToString.ToCharArray, i, 1)
<span style="color:Blue; If s.<span style="color:Blue; Equals(<span style="color:#A31515; " ") <span style="color:Blue; Then writer.Write(<span style="color:#A31515; ",")
writer.Write(s)
<span style="color:Blue; Next i
writer.Close()
<span style="color:Green; TODO: This line of code loads data into the LendingLibraryDataSet.CheckOut table. You can move, or remove it, as needed.
<span style="color:Green; Me.CheckOutTableAdapter.Fill(Me.LendingLibraryDataSet.CheckOut)
<span style="color:Green; TODO: This line of code loads data into the LendingLibraryDataSet.LendingProgram table. You can move, or remove it, as needed.
<span style="color:Green; Me.LendingProgramTableAdapter.Fill(Me.LendingLibraryDataSet.LendingProgram)
<span style="color:Blue; End <span style="color:Blue; Sub
[/code]

IF YOU ARE CURIOUS, HERE IS ALL MY CODE:

<div style="color:Black;background-color:White; <pre>
<span style="color:Blue; Imports System.IO

<span style="color:Blue; Public <span style="color:Blue; Class Form1

<span style="color:Blue; Private <span style="color:Blue; Sub LendingProgramBindingNavigatorSaveItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles LendingProgramBindingNavigatorSaveItem.Click
<span style="color:Blue; Me.Validate()
<span style="color:Blue; Me.LendingProgramBindingSource.EndEdit()
<span style="color:Blue; Me.TableAdapterManager.UpdateAll(<span style="color:Blue; Me.LendingLibraryDataSet)
<span style="color:Blue; Me.CheckOutBindingSource.EndEdit()
<span style="color:Blue; Me.CheckOutTableAdapter.Update(<span style="color:Blue; Me.LendingLibraryDataSet)
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub Form1_Load(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles <span style="color:Blue; MyBase.Load
<span style="color:Green; TODO: This line of code loads data into the LendingLibraryDataSet.CheckOut table. You can move, or remove it, as needed.
<span style="color:Blue; Me.CheckOutTableAdapter.Fill(<span style="color:Blue; Me.LendingLibraryDataSet.CheckOut)
<span style="color:Green; TODO: This line of code loads data into the LendingLibraryDataSet.LendingProgram table. You can move, or remove it, as needed.
<span style="color:Blue; Me.LendingProgramTableAdapter.Fill(<span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram)

<span style="color:Blue; Me.ReportViewer1.RefreshReport()
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub SearchToolStripButton_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; Try
<span style="color:Blue; Me.LendingProgramTableAdapter.Search(<span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram)
<span style="color:Blue; Catch ex <span style="color:Blue; As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
<span style="color:Blue; End <span style="color:Blue; Try

<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub TextBox1_TextChanged(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles TextBox1.TextChanged
<span style="color:Blue; Me.LendingProgramTableAdapter.Fill(<span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram)
<span style="color:Blue; Me.ReportViewer1.RefreshReport()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub KryptonButton1_Click_1(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles KryptonButton1.Click
<span style="color:Blue; Try
<span style="color:Blue; If RadioButton3.Checked <span style="color:Blue; Then
LendingProgramBindingSource.DataSource = <span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram.<span style="color:Blue; Select(<span style="color:#A31515; "LastName like " & TextBox1.Text & <span style="color:#A31515; "")
<span style="color:Blue; ElseIf RadioButton2.Checked <span style="color:Blue; Then
LendingProgramBindingSource.DataSource = <span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram.<span style="color:Blue; Select(<span style="color:#A31515; "PhoneNumber like " & TextBox1.Text & <span style="color:#A31515; "")
<span style="color:Blue; ElseIf RadioButton1.Checked <span style="color:Blue; Then
LendingProgramBindingSource.DataSource = <span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram.<span style="color:Blue; Select(<span style="color:#A31515; "EmailAddress like " & TextBox1.Text & <span style="color:#A31515; "")
<span style="color:Blue; ElseIf RadioButton4.Checked <span style="color:Blue; Then
LendingProgramBindingSource.DataSource = <span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram.<span style="color:Blue; Select(<span style="color:#A31515; "StreetAddress like " & TextBox1.Text & <span style="color:#A31515; "")
<span style="color:Blue; End <span style="color:Blue; If

<span style="color:Blue; Catch ex <span style="color:Blue; As Exception
MsgBox(<span style="color:#A31515; "Result not found", MsgBoxStyle.Exclamation)
<span style="color:Blue; End <span style="color:Blue; Try
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub KryptonButton2_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles KryptonButton2.Click
LendingProgramBindingSource.DataSource = <span style="color:Blue; Me.LendingLibraryDataSet.LendingProgram
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub KryptonButton3_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles KryptonButton3.Click
<span style="color:Blue; Dim save <span style="color:Blue; As <span style="color:Blue; New SaveFileDialog
save.Filter = <span style="color:#A31515; "Text files|*.txt"
<span style="color:Blue; If save.ShowDialog() <> Windows.Forms.DialogResult.OK <span style="color:Blue; Then <span style="color:Blue; Exit <span style="color:Blue; Sub
<span style="color:Blue; Dim writer <span style="color:Blue; As <span style="color:Blue; New StreamWriter(File.Create(save.FileName))
<span style="color:Blue; Dim s <span style="color:Blue; As <span style="color:Blue; String
<span style="color:Blue; For i <span style="color:Blue; As <span style="color:Blue; Double = 1 <span style="color:Blue; To LendingProgramTableAdapter.ToString.Length
s = Mid(LendingProgramTableAdapter.ToString.ToCharArray, i, 1)
<span style="color:Blue; If s.<span style="color:Blue; Equals(<span style="color:#A31515; " ") <span style="color:Blue; Then writer.Write(<span style="color:#A31515; ",")
writer.Write(s)
<span style="color:Blue; Next i
writer.Close()
<span style="color:Green; TODO: This line of code loads data into the LendingLibraryDataSet.CheckOut table. You can move, or remove it, as needed.
<span style="color:Green; Me.CheckOutTableAdapter.Fill(Me.LendingLibraryDataSet.CheckOut)
<span style="color:Green; TODO: This line of code loads data into the LendingLibraryDataSet.LendingProgram table. You can move, or remove it, as needed.
<span style="color:Green; Me.LendingProgramTableAdapter.Fill(Me.LendingLibraryDataSet.LendingProgram)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; End <span style="color:Blue; Class

[/code]
<br/>
<br/>


<hr class="sig Rich

View the full article
 
Back
Top