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

宅男-兜着走

回复  宅男-兜着走


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

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

1. 
   
2. Dim info As New DirectoryInfo("C:\Users\JuniorT\Desktop\SampleDirectoryScanner")
   
3.         Dim files As FileInfo()
   
4. 
   
5.         files = info.GetFiles()
   
6. 
   
7.         Dim fileName As String
   
8.         Dim driveLetter As String
   
9.         Dim fullPath As String
   
10.         fileName = files(0).Name
    
11.         driveLetter = files(0).FullName.ToCharArray(0, 3)
    
12.         fullPath = files(0).FullName
    
13. 
    
14.         MessageBox.Show(String.Format("File Name : {0} , Drive Letter : {1}, Full Path : {2} ", fileName, driveLetter, fullPath))
    

复制代码

Paiseh 我不会VB 的。

重点在这句而已。

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

复制代码

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

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

Autistic紅毛丹

回复 11# 宅男-兜着走

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

宅男-兜着走

回复  宅男-兜着走

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

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

1. 
   
2. Public Class Form1
   
3. 
   
4. 
   
5.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   
6.         Dim info As New DirectoryInfo("C:\Users\JuniorT\Desktop\SampleDirectoryScanner")
   
7.         Dim files As FileInfo()
   
8.         files = info.GetFiles()
   
9. 
   
10.         dgFile.Rows.Add(files.Length)
    
11. 
    
12.         For i = 0 To files.Length - 1
    
13.             Dim driveLetter As String = files(i).FullName.ToCharArray(0, 3)
    
14.             dgFile.Rows(i).Cells(0).Value = driveLetter
    
15.             dgFile.Rows(i).Cells(1).Value = files(i).Name
    
16.             dgFile.Rows(i).Cells(2).Value = files(i).FullName
    
17. 
    
18.         Next i
    
19. 
    
20.     End Sub
    
21. End Class
    

复制代码

dfFile, 是 我的DataGridView

Autistic紅毛丹

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

宅男-兜着走

我的出现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紅毛丹

回复 15# 宅男-兜着走

哇~感谢您~我弄到了！

宅男-兜着走

回复  宅男-兜着走

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

那么简单就弄到了？
恭喜你

Autistic紅毛丹

回复 17# 宅男-兜着走


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

宅男-兜着走

回复  宅男-兜着走


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

我的判断是：

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

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

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

检查你的 Query 看看。

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

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

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

Autistic紅毛丹

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