Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Февраль 2008 →
	1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 266

http://www.kbyte.ru/

Новый выпуск!

Ну что я могу сказать, погода не летная, но на выпуск рассылки это никак не повлияло. Читайте! Если будут вопросы, пишите нам на E-Mail или воспользуйтесь общедоступным форумом (регистрация не требуется).

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #000764: Програмное определение позиции меню в vb6

Вопрос #000754: HttpWebRequest и HttpWebResponse

Вопрос #000745: Проблема с компонентом WINSOCK

Вопрос #000743: C#, forms

Вопрос #000735: Localization and DataBase

Последнее на форумах

Перевод с vb на vb.net = проблемка

zip-файл String'om через POST

kak soxranit word dokument risunkami na SQL

Проблема подключения к базе данных

С днем рождения!

Последние статьи

Как узнать размер базы данных MySQL через php

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

Работа с SQL – Запросы

Использование XML.Serialization

Выбор языка программирования для научных работ (2-я редакция)

Интересные коды и решения

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #000764: Програмное определение позиции меню в vb6

Автор вопроса: Иван Денишев // 16.02.2008 / 23:24

Здравствуйте уважаемые эксперты!
 Говорят, что вы можете ответить на любой вопрос.
 Как программно в vb6 узнать, на каком пункте меню находится курсор.
 Для примера, возьмём меню "файл".
 Caption   |   Name
 Файл   |   MnuFile
 Создать   |   MnuFileNew
 Открыть   |   MnuFileOpen
 Ну, и пожалуй,
хватит. И так будет понятно.
 Запускаем программу и жмём: либо f10, либо alt.
 Затем стрелку вниз.
 Меню "Создать", выделится другим цветом.
 Так вот, как программно получить, где находится курсор?
 Ведь, в vb нету свойства GotFocus у менюшек.
 Очень надеюсь на вашу помощь!
 ---
 С уважением: Иван Денишев.

Отвечает: Алексей Немиро // 17.02.2008 / 10:12

Здравствуйте, Иван.
 
 ВНИМАНИЕ: Данный пример довольно опасный, и может привести к зависанию Visual Basic!
 
 Скачать готовый пример можно тут: http://kbyte.ru/Code/Samples/form1.zip
 
 Создайте новый EXE-проект, на форме разместите
Timer и вставьте следующий код:
 
 Код формы:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
Option Explicit

Private Sub Form_Load()
 gHW = Me.hwnd
 Hook
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Unhook
End Sub

Private Sub Timer1_Timer()
 Me.Caption =
SelectedMenuString
End Sub

 
 Также добавьте несколько элементов меню.
 Дополнительно создайте новый модуль и вставьте следующий код:
 
 Код модуля:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
Option Explicit

Public SelectedMenuString As
String 'здесь будет заголовок выбранного элемента меню

Private Declare Function CallWindowProc Lib "user32" _
  Alias "CallWindowProcA" (ByVal lpPrevWndFunc As
Long, _
  ByVal hwnd As Long, ByVal Msg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As
Long

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal
nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetMenu Lib "user32" _
 (ByVal
hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _
 (ByVal hMenu As Long, ByVal nPos
As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _
 (ByVal hMenu As Long) As Long

Private Declare Function GetMenuState Lib "user32" _
 (ByVal hMenu As Long, ByVal wID As Long, _
  ByVal
wFlags As Long) As Long

Private Declare Function GetMenuString Lib "user32" _
  Alias "GetMenuStringA" (ByVal hMenu As
Long, _
  ByVal wIDItem As Long, ByVal lpString As String, _
  ByVal nMaxCount As Long, ByVal wFlag As Long) As
Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_HILITE = &H80&
Private Const WM_MENUSELECT = &H11F
Private Const
GWL_WNDPROC = -4

Public lpPrevWndProc As Long
Public gHW As Long

Public Sub Hook()
  'Begin hooking into messages.
  lpPrevWndProc = SetWindowLong(gHW,
GWL_WNDPROC, _
  AddressOf WindowProc)
End Sub

Public Sub Unhook()
  'Cease hooking into messages.
  SetWindowLong gHW, GWL_WNDPROC, lpPrevWndProc
End Sub

Function AnyLit(hSubSubMenu
As Long) As Long
  Dim i As Long
  Dim MenuCount As Long

  'Get the number of items in the menu.
  MenuCount =
GetMenuItemCount(hSubSubMenu)

  'Loop through the menu items.
  For i = 0 To MenuCount - 1
    'Check whether this item is highlighted.
    If GetMenuState(hSubSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      AnyLit = True
      Exit Function
    End If
  Next i

  'Return
FALSE, no items highlighted.
  AnyLit = False
End Function

Private Sub WalkSubMenu(hSubMenu As Long)
  Dim i As Long
  Dim
MenuItems As Long
  Dim hSubSubMenu As Long
  Dim buffer As String
  Dim result As Long

  'Get the count of
menu items in this menu.
  MenuItems = GetMenuItemCount(hSubMenu)

  'Loop through all the items on the menu.
  For i = 0 To MenuItems - 1
    'Determine whether this item is highlighted.
    If
GetMenuState(hSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      'Attempt to get a submenu for each menu item.
      hSubSubMenu = GetSubMenu(hSubMenu, i)

      'Check for a submenu with something selected on it.
      If hSubSubMenu And AnyLit(hSubSubMenu) Then
        'There is a submenu with a selection so walk it.
        WalkSubMenu hSubSubMenu
      Else
        buffer = Space(255)
        result = GetMenuString(hSubMenu, i, buffer, Len(buffer), MF_BYPOSITION)
        buffer = Left$(buffer, result)
        SelectedMenuString = GetDescription(buffer)
        Exit
Sub
      End If
    End If
  Next i
End Sub

Public Sub FindHilite(TheForm As Form)
  Dim hMenu As Long
  Dim hSubMenu As Long
  Dim i As Long
  Dim MenuCount As Long

  'Clear
any previous description.
  SelectedMenuString = ""

  'Get the menu handle.
  hMenu = GetMenu(TheForm.hwnd)

  'Check to see if there is no menu.
  If hMenu <> 0 Then
    'Get the number of top-level menus.
    MenuCount = GetMenuItemCount(hMenu)

    'Enumerate through all top-level menus.
    For i = 0 To MenuCount - 1
      'Ignore top-level menus
not currently selected.
      If GetMenuState(hMenu, i, MF_BYPOSITION) And _
          MF_HILITE Then
        'Get a handle to the submenu.
        hSubMenu = GetSubMenu(hMenu, i)

        'Walk the submenu.
        WalkSubMenu hSubMenu
      End If
    Next i
  End If
End Sub

Private Function GetDescription(MenuCaption As String) As String
 GetDescription = MenuCaption
End Function

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 If uMsg = WM_MENUSELECT
Then
  FindHilite Form1
 End If
 WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

 
 При выборе элемента меню в переменной SelectedMenuString будет текст заголовка выбранного элемента меню.

Вопрос #000754: HttpWebRequest и HttpWebResponse

Автор вопроса: Сергей // 13.02.2008 / 23:01

Здравствуйте.
 Алексей Сергеевич в статье "Взаимодействие с другими сайтами через HTTP" хорошо описал, как можно программно заполнить
и отправить Web-форму и получить результат. Спасибо. А как быть, если есть защита от автоматов? Т.е. как отобразить имиджи с цифрами, получить и отправить выбранный вручную ответ? Спасибо.
 
 --------------------------------------
 Категория: --- C# (Си шарп)
 
 

Отвечает: Алексей Немиро // 14.02.2008 / 03:35

Здравствуйте, Сергей.
 
 Для этого придется икать уязвимости в самой CAPTCHA, «проще всего» разобраться с картинкой, которая в url содержит код, по которому она была сгенерирована.
 
  http://www.captcha.ru/breakings/ 
 
 Также можно попробовать написать распозновалку картинок, но это уже зависит от ее кривизны и
окраски, чем меньше кривизны и меньше цветов, тем больше вероятность написать нормальную распозновалку.
 
 Либо придется подключать человека, отдавать ему картинки и чтобы он сам вручную вводил номера.
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000745: Проблема с компонентом WINSOCK

Автор вопроса: Дмитрий // 10.02.2008 / 15:57

Уважаемые Эксперты!
 Помогите решить вот такую проблему: создал приложение с использованием сокетов но на других компьютерах оно не запускается из-за того что якобы отсутствует компонент MSWINSCK.OCX. Как можно решить эту проблему?
 Заранее спасибо
 
 --------------------------------------
 Категория: --- Visual Basic 5.0/6.0

Отвечает: Алексей Немиро // 10.02.2008 / 16:09

Здравствуйте, Дмитрий!
 
 Файл MSWINSCK.OCX
можно найти в папке WINDOWS\system32 Вашего
 компьютера. Чтобы Ваша программа работала на другом компьютере, Вам
 необходимо перенести этот файл, и возможно зарегистрировать его.
 Регистрация компонентов производится программой regsvr32.exe,
 которую можно найти в той же папке (system32). Для регистрации достаточно
 перетащить файл компонента (mswinsck.ocx) на файл regsvr32.exe в проводнике Windows. 
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000743: C#, forms

Автор вопроса: "Slonov K." // 09.02.2008 / 14:05

 
 Добрый день.
 C# .
 Есть форма(Form1) с кнопкой, при нажатии на неё создаётся другая
 форма(Form2).
 
  private void button1_Click(object sender, EventArgs e)
     {
       Form2 Fr = new Form2();
       Fr.Show();
     }
 
  Вопрос : как добиться чтобы чтобы при повторном нажатии на эту же
  кнопку не создавалось ещё одно окно(типа Form2) , а просто
  становилось становилось активным уже существующее Fr.
  Заранее спасибо.

 Костя
 
  З.Ы. Может я что то принципиально не так делаю?

Отвечает: EROS // 10.02.2008 / 18:36

Здравствуйте
 Подобного поведения можно добиться различными способами, вот один из
 них:
 
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
private void button1_Click(object sender, EventArgs e)
    {
      foreach
(Form item in Application.OpenForms)
      {
        if (item is Form2)
        {
          item.Focus();
          return;
        }
      }

      Form2 frm = new Form2();
      frm.Show();
    }

 
 -- 
 С уважением,
 EROS             mailto:eros@fromru.com

Вопрос #000735: Localization and DataBase

Автор вопроса: Taleh Mikailov // 05.02.2008 / 15:36

Здравствуйте уважаемые эксперты! 
 На свой вопрос, что написал прошлый раз не получил ответа. В связи с этим решил более подробнее обьяснить ситуацию и более точно сформулировать свой вопрос... 
 Мне нужно включить в Веб Приложение поддержку локализации
из Баз Данных. 
 Долго искал, по этому вопросу, какой-нибудь материал в сети. 
 Мое внимание привлекла вот эта статья: www.microsoft.com/rus/msdn/publish/articles/asap.mspx
 После того, как прочитал статью, для примера создал не большое приложение и одну таблицу в Базе Данных() 
 Таблица(StringResources) из Базы Данных(CustomResourceProviderSample)
 
 resourceType     | cultureCode  |resourceKey                      | resourceValue
 Default.aspx          en      lbHelloLocalResource1.Text
          Hello(en)
 Default.aspx          en      lbLanguageLocalResource1.Text       English(en)
 Default.aspx          en      lbWelcomeLocalResource1.Text       Welcome(en)
 Default.aspx          en      hlAboutCompanyLocalResource1.Text   About Company(en)
 Default.aspx          en      hlContactUsLocalResource1.Text       Contact Us(en)
 Default.aspx          en      hlLearnMoreLocalResource1.Text       Learn More(en)
 Default.aspx          en      btnSendDemoMailLocalResource1.Text
 Send Demo Mail(en)
 AboutCompany.aspx   en       lbCompanyNameLocalResource1.Text   MatrixSoftware(en)
 AboutCompany.aspx   en      Literal1LocalResource1.Text          "Текст с описанием фирмы(en)"
 AboutCompany.aspx   en      hlContactUsLocalResource1.Text       Contact Us(en)
 AboutCompany.aspx   en      btnBackLocalResource1.Text           Main Page(en)
  
 Обращение к ресурсам осуществляю следующим образом:
 
 this.lbHello.Text = HttpContext.GetLocalResourceObject("Default.aspx",
"lbHelloLocalResource1.Text") as string;
 
 Одним словом строго следую указаниям из статьи...
 Проблема в том, что при компиляции приложения получаю 8 ошибок:
 
 Error 1 The type or namespace name 'ResourceProviderFactory' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProviderFactory.cs 11 46 CustomResourceProviders
 
 using System;
 
 using System.Web;
 
 using System.Diagnostics;
 
 using System.Globalization;
 
 using System.Resources;
 
 using System.Threading;
 
 namespace CustomResourceProviders
 
 {
 
 public class DBResourceProviderFactory : ResourceProviderFactory
 
 {
 
 public override IResourceProvider CreateGlobalResourceProvider(string classKey)
 
 {
 
 Debug.WriteLine(String.Format(CultureInfo.InvariantCulture,
"DBResourceProviderFactory.CreateGlobalResourceProvider({0})", classKey));
 
 return new DBResourceProvider(classKey); 
 
 }
 
 public override IResourceProvider CreateLocalResourceProvider(string virtualPath)
 
 {
 
 Debug.WriteLine(String.Format(CultureInfo.InvariantCulture, "DBResourceProviderFactory.CreateLocalResourceProvider({0}", virtualPath));
 
 // we should always get a path from the runtime
 
 string classKey
= virtualPath;
 
 if (!string.IsNullOrEmpty(virtualPath))
 
 {
 
 virtualPath = virtualPath.Remove(0, 1);
 
 classKey = virtualPath.Remove(0, virtualPath.IndexOf('/') + 1);
 
 }
 
 return new DBResourceProvider(classKey);
 
 }
 
 }
 
 }
 
 -----------------------------------
 
 Error 2 The type or namespace name 'Compilation' does not exist in the namespace 'System.Web' (are you missing an assembly reference?)
C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProvider.cs 2 18 CustomResourceProviders
 
 using System.Web.Compilation;             <-????
 
 ------------------------------------------
 
 Error 3 The type or namespace name 'DisposableBaseType' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProvider.cs
17 36 CustomResourceProviders
 
 namespace CustomResourceProviders
 
 {
 
 /// <summary>
 
 /// Resource provider accessing resources from the database.
 
 /// This type is thread safe.
 
 /// </summary>
 
 public class DBResourceProvider : DisposableBaseType, IResourceProvider           <- ????????
 
 {
 
 private string m_classKey;
 
 private StringResourcesDALC m_dalc;
 
 //
resource cache
 
 private Dictionary<string, Dictionary<string, string>> m_resourceCache = new Dictionary<string, Dictionary<string, string>>();
 
 /// <summary>
 
 /// Constructs this instance of the provider 
 
 /// supplying a resource type for the instance. 
 
 /// </summary>
 
 --------------------------------------------
 
 Error 4 The type or namespace name 'IResourceProvider' could not be found (are
you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProvider.cs 17 56 CustomResourceProviders
 
 ------------------------------------
 
 Error 5 The type or namespace name 'Security' does not exist in the namespace 'System.Web' (are you missing an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceReader.cs
5 18 CustomResourceProviders
 С этой разобрался!
 
 Error 6 The type or namespace name 'DisposableBaseType' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceReader.cs 23 34 CustomResourceProviders
 
 Error 7 The type or namespace name 'IResourceProvider' could not be found (are you missing a using directive or an assembly
reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProviderFactory.cs 14 25 CustomResourceProviders
 
 Error 8 The type or namespace name 'IResourceProvider' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProviderFactory.cs 20 25 CustomResourceProviders
 
 Совсем НЕ уверен, что делаю все как надобно, поэтому обращаюсь к вам !!!
 Очень прошу помочь !!!
 
 Буду рад получить от вас замечания и исправления !!!
 Заранее благодарю!!!

Отвечает: EROS // 08.02.2008 / 03:47

Здравствуйте.
 Судя по описанию ошибок вы не подключили необходимые библиотеки либо
 не указали нужную директиву using
 
 
 -- 
 С уважением,
 EROS

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Перевод с vb на vb.net = проблемка | Автор: DANger
Добавлено: 19.02.2008 / 11:29 | ответов: 1 | просмотров: 38

Привет всем ..
Пытаюсь переписать по vb под нет ..
Студия выдаёт ошибку .. MSDN говорит что то про инициализацию .. хотя в vb всё работает !
'UPGRADE_WARNING: Event txtSend.TextChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2075"'
Private Sub txtSend_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles txtSend.TextChanged
tcpClient.SendData(txtSend.Text)
End Sub
Помогите плизз кто сталкивался ..
Как это должно выглядеть правильно под vb.net ..

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: 5acred Phoenix
Добавлено:19.02.2008 / 20:52
Сам-то обработчик события верный.. Покажи, что у тебя в Form_Load()

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

zip-файл String'om через POST | Автор: bobsapp
Добавлено: 19.02.2008 / 10:38 | ответов: 0 | просмотров: 21

народ, доброго времечка!
по ходу работы отправляю список значений на сервер, но потом глянул, что можно отправлять просто зазипованный файл стрингом, т.к. в виде значений текстовый файл весит примерно 450кб, а запакованный в зип всего 25кб, так вот вопрос, как на сервере можно принять этот стринг-зип чтоб распаковать в памяти и уже работать непосредственно со значениями?
библиотеку думаю подключать Ionic.Utils.Zip

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

kak soxranit word dokument risunkami na SQL | Автор: agakamran
Добавлено: 14.02.2008 / 11:07 | ответов: 1 | просмотров: 74

Pomaqiti pojalusta esli ktoto etom problemoy stalknulsa .
zadacha takoe textvoe dokument s risunkami,ili matematicheski formulu nado soxranit na SQL dateBase

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:14.02.2008 / 11:10
Думаю, можно сохранить в поле типа binnary.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Проблема подключения к базе данных | Автор: Korkinet
Добавлено: 13.02.2008 / 14:07 | ответов: 9 | просмотров: 242

Добрый день!
Нужна помощь. Есть сайт на классическом ASP + mdb. Всё работало хорошо (последний раз проверял месяц назад). Вдруг отказывается подключаться к базе данных. Вроде ничего не менял. Простую ASP страницу показывает без проблем, но при попытке подключения выдаёт ошибку на метод open подсоединения. connectionstring не менялся. Переустановка MDAC и IIS ничего не дала.
Строка подкючения: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb")

Выдаёт ошибку:
Microsoft JET Database Engine (0x80004005)
Unspecified error

Помогите, кто может!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: BigDan
Добавлено:13.02.2008 / 15:10

Попробуй еще вот так

dbPath = Server.MapPath("data.mdb")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:13.02.2008 / 15:28
1. Проверьте, чтобы файл базы данных был закрыт и не был заблокирован
какой-нибудь программой. Бывают случае, когда на компе открыт сам
Access, а файл бд вроде как закрыт, и выпадает такая же ошибка.

2. Проверьте права доступа к файлу, проверьте, чтобы не стоял атрибут ReadOnly

3. Проверьте целостность файла базы данных (открывается ли он в Access, или нет)

--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Korkinet
Добавлено:13.02.2008 / 15:47
Всё открывается без проблем. Делает Compact&Repair, во время попытки подключения Аксесс не открыт (да и вообще он при этом обычно другую ошибку выдаёт). Короче, что-то очень странное.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:14.02.2008 / 04:34

код в студию!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: Korkinet
Добавлено:14.02.2008 / 07:33
001:
002:
003:
004:
005:
006:
Dim connection,connectionString
connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb")
Set connection=server.createobject("adodb.connection")
connection.open connectionString

Colorized by: Eros.CodeSyntaxColor Engine

Ошибку выдаёт в 4-ой строке.
Но я же говорю: месяц назад всё работало, ничего не трогал. А сейчас проверил, ни один проект не подключается. Как оказалось и на ASP.NET тоже. Но там ошибок не выдаёт, а просто данные не вытаскивает.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: BigDan
Добавлено:14.02.2008 / 17:06
Set Conn = Server.CreateObject("ADODB.Connection")

dbPath = Server.MapPath("data.mdb")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath

Set rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM home ORDER BY home_id"

rs.Open strSQL, Conn, 2,2 или 3,3

ну я честно незнаю попробуй вот на основании своего подставить мой код, у меня этот код пашет

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: Алексей
Добавлено:15.02.2008 / 04:29
А с другими файлами БД такие же проблемы?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: Korkinet
Добавлено:15.02.2008 / 18:30
Чую я, что с системой творится что-то неладное... Какие-то глюки подозрительные пошли. В блокноте, для примера, опция View->Status bar вдруг стала недоступна. Связи, конечно, никакой, но уже подозрительно. У меня все базы на Аксессе, но с другими та же байда.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 9 | Автор: Алексей
Добавлено:16.02.2008 / 02:30
Видимо дрова поломались, можно еще раз попробовать все удалить, MDAC и IIS и весь офис снести, а также, если перед поломкой ставился какой-то софт, можно попробовать его удалить. У меня недавно был глюк, поставил Adobe Flash CS 3 и Visual Studio 2005 отказывалась корректно работать, я долго мучался, готов был винду снести, пока не догадался удалить весь софт, который недавно ставил :)

Еще ODBC надо бы проверить, и журнал системный почитать..

В блокноте, для примера, опция View->Status bar вдруг стала недоступна

Формат -> Перенос по словам (убрать)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

С днем рождения! | Автор: Алексей
Добавлено: 13.02.2008 / 06:19 | ответов: 2 | просмотров: 92

Сегодня Kbyte.Ru исполняется 2 года!

С днем рождения Kbyte.Ru!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: BigDan
Добавлено:13.02.2008 / 15:06
Поздравляю В первую очередь людей создавших этот сайт, который не просто висит в инете а реально помогает веб программерам веб-мастерам и вообще людям которые связаны с вебом, пусть у вас все будет ОК, процветания вам, вашему сайту, побольше креативных идей, пользователей которые будут присоединяться к вашему сайту, ну и конечно здоровья всем вам!!! Большое вам спасибо вы молодцы!!!

С уважением Big Dan!!!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Игорь Голов
Добавлено:15.02.2008 / 00:42
Поздравляю с Днём Рождения!
Сайт очень полезный!

Именно с него началась моя личная Новая Эра в программировании! Сайту и создателям больших жизненных Удач!
Так держать!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 47

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 2811

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 5229

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 1461

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 4102

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как отправить файл в корзину? (!API!)
Дата добавления: 24.03.2007 / 12:23 | просмотров: 1281 | платформа: VB .NET

Как преобразовать цвет в Web-стандарт?
Дата добавления: 24.03.2007 / 11:37 | просмотров: 810 | платформа: VB .NET

Как узнать, в какой папке находится приложение?
Дата добавления: 01.08.2006 / 20:29 | просмотров: 1098 | платформа: VB

Как ограничить количество вводимых символов в TextBox?
Дата добавления: 31.07.2006 / 13:59 | просмотров: 1697 | платформа: ASP .NET (VB)

Как программно дополнить заголовок (Title) страницы?
Дата добавления: 31.07.2006 / 13:27 | просмотров: 1138 | платформа: ASP .NET (VB)

Как проверить, подключен компьютер к интернет или нет?
Дата добавления: 24.03.2007 / 12:36 | просмотров: 1446 | платформа: VB .NET

Как определить, какие кнопки мыши нажаты?
Дата добавления: 16.08.2006 / 19:45 | просмотров: 1272 | платформа: VB

Поиск и замена
Дата добавления: 16.08.2006 / 18:54 | просмотров: 1476 | платформа: VB

Любое число не равное нулю
Дата добавления: 24.03.2007 / 11:31 | просмотров: 797 | платформа: RegEx

Поиск и замена символов/слов/строк
Дата добавления: 31.07.2006 / 12:28 | просмотров: 2814 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Свечи с ментолом!
Свежесть не только дыхания...

Рейтинг: 147
Всего голосов: 222