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

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Объясните ошибку пажлст!!!!!! Добавлено: 29.12.08 11:43  

Автор вопроса:  tip
ругается на:
Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset

ошибка:
User-defined type not defined

PS:
и вапще нужна помощь!!!
Как можна в одной рабочей книге с одного листа (лист1) обращатся к другому (лист2) как к источнику данных, чтоб на лист2 появились результаты запроса. Вопщем нужно через sql запрос обратится! дело в том, что так данные выводятся очень быстро, простыми командами пака всё отработает пачти 6 минут проходит.

Ответить

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

Номер ответа: 1
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
  Профиль | | #1 Добавлено: 30.12.08 21:08
Ну ты написал, ты тут объявил просто просто АДО конекшон и набор записей. А что дальше ты с ними делаешь уже неизвестно. вот дам тебе небольшой код с моей программы, разберайся, но если честно мне эти функции тоже на форму подсказали.

  1. Public m_db As ADODB.Connection
  2. Public rs As ADODB.Recordset
  3.  
  4. Public Function DBConnect(ByVal szDataBase As String) As Boolean
  5.     On Error GoTo err_h
  6.  
  7.      Set m_db = New ADODB.Connection
  8.      m_db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & szDataBase & ";Persist Security Info=False"
  9.      Call m_db.Open
  10.      DBConnect = True
  11.  Exit Function
  12. err_h:
  13.      DBConnect = False
  14.      Set m_db = Nothing
  15.  End Function
  16.  
  17.  Public Function DBrecordset(ByVal szSQL As String) As Boolean
  18.     On Error GoTo errr
  19.     Set rs = New ADODB.Recordset
  20.      rs.CursorType = adOpenKeyset
  21.      rs.LockType = adLockOptimistic
  22.      rs.Source = szSQL
  23.      rs.ActiveConnection = m_db
  24.      rs.Open
  25.      DBrecordset = True
  26.      Exit Function
  27. errr:
  28.     DBrecordset = False
  29.     Set rs = Nothing
  30.  End Function
  31.  
  32. Public Function Exxit()
  33. Call rs.Close
  34. Set rs = Nothing
  35. Call m_db.Close
  36. Set m_db = Nothing
  37. End Function

Ответить

Страница: 1 |

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



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