12 / 2 页

楼主: Autistic紅毛丹

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

[复制链接]

宅男-兜着走

2010-9-1 01:02 AM

回复宅男-兜着走

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

...
Autistic紅毛丹发表于 2010-9-1 12:19 AM

Dim info As New DirectoryInfo("C:\Users\JuniorT\Desktop\SampleDirectoryScanner")
Dim files As FileInfo()
files = info.GetFiles()
Dim fileName As String
Dim driveLetter As String
Dim fullPath As String
fileName = files(0).Name
driveLetter = files(0).FullName.ToCharArray(0, 3)
fullPath = files(0).FullName
MessageBox.Show(String.Format("File Name : {0} , Drive Letter : {1}, Full Path : {2} ", fileName, driveLetter, fullPath))

复制代码

Paiseh 我不会VB 的。

重点在这句而已。

driveLetter = files(0).FullName.ToCharArray(0, 3)

复制代码

我从Index 0 的位置后算起 3 个 Char 然后组合成String
Result(Drive Letter)=
C:\

Name 我想你已经会了，
FullName 就是，完整的Path 跟 File Name。

Autistic紅毛丹

2010-9-1 01:26 AM

回复 11# 宅男-兜着走

如果我是要在另外一排（连续19个）同样的text呢？？
从textbox.text拿的？要写进datagridview每一个file name隔壁都一样的东西~

宅男-兜着走

2010-9-1 01:55 AM

回复宅男-兜着走

如果我是要在另外一排（连续19个）同样的text呢？？
从textbox.text拿的？要写进da ...
Autistic紅毛丹发表于 2010-9-1 01:26 AM

我是做到了啦，我不懂你要的是什么，也不懂你的资料来源是如何的。我看你的图片，模仿你的方式做了个。

Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim info As New DirectoryInfo("C:\Users\JuniorT\Desktop\SampleDirectoryScanner")
Dim files As FileInfo()
files = info.GetFiles()
dgFile.Rows.Add(files.Length)
For i = 0 To files.Length - 1
Dim driveLetter As String = files(i).FullName.ToCharArray(0, 3)
dgFile.Rows(i).Cells(0).Value = driveLetter
dgFile.Rows(i).Cells(1).Value = files(i).Name
dgFile.Rows(i).Cells(2).Value = files(i).FullName
Next i
End Sub
End Class

复制代码

dfFile, 是我的DataGridView

Autistic紅毛丹

2010-9-1 02:32 AM

我的出现error-----------
Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.
到底是为什么吖T.T

宅男-兜着走

2010-9-1 02:50 AM

我的出现error-----------
Rows cannot be programmatically added to the DataGridView's rows collectio ...
Autistic紅毛丹发表于 2010-9-1 02:32 AM

啊哈哈哈哈哈哈！！！
因为你用资料绑定的关系。
你是存进DataBase过的吧？？

你有两种做法：
1. 资料库里面存 Driver Letter, Full Path, File Name 这些，意思就是做了计算后，一次过Insert 进去。
2. 存FullPath，然后再来执行计算。

Autistic紅毛丹

2010-9-1 07:06 AM

本帖最后由 Autistic紅毛丹于 2010-9-1 09:28 AM 编辑

回复 15# 宅男-兜着走

哇~感谢您~我弄到了！

宅男-兜着走

2010-9-1 11:50 AM

回复宅男-兜着走

哇~感谢您~我弄到了！
Autistic紅毛丹发表于 2010-9-1 07:06 AM

那么简单就弄到了？

恭喜你

Autistic紅毛丹

2010-9-2 12:07 AM

回复 17# 宅男-兜着走

哎呀~我又有问题鸟..
假如说我已经可以把我的第一个List save到database，当我第二次把datagridview的data update到database是就出现了以下的问题..到底是哪里写错==

宅男-兜着走

2010-9-2 12:55 AM

本帖最后由宅男-兜着走于 2010-9-2 12:57 AM 编辑

回复宅男-兜着走

哎呀~我又有问题鸟..
假如说我已经可以把我的第一个List save到database，当 ...
Autistic紅毛丹发表于 2010-9-2 12:07 AM

我的判断是：

你之前是资料绑定(DataBinding) 进入你的DataGridView，然后你启动Update的时候，没指定的Column 出现，就出了这样的Error。

不过都说是判断了，不准的。

你现在要思考的是，你VB 语句没错，错是错在你的资料操作哪里。

检查你的 Query 看看。

如果不介意，你也能放上你那面的Code，跟你的Table Design，不必害羞。

另外点，我好想看到你的 DataGridView 里面有空值，如果不被允许的话，也是会报错的。

（PM：UI设计到不错，可惜，你的控件没跟着一起变色

）

Autistic紅毛丹

2010-9-7 01:05 PM

回复 19# 宅男-兜着走
http://www.fileden.com/files/2008/11/5/2174223//VBA Project.zip
真的搞不懂~~我太笨了==

12 / 2 页

返回列表

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

浏览过的版块