0

パラメータを使用してリストアイテムをSQLite3データベースに挿入したいのですが、機能しません。エラーも発生しません。

これが私のコードです:

strSQL = "insert into tbltrans2 (transid, flddate, itemcode, itemname, qty, price, total, btw, btwper) values ( ?,?,?,?,?,?,?,?,?)"
Using cn As New SQLiteConnection("Data Source=" + Application.StartupPath + "\POS.s3db; Version=3;"), _
    cmd As New SQLiteCommand(strSQL, cn)

    cmd.Parameters.Add("?", DbType.String).Value = txtTransId.Text
    cmd.Parameters.Add("?", DbType.Date).Value = txtDate.Text
    cmd.Parameters.Add("?", DbType.Double)
    cmd.Parameters.Add("?", DbType.Double)
    cmd.Parameters.Add("?", DbType.Double)
    cmd.Parameters.Add("?", DbType.Double)
    cmd.Parameters.Add("?", DbType.Double)
    cmd.Parameters.Add("?", DbType.Double)
    cmd.Parameters.Add("?", DbType.Double)

    cn.Open()
    For Each ls As ListViewItem In ListItems.Items
        cmd.Parameters(2).Value = ls.Tag
        cmd.Parameters(3).Value = ls.SubItems(0).Text
        cmd.Parameters(4).Value = (ls.SubItems(1).Text)
        cmd.Parameters(5).Value = (ls.SubItems(2).Text)
        cmd.Parameters(6).Value = (ls.SubItems(3).Text)
        cmd.Parameters(7).Value = (Double.Parse(ls.SubItems(5).Text) / 100) * (Double.Parse(ls.SubItems(3).Text)).ToString("#,##0.00")
        cmd.Parameters(8).Value = Double.Parse(ls.SubItems(5).Text)

        cmd.ExecuteNonQuery()
        MsgBox(strSQL)
     Next ls
     cn.Close()
 End Using
4

1 に答える 1

0

これを行うことができます...値を消去するだけですか?...次に、cmd.parameters.add。(Dbtype.String).value =txtTransId.Text....にすべての値をテキストに入れます。

strSQL = "insert into tbltrans2 (transid, flddate, itemcode, itemname, qty, price, total, btw, btwper)"
Using cn As New SQLiteConnection("Data Source=" + Application.StartupPath + "\POS.s3db; Version=3;"), _
    cmd As New SQLiteCommand(strSQL, cn)

    cmd.Parameters.Add( DbType.String).Value = txtTransId.Text
    cmd.Parameters.Add( DbType.Date).Value = txtDate.Text
    cmd.Parameters.Add( DbType.Double).Value = "The TEXT HERE"
    cmd.Parameters.Add( DbType.Double).Value = "The TEXT HERE"
    cmd.Parameters.Add( DbType.Double).Value = "The TEXT HERE"
    cmd.Parameters.Add( DbType.Double).Value = "The TEXT HERE"
    cmd.Parameters.Add( DbType.Double).Value = "The TEXT HERE"
    cmd.Parameters.Add( DbType.Double).Value = "The TEXT HERE"
    cmd.Parameters.Add(DbType.Double).Value = "The TEXT HERE"

    cn.Open()
    For Each ls As ListViewItem In ListItems.Items
        cmd.Parameters(2).Value = ls.Tag
        cmd.Parameters(3).Value = ls.SubItems(0).Text
        cmd.Parameters(4).Value = (ls.SubItems(1).Text)
        cmd.Parameters(5).Value = (ls.SubItems(2).Text)
        cmd.Parameters(6).Value = (ls.SubItems(3).Text)
        cmd.Parameters(7).Value = (Double.Parse(ls.SubItems(5).Text) / 100) * (Double.Parse(ls.SubItems(3).Text)).ToString("#,##0.00")
        cmd.Parameters(8).Value = Double.Parse(ls.SubItems(5).Text)

        cmd.ExecuteNonQuery()
        MsgBox(strSQL)
     Next ls
     cn.Close()
 End Using
于 2013-03-15T00:37:33.720 に答える