vb.如何将listbox里的items存进database??

[复制链接]

Autistic紅毛丹

2010-8-30 04:37 PM

请问如何将listbox/listview里面的items save进database里面呢？？(microsoft access)

shippo

2010-8-30 09:34 PM

不知道你不会哪样

如果是不会拿出listBox的item:
mydata=listBox1.items.item(0) '提出第一个items。
要拿出全部item, 先count得到listBox的size...然后for loop...把它放进array(或其他collections type)里..

如果不会database：
建议你去读点书找...要write to database 有很多方法...
dao是其中一种...
你可以试着google：vb.net dao database

Autistic紅毛丹

2010-8-30 10:12 PM

回复 2# shippo

意思是说要一个一个count来要拿出listBox的item吗？
那如果不知道listbox里的items到底有多少个呢？？（因为会随情况变动）

shippo

2010-8-30 10:52 PM

回复 3# Autistic紅毛丹

不是
是用listBox1.items.count 来检查listBox里有几个items....
然后用for loop从第一个item到最后一个item拿出来
example:

Dim myItem() As String
ListBox1.Items.Add("aaaaa")
ListBox1.Items.Add("bbbb")
ListBox1.Items.Add("ccccc")
Dim count As Integer = ListBox1.Items.Count
ReDim myItem(count)
For i = 0 To (count - 1)
myItem(i) = ListBox1.Items.Item(i)
Next

复制代码

Autistic紅毛丹

2010-8-31 02:25 AM

本帖最后由 Autistic紅毛丹于 2010-8-31 01:25 PM 编辑

我已经在add data source 那边添加这个db了
我若是用现成db的source（listbox,）
count了过后

Dim myItem() As String
Dim count As Integer = File_NameListBox.Items.Count
ReDim myItem(count)
For i = 0 To (count - 1)
myItem(i) = File_NameListBox.Items.Item(i)
Me.File_ListBindingSource.AddNew()("File Name") = File_NameListBox.Items(i)

复制代码

是不是这样？

那我问你哟~
如果以上的list都只是资料，我需要在database里每一个资料的旁边加一个name又要怎样？(一样名字)
数目跟i一样~

宅男-兜着走

2010-8-31 12:54 PM

Private Sub OnSelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listItem.SelectedIndexChanged
Dim itm As String = listItem.SelectedItem
// ListBox Selected　Indexx　Changed　事件下执行这个动作 listView 有个Property 叫做Selected Item。
// 看你放进去的DataType 是什么，就宣告成什么dataType 即可。
End Sub
Private Sub OnWindowLoaded(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listItem.Items.Add("Sample Data 1")
listItem.Items.Add("Sample Data 2")
listItem.Items.Add("Sample Data 3")
listItem.Items.Add("Sample Data 4")
// Form Load 事件启动，添加资料进入资料库。
End Sub

复制代码

Autistic紅毛丹

2010-8-31 02:49 PM

Dim folderInfo As New IO.DirectoryInfo(c:\\)
Dim arrFilesInFolder() As IO.FileInfo
Dim fileInFolder As IO.FileInfo
arrFilesInFolder = folderInfo.GetFiles("*.*")
For Each fileInFolder In arrFilesInFolder
File_NameListBox.Items.Add(fileInFolder.Name)
Next

复制代码

我用以上的方式读取了一个directory的file list,请问又要怎样写才能读取subdirectiry的file list呢？？
example:
-------------------------------------
c:\aa.exe
c:\folder\aa.exe
c:\folder\folder\aa.exe
-------------------------------------

Autistic紅毛丹

2010-8-31 10:44 PM

如果我的datagrid view已经有了变动，要怎样才能save去真正的database里面呢、？？

宅男-兜着走

2010-8-31 11:11 PM

如果我的datagrid view已经有了变动，要怎样才能save去真正的database里面呢、？？
Autistic紅毛丹发表于 2010-8-31 10:44 PM

请问你是用什么连接方式？

如果是 TypedDataSet的话，直接Adapter.Update(Table); 就搞定了。
如果是 Ado.net 的话，就得请你自己一个个Loop 出来自己Update了。
如果是 Linq To Sql 的话就直接SubmitChanged()

所以还是请你说出你是怎么操控资料的先。

Autistic紅毛丹

2010-9-1 12:19 AM

回复 9# 宅男-兜着走

这个问题我解决了，因为我之前是用debug来开，不是用原始文件...有心了^^

我想问一下，如图，我的FIle Name已经有资料了，请问要如何家Drive Name呢？？从textbox.text,一连串continiously~

12 / 2 页下一页

返回列表

vb.如何将listbox里的items存进database??

浏览过的版块