作者sunnycat (小乌龟慢慢爬~)
看板Visual_Basic
标题[.NET]如何将txt或listbox档内容汇入资料库access的指定栏位
时间Mon Dec 11 18:55:29 2006
目前在做一个编写动态歌词时间的程式~
假设已选取singer及songname
要将listbox的内容汇入"song"这个资料表中~与"songname"同行的"lyrics"栏位中
就是我目前编的曲名是A要将他丢如A所在那一行的lyrics中(资料类型是设备忘)
因为不知道怎麽将listbox直接一行行丢入(要分行)
所以想说先将他丢到txt档中
Try
File.Delete("..\TestFile.txt")
Dim sw As StreamWriter = New StreamWriter("..\TestFile.txt")
For i = 0 To ListBox3.Items.Count - 1
sw.WriteLine(ListBox3.Items.Item(i))
Next
sw.Close()
Catch Ex As Exception
Console.WriteLine("无法找到档案:")
Console.WriteLine(Ex.Message)
End Try
End If
但是现在想将他丢入access中~却不成功(access是自动连结的...)
Dim songnumber As Integer
songnumber = Me.ComboBox2.SelectedValue
Dim strTemp As String
Dim sr As StreamReader = New StreamReader("..\TestFile.txt")
strTemp = sr.ReadLine
While Not strTemp Is Nothing
Me.DataSet21.Tables("Song").Rows(songnumber).Item("Lyrics") = (strTemp)
strTemp = sr.ReadLine
Me.OleDbDataAdapter1.Update(DataSet21)
End While
sr.Close()
不知道是哪边有问题....资料库这边是完全没有反应的...
想请问该如何将txt丢入access中?
以及listbox可以直接分行丢入access资料型态是备忘的指定栏位吗??
会想用txt丢入是因为原本未编辑的歌词档是从txt档放入listbox的...所以存档时才想说
将他也丢入txt档
麻烦了....
--
深爱着的蓝色小花
▁▁
我在有限的生命中等待着他的绽放 ▕透明▏
▕小猫▏
▔▔
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.17.10.94
1F：→ sunnycat:资料库没问题了~~是songnumber有问题.... 12/19 14:19