Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Опять про Oracle, но на этот раз в VB.Net WinForms Добавлено: 19.03.09 14:01  

Автор вопроса:  Millenium | Web-сайт: www.aliyev.us | ICQ: 629966 
Трабла вот какая
написал и приготовил приложение на ASP.Net (VB).
Всё шикарно работает. Все базы, таблицы индексы и пр работают нормально.
Но как всегда пользователи лентяйничают и забывают просматривать сайт (ресурс).
Заказали Windows Form с иконкой в трее который будет мигать, если есть новые записи в определенной таблице с опеределенными параметрами (WHERE что-то = чтото и тд и тп).

ВОт как на VB.Net делать запросы?
Т.е. CommandText = запрос.
И также получить результат.
А результат будет цисловым к стате. (не буду переписывать весь сайт под ВБ).

Так как осуществить выборку
select count(*) from LD_BASE B where b.reciver_id is null

и полуить значение, которое если будет больше 0, то делаю свое дело (мигает иконка в трее и т.д. и т.п.)
Про трей ненадо. С треем работаю нормально.

Просто через что делать запросы?
Какие контроли юзать надо?
Помогите!
Заранее благодарен!

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Сергей



ICQ: 558230345 

Вопросов: 7
Ответов: 91
  Профиль | Цитата | #1 Добавлено: 20.03.09 08:51
  1. Public con As Oracle.DataAccess.Client.OracleConnection = New Oracle.DataAccess.Client.OracleConnection
  2.  
  3. Function create_con(ByVal s_con) As String
  4.         On Error GoTo met
  5.         create_con = ""
  6.         If con.State <> ConnectionState.Closed Then con.Close()
  7.         con.ConnectionString = s_con
  8.         con.Open()
  9.         If con.State <> ConnectionState.Open Then
  10.             create_con = con.State.ToString
  11.         End If
  12.         Exit Function
  13. met:
  14.         create_con = Err.Description
  15.         Err.Clear()
  16.     End Function
  17.  
  18. 'А вот пример запроса
  19.  
  20. Dim rdr As Oracle.DataAccess.Client.OracleDataReader
  21. Dim cmd As Oracle.DataAccess.Client.OracleCommand = con.CreateCommand
  22. If con.State <> ConnectionState.Connecting Then
  23.                         rez = ""
  24.                         rez = Comun.create_con("User Id=User Id;PasswordPassword;Data Source=Data Source;")
  25.                         If rez <> "" Then
  26.                             MsgBox(rez, MsgBoxStyle.Critical, h_msg)
  27.                             Exit Sub
  28.                         End If
  29.                     End If
  30. cmd.CommandText = "select * from TABLE where a=b"
  31. cmd.Prepare()
  32.  rdr = cmd.ExecuteReader
  33.  rdr.Read()
  34.  TextBox1.Text =  rdr(0).ToString.Trim
  35.  rdr.Close()
  36.  cmd.Parameters.Clear()
  37.  cmd = Nothing

Ответить

Номер ответа: 2
Автор ответа:
 Сергей



ICQ: 558230345 

Вопросов: 7
Ответов: 91
  Профиль | Цитата | #2 Добавлено: 20.03.09 08:53
И подключи бибдиотеку ORACLE.DataAccess

Ответить

Номер ответа: 3
Автор ответа:
 Сергей



ICQ: 558230345 

Вопросов: 7
Ответов: 91
  Профиль | Цитата | #3 Добавлено: 20.03.09 08:54
Необходим Оракл клиент(я работаю с 10.2.0.3) и ODAC

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам