Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Читаем и базы и сравниваем с переменной. / 14 сообщений из 14, страница 1 из 1
29.12.2006, 10:15
    #34232062
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
Охохохонюшки... Последний рабочий день года, а у меня тупизм напал.
Есть таблица с н-ными данными, надо из неё считать данные запросом "SELECT cet FROM Firmas WHERE RegNuM=" &regnum , если что-то найдено надо "UPDATE Firmas SET cet=" & cet1 & " WHERE RegNum=" & regnum

мож кто зжалится и подскажет кусок кода? а?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 10:22
    #34232088
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
А зачем вообще нужен первый запрос? Не понял вашей логики.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 10:31
    #34232115
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
идея в том что если есть сей номер в таблице надо обновить только cet , а если нет такого то записать до фея чего и до фея куда.


хотя может и не нужен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 10:33
    #34232122
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
путем получасового сидения в отуплении стал такой код.. естессно не рабочий...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
   Set testfornum = conn.Execute("SELECT cet FROM Firmas WHERE Numurs = " & tempstr)
   If testfornum <> "" Then
   cet1 = testfornum & "," & cet
   sqlupd = "UPDATE Firmas SET cet=" & cet1 & " WHERE Numurs=" & tempstr
   conn.Execute sqlupdate
   Else
    statement = "INSERT INTO Firmas (Numurs, Nosaukums, gads, lietind, cet, vieta, parko)" & _
        " VALUES ('" & tempstr & "', '" & name & "','" & year & "', '" & lietind & "', '" & cet & "', '" & vieta & "', '" & parko & "')"
    ' Execute the statement.
 ''  conn.Execute statement, , adCmdText
   End If
typemismatch..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 11:22
    #34232273
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
коммент перед конн.Екзекуте не существует. эт для теста ставил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 12:46
    #34232543
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
Melkiades верно говорит - первый запрос не нужен: если там есть чего то он и так проапдейтится а если нету то и апдейтить нечего, по тому же условию.

//typemismatch..
Весь код выкладывай, с обьявлениями.

Ошибка здесь?
Set testfornum = ...
либо здесь
If testfornum <> "" Then

Этот testfornum есть что? Ты ему SET делаешь как обьекту а потом в строковое преобразование пихаешь... горячий финский парень.
Я что один на работе трезвый? :)
Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 14:10
    #34232771
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
Magnus23Я что один на работе трезвый? :)Счасливчег...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2006, 19:13
    #34233382
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
Чтобы не заморачиваться не буду объснять где ошибки, луше сделайте вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
   dim RowAffected as long
   RowAffected =  0 
   sqlUpdate = "UPDATE Firmas SET cet='" & cet1 & "' WHERE Numurs='" & tempstr & "'"
   conn.Execute sqlUpdate, RowAffected
   if RowAffected =  0  then
    statement = "INSERT INTO Firmas (Numurs, Nosaukums, gads, lietind, cet, vieta, parko)" & _
        " VALUES ('" & tempstr & "', '" & name & "','" & year & "', '" & lietind & "', '" & cet & "', '" & vieta & "', '" & parko & "')"
    ' Execute the statement.
 ''  conn.Execute statement, , adCmdText
   End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2007, 11:41
    #34236597
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
сенькс.

но все же запрос селект мне нужен. в нем я считываю cet существующий в таблице. он мне нужен для формирования cet1.

там логика такая. есть 4 файла в каждом хранится инфа по фирмам. каждый файл описывает определенный квартал года. я по очереди обрабатываю каждый файл. если фирма работала в первом, третьем и четвертом квартале, надо при обработке первого файла записать в cet 1, при обработке третьего надо что бы в таблицу записалось 1, 3 . И т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2007, 17:22
    #34237205
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim db As Database
Dim rs As Recordset
Dim temp As String
Set db = OpenDatabase("c:\windows\desktop\prog\db1.mdb")
Set rs = db.OpenRecordset("SELECT Field1 FROM Table1 WHERE Field1 = '123'") <<<< Error
'" & tempstr & "'")
temp = rs("Field")
rs.Close

вылезает ошибка. Data type mismatch in criteria expression.
Да какие там типы ему не нравятся? или у меня руки не от туда?

я убью себя... дайте стену.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2007, 18:15
    #34237289
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
WHERE Field1 = '123'")
temp = rs("Field")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2007, 10:21
    #34237917
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
ой. это не увидел. но проблема осталась...
он в rs ничего не пишет...
rs = Nothing

------
Если некоторых людей смешать с дерьмом, получится однородная масса (с) Народ страны, которой нет
______
ПЛБТФ БК
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2007, 10:26
    #34237925
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
А без Where что-нибудь есть? Я к тому, что может быть тип поля не стринг?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2007, 10:27
    #34237928
Poet
Poet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Читаем и базы и сравниваем с переменной.
Тьфу. Нашел... Виноваты кривые руки. В таблице Field1 был Number.
Всем Огромное Спасибо.



------
Если некоторых людей смешать с дерьмом, получится однородная масса (с) Народ страны, которой нет
______
ПЛБТФ БК
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Читаем и базы и сравниваем с переменной. / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 423ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164725]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 156ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 203ms
total:  423ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]