討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 網路投保旅行平安險 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
vb 2010 字串比對
更改我的閱讀文章字型大小
作者 : hunterpink(hunterpink)
[ 貼文 7 | 人氣 100 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/1/12 下午 06:49:07

  ' 顯示正常 , 但比對 四個 , 只有 找到二個 台積電 寶電子


Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
    
DataGridView2.DataSource = CSVFileToDT("C:\Users\tiensz\Documents\new\20141231.csv")

'載入全部上市公司

     Dim str1, str2 As String
     str1 = "Insert Into Taiwan50 (日期,華亞科) values (" & TextBox1.Text
     For x As Integer = 0 To 900 Step 1
    
str2 = DataGridView2.Rows(x).Cells.Item("證券名稱").Value.ToString()
     ' 顯示正常 , 但比對 四個 , 只有 找到二個 台積電 寶電子
 If str2 = "和碩" Or str2 = " Or str2 = "聯電" Then
     str1 = str1 & "," & DataGridView2.Rows(x).Cells.Item(1).Value.ToString() '新增資料指令"
     MessageBox.Show(str1, "成功", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
     End If

     'Dim cmd As OleDbCommand = New OleDbCommand(str1, con)
     'cmd.Connection = con
     'cmd.ExecuteNonQuery()
     'con.Close()
     '顯示成功新增記錄的訊息()
     Next
     str1 = str1 & ")"
     MessageBox.Show(str1, "成功新增", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
    End Sub
作者 : hunterpink(hunterpink)
[ 貼文 7 | 人氣 100 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/1/12 下午 06:52:34
程式碼 發錯了

Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
     DataGridView2.DataSource = CSVFileToDT("C:\Users\tiensz\Documents\new\20141231.csv")
     Dim str1, str2 As String
     str1 = "Insert Into Taiwan50 (日期,華亞科) values (" & TextBox1.Text
     For x As Integer = 0 To 900 Step 1
     str2 = DataGridView2.Rows(x).Cells.Item("證券名稱").Value.ToString()

     If str2 = "和碩" Or str2 = "台積電" Or str2 = "寶電子" Or str2 = "聯電" Then

     str1 = str1 & "," & DataGridView2.Rows(x).Cells.Item(1).Value.ToString() '新增資料指令"
     MessageBox.Show(str1, "成功", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
     End If

     'Dim cmd As OleDbCommand = New OleDbCommand(str1, con)
     'cmd.Connection = con
     'cmd.ExecuteNonQuery()
     'con.Close()
     '顯示成功新增記錄的訊息()
     Next


     str1 = str1 & ")"
     MessageBox.Show(str1, "成功新增", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
    End Sub
作者 : kagaya(kagaya) VC++優秀好手C++優秀好手貼文超過1000則人氣指數超過30000點
[ 貼文 1599 | 人氣 38709 | 評價 4590 | 評價/貼文 2.87 | 送出評價 115 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/1/13 上午 09:53:04
> For x As Integer = 0 To 900 Step 1

確定是900?
學習用sql指令吧
這個沒人在用迴圈的 效能太差了吧
作者 : hunterpink(hunterpink)
[ 貼文 7 | 人氣 100 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/1/15 下午 04:35:32
問題是解決了

但 不知道是為什麼

     str2 = DataGridView2.Rows(x).Cells.Item("證券名稱").Value.ToString()

改成 str2 = rtrim(DataGridView2.Rows(x).Cells.Item("證券名稱").Value.ToString()

好像不只是 3 個字 與 2 個字 的不同

我曾經用 3個字 , 也是找不到

另外

請問 這樣改, 效率較好 , 還另有高招

   For x As Integer = 0 To DataGridView.Rows.Count -1 Step 1

作者 : danking(丹尼爾)
[ 貼文 51 | 人氣 761 | 評價 110 | 評價/貼文 2.16 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/1/17 下午 11:48:33
在 DataTable 中透過 Select 將特定資料找出來後,取回 Length 就可以知道有幾筆資料囉.

參考資料
http://msdn.microsoft.com/zh-tw/library/y06xa2h1.aspx
http://msdn.microsoft.com/zh-tw/library/system.data.datatable.select%28v=vs.110%29.aspx
 板主 : 徵求中
 > Microsoft Visual Studio 2008 - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Microsoft Visual Studio 2008 - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Microsoft Visual Studio 2008
1 joe 270 
2 Raymond 90 
3 marlon 70 
4 丹尼爾 50 
5 好說 50 
6 smfy 50 
7 小誠 20 
8 愛睏魚 20 
9 水瓶天賞 20 
10 ozzy 10 
Microsoft Visual Studio 2008
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.015625