объект DataAdapter.заполните несоответствие типов данных в выражении критериев.
Я действительно не знаю, в чем проблема с этим кодом!
<pre lang="vb"> Dim XID As String XID = FormSuppliers.txtcode.Text DataSetSuppliers.Clear() SQLSuppliers = "SELECT * FROM Suppliers WHERE SN = '" & XID & "'" If Conn.State = ConnectionState.Closed Then Conn.Open() End If Dim DataAdapterSuppliers As New OleDbDataAdapter(SQLSuppliers, Conn) DataAdapterSuppliers.Fill(DataSetSuppliers, "Suppliers") Conn.Close() txtcode.DataBindings.Clear() txtname.DataBindings.Clear() txtadd.DataBindings.Clear() txtregion.DataBindings.Clear() txttel.DataBindings.Clear() txtdate.DataBindings.Clear() txtemail.DataBindings.Clear() txttnumber.DataBindings.Clear() txtfnumber.DataBindings.Clear() txtcode.DataBindings.Add("Text", DataSetSuppliers, "suppliers.SN") txtname.DataBindings.Add("Text", DataSetSuppliers, "suppliers.Sname") txtadd.DataBindings.Add("Text", DataSetSuppliers, "suppliers.Address") txtregion.DataBindings.Add("Text", DataSetSuppliers, "suppliers.Region") txttel.DataBindings.Add("Text", DataSetSuppliers, "suppliers.Stel") txtdate.DataBindings.Add("Text", DataSetSuppliers, "suppliers.fDate") txtemail.DataBindings.Add("Text", DataSetSuppliers, "suppliers.email") txttnumber.DataBindings.Add("Text", DataSetSuppliers, "suppliers.Tno") txtfnumber.DataBindings.Add("Text", DataSetSuppliers, "suppliers.Fno")
Кто-нибудь, помогите мне, пожалуйста.
Что я уже пробовал:
Я очень старался, но не смог это исправить, потому что я не профессионал. :(