База данных возвращает ошибку

[CORJ]

Ошибка синтаксиса в инструкции UPDATE

Код: Выделить всё


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OrgCode = Me.Session("OrgCode")
        OrgName = OrgNameText.Text()
        OrgAdr = OrgAdrText.Text()
        OrgPers = OrgPersText.Text()
        MngName = MngNameText.Text()
        ' изменение записи
        Dim SelSQLOrgName As String = "UPDATE clNames OrgName='12345' where OrgCode='1001'"
        Dim conUPD As New System.Data.OleDb.OleDbConnection()
        Dim cmdName As New System.Data.OleDb.OleDbCommand(SelSQLOrgName, conUPD)
        'Dim SelOrgAdr As String = "UPDATE clNames SET ClientName='" & cnFirm & "' WHERE id_Client=" & CInt(Request("id"))
        'Dim SelSQLOrgPers As String = "UPDATE clNames SET ClientPhone='" & cnTel & "' WHERE id_Client=" & CInt(Request("id"))
        'Dim SelSQLMngName As String = "UPDATE clNames SET ClientDiscount='" & cnDis & "' WHERE id_Client=" & CInt(Request("id"))
        conUPD.ConnectionString = ConnectionString
        conUPD.Open()
        cmdName.ExecuteNonQuery()

        conUPD.Close()

    End Sub

вот такой вот код

там закометнины неиспользуемые строчки - они правельные или нет?
вроде все по рабочим примерам сделано , в чем там проблема можетбыть ???

[Sebas]

о! ты адресок то выложи))) А мы твою базу то почистим, будь спок

[Sebas]

такие телефоны бывают?

' ,ClientName='fucker

гыгыгыгыгыгыгыг

[CORJ]

адресок в локальной сети, я по dialupу выхожу
так в чем там дело может быть?

[Sebas]

У тя поля ClientDiscount и OrgCode строчные?

[Ennor]

Sebas, то ли ты тупишь по-черному, то ли м-р CORJ в том же тоне прикалывается:

Код: Выделить всё

UPDATE clNames OrgName='12345' where OrgCode='1001'

А кто будет SET писать после имени таблицы? Между прочим, в закомментированном коде он есть...

[Sebas]

Sebas, то ли ты тупишь по-черному, то ли м-р CORJ в том же тоне прикалывается:

Туплю! Я на комментовые строки зырил)))

[CORJ]

короче я всех запутал , вот текст программы без всего ненужного

' объявляем для базы данных переменные
Dim SelSQLOrgName As String = "UPDATE clNames SET OrgName='12345' where OrgCode='1001'"
Dim conUPD As New System.Data.OleDb.OleDbConnection()
Dim cmdName As New System.Data.OleDb.OleDbCommand(SelSQLOrgName, conUPD)

' делаем в ней изменения

conUPD.ConnectionString = ConnectionString
conUPD.Open()

cmdName.ExecuteNonQuery()

conUPD.Close()

всё.

ошибка "Несоответствие типов данных в выражении условия отбора."
кстати в книжке по вб.нет написано без SET

[Sebas]

http://bbs.vbstreets.ru/viewtopic.php?p=129762#129762

[CORJ]

непонял я,зачем Sebas еще раз ссылку на сюда запостил

[Sebas]

непонял я,зачем Sebas еще раз ссылку на сюда запостил

не сюды, а на свой КОНКРЕТНЫЙ пост

[CORJ]

OrgCode - в программе объявляется как integer

[Sebas]

OrgCode - в программе объявляется как integer

в базе как?

[CORJ]

база *.mdb-шная

числовой тип данных

[Алексей К.]

Попробуй заменить:
Dim SelSQLOrgName As String = "UPDATE clNames SET OrgName='12345' where OrgCode='1001'"
На без опострофов 'хххх', получается что поле числовое - а ты
условие отбора как строку передаешь:
Dim SelSQLOrgName As String = "UPDATE clNames SET OrgName='12345' where OrgCode=1001"

[CORJ]

сделал все типы данных текстовыми и
все равно не получается ничего
база ошиббки не выдает никакие , тем не менее ничего не работает