none
資料庫迴圈判斷疑問 RRS feed

  • 問題

  • 使用VB6撰寫

    printpcs=列印張數(任意輸入)

    Text1(1).text=起始值(任意輸入)

    假設Text1(1).text=2345,printpcs=2

    寫入資料庫應該要寫入2345,2346 這兩筆

    但目前我的做法只會寫入2345,2345

    請問一下我哪邊需要做修改呢

    Dim i As Integer
    
    For i = 1 To printpcs
    
    Call DataAdd
      
    Next
    

    Function DataAdd()
    
    
                          cmfind.CommandText = "insert into Pick_Data" & _
                                "(" & _
                                "PD001,PD002,PD003,PD004,PD005,PD006" & _
                                ") " & _
                          "values(" & _
                                "'" & Trim(Text1(0).Text) & "','" & Trim(Combo1.Text) & "'," & _
                                "'" & Trim(Format(Text1(1).Text, "0000")) & "','" & Text2.Text & "'," & _
                                "'" & Format(Now, "hh:mm:ss") & "','" & Trim(Text2.Text) + Trim(Format(Text1(1).Text, "0000")) & "' " & _
                                ")"
                          cmfind.Execute
    End Function

    2016年9月20日 上午 02:45

解答

  •                       cmfind.CommandText = "insert into Pick_Data" & _
                                "(" & _
                                "PD001,PD002,PD003,PD004,PD005,PD006" & _
                                ") " & _
                          "values(" & _
                                "'" & Trim(Text1(0).Text) & "','" & Trim(Combo1.Text) & "'," & _
                                "'" & Trim(Format(CInt(Text1(1).Text)+i-1, "0000")) & "','" & Text2.Text & "'," & _
                                "'" & Format(Now, "hh:mm:ss") & "','" & Trim(Text2.Text) + Trim(Format(CInt(Text1(1).Text)+i-1, "0000")) & "' " & _
                                ")"
    • 已標示為解答 yiyi.Chen 2016年9月20日 上午 03:29
    2016年9月20日 上午 02:55

所有回覆

  •                       cmfind.CommandText = "insert into Pick_Data" & _
                                "(" & _
                                "PD001,PD002,PD003,PD004,PD005,PD006" & _
                                ") " & _
                          "values(" & _
                                "'" & Trim(Text1(0).Text) & "','" & Trim(Combo1.Text) & "'," & _
                                "'" & Trim(Format(CInt(Text1(1).Text)+i-1, "0000")) & "','" & Text2.Text & "'," & _
                                "'" & Format(Now, "hh:mm:ss") & "','" & Trim(Text2.Text) + Trim(Format(CInt(Text1(1).Text)+i-1, "0000")) & "' " & _
                                ")"
    • 已標示為解答 yiyi.Chen 2016年9月20日 上午 03:29
    2016年9月20日 上午 02:55
  • 已解決問題囉

    謝謝

    2016年9月20日 上午 03:31