Jayanta Modak Ответов: 1

Ошибка, показывающая в listview data add time, пожалуйста, помогите мне...

Некоторые ошибки, отображаемые в listview data add time, пожалуйста, помогите мне...
Пожалуйста, помогите мне
Ошибка — imgbb.com[^]


001 — imgbb.com[^]

Что я уже пробовал:

Public Sub Displayitemrpt1()
        If cn.State = ConnectionState.Open Then
            cn.Close()
        End If
        cn.Open()
        Dim cmd As New OleDb.OleDbCommand("SELECT * FROM pur_invdet, item WHERE pur_invdet.ItemID=item.itemid and purinvid BETWEEN '" & TextBox1.Text & " And " & TextBox1.Text & "'  ORDER BY slno  ", cn)
        Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
        ListView1.Items.Clear()
        Do While dr.Read()
            Dim new_item As New  _
                     ListViewItem(dr.Item("slno").ToString)
            new_item.SubItems.Add(dr.Item("itmcod").ToString)
            new_item.SubItems.Add(dr.Item("itemnm").ToString)
            new_item.SubItems.Add(dr.Item("catid").ToString)
            new_item.SubItems.Add(dr.Item("Qty").ToString)
            new_item.SubItems.Add(dr.Item("MRP").ToString)
            new_item.SubItems.Add(dr.Item("Rate").ToString)
            new_item.SubItems.Add(dr.Item("dis").ToString)
            new_item.SubItems.Add(dr.Item("tax").ToString)
            new_item.SubItems.Add(dr.Item("TaxableAmt").ToString)
            new_item.SubItems.Add(dr.Item("taxnetamt").ToString)
            new_item.SubItems.Add(dr.Item("Amount").ToString)
            new_item.SubItems.Add(dr.Item("ItemID").ToString)
            ListView1.Items.Add(new_item)
        Loop
        cn.Close()
    End Sub

1 Ответов

Рейтинг:
10

Jochen Arndt

Вместо того чтобы предоставлять ссылки на изображения, просто добавьте сообщение об ошибке к вашему вопросу.

Это сообщение об ошибке совершенно ясно:
"Между оператором без и в выражении запроса"

Так что с вашим SQL-оператором что-то не так. And:

SELECT * FROM pur_invdet, item WHERE pur_invdet.ItemID=item.itemid and purinvid BETWEEN '" & TextBox1.Text & " And " & TextBox1.Text & "'  ORDER BY slno  "
Вокруг отсутствуют одинарные кавычки And:
SELECT * FROM pur_invdet, item WHERE pur_invdet.ItemID=item.itemid and purinvid BETWEEN '" & TextBox1.Text & "' And '" & TextBox1.Text & "'  ORDER BY slno  "

Кажется, произошла еще одна ошибка: Вы передаете то же самое значение в BETWEEN параметры (TextBox1.Text) так что с помощью BETWEEN бесполезный. Я думаю, что второй параметр должен быть чем-то вроде TextBox2.Text Чтобы избежать таких ошибок, используйте лучшие имена переменных, такие как TextBoxStartId и TextBoxEndId.

Jayanta Modak

спасибо сэр,
Это делается в соответствии с вашим предложением или заказом. Большое спасибо.