yogesh vaidya Ответов: 1

Как добавить параметры date() в качестве базы данных aceess в visual basic


привет,
я пытаюсь выбрать данные по параметрам даты, но он через пустое исключение
plz. предложите мне выбрать дату из моей базы данных access

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

Private Sub MOD_SUB_DATa1()
      grp_invwise.Visible = False
      grp_datewise.Visible = False
      grp_partywise.Visible = False
      If MOD_SUB = 1 Then
          access.addparam("@INVNO", txt_mod_inv_start.Text)
            access.Execquery(" select INVOICE_NO,INVOICE_DATE,PARTY_NAME,INVOICE_AMOUNT_tax,IGST_TAX,CGST_TAX,SGST_TAX,sl_trancode,ID from invoice WHERE INVOICE_NO=@INVNO ")
          If noerrors(True) = False Then MsgBox(access.Exception) : Exit Sub
          dgv_sl.DataSource = access.dbdt

      End If
      If MOD_SUB = 2 Then
          access.addparam1("@INVNO", DateTimePicker1.Value)
          access.Execquery("select INVOICE_NO,INVOICE_DATE,PARTY_NAME,INVOICE_AMOUNT_tax,IGST_TAX,CGST_TAX,SGST_TAX,sl_trancode,ID from invoice WHERE INVOICE_DATE=@INVNO ")
          If noerrors(True) = False Then MsgBox(access.Exception) : Exit Sub
          dgv_sl.DataSource = access.dbdt
      End If
  End Sub

Richard MacCutchan

Какая переменная вызывает исключение?

yogesh vaidya

во втором закрытии mod_sub=2 тогда ...
"@invno" - это переменная параметра, а значение-datetimepicker1
я использую метод private access dbcntorl для подключения базы данных ,
в первом варианте mod_sub=1 я получил оговоренные данные в datagride .
но формат date() здесь не поддерживается

1 Ответов

Рейтинг:
0

Gustav Brock

Значения дат не являются таковыми текст, так:

access.addparam("@INVNO", txt_mod_inv_start.Value)