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

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
CORJ
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

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

Сообщение CORJ » 15.06.2005 (Ср) 11:26

Ошибка синтаксиса в инструкции 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
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 15.06.2005 (Ср) 13:19

о! ты адресок то выложи))) А мы твою базу то почистим, будь спок
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 15.06.2005 (Ср) 13:23

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

' ,ClientName='fucker

гыгыгыгыгыгыгыг
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

CORJ
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

Сообщение CORJ » 15.06.2005 (Ср) 14:59

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

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 15.06.2005 (Ср) 15:35

У тя поля ClientDiscount и OrgCode строчные?
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 15.06.2005 (Ср) 16:14

Sebas, то ли ты тупишь по-черному, то ли м-р CORJ в том же тоне прикалывается:
Код: Выделить всё
UPDATE clNames OrgName='12345' where OrgCode='1001'

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

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 15.06.2005 (Ср) 16:20

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


Туплю! Я на комментовые строки зырил)))
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

CORJ
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

Сообщение CORJ » 16.06.2005 (Чт) 8:10

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

' объявляем для базы данных переменные
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
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 16.06.2005 (Чт) 9:21

- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

CORJ
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

Сообщение CORJ » 16.06.2005 (Чт) 16:28

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

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 16.06.2005 (Чт) 17:04

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


не сюды, а на свой КОНКРЕТНЫЙ пост
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

CORJ
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

Сообщение CORJ » 16.06.2005 (Чт) 21:37

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

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 17.06.2005 (Пт) 8:29

CORJ писал(а):OrgCode - в программе объявляется как integer


в базе как?
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

CORJ
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

Сообщение CORJ » 17.06.2005 (Пт) 13:36

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

числовой тип данных
ну тебе вообщем так! Баржу самую тихоходную и в Атлантику на корм рыбам...

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 17.06.2005 (Пт) 13:59

Попробуй заменить:
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
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 09.04.2005 (Сб) 22:52

Сообщение CORJ » 17.06.2005 (Пт) 14:34

сделал все типы данных текстовыми и
все равно не получается ничего
база ошиббки не выдает никакие , тем не менее ничего не работает
:-(
ну тебе вообщем так! Баржу самую тихоходную и в Атлантику на корм рыбам...


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList