Я запускаю простое тестовое приложение, которое открывает соединение OLEDB, получает одно значение, а затем закрывает. Скомпилированное (консольное) приложение работает нормально, но запуск его из IDE вызывает либо закрытие без вывода сообщений (если это приложение winforms), либо сбой vshost32.exe, если это консольное приложение.
Значение devenv составляет VB 2010 Express
в Windows x64, но у меня есть диспетчер конфигурации для решения, установленного на «Отладка» - «x86». ![enter image description here](https://i.stack.imgur.com/pzNyb.png)
Imports System.Data.OleDb
Module Module1
Sub Main()
Dim server As String = "xxxxx"
Dim username As String = "xxxxx"
Dim password As String = "xxxxx"
Dim schema As String = "xxxxx"
Dim connectionString As String = String.Format( _
"Provider=SLXOLEDB.1;Data Source={0};Initial Catalog={3};User ID={1};Password={2};Extended Properties=LOG=ON;Connect Timeout=5;", _
server, username, password, schema)
Dim con As OleDbConnection = New OleDbConnection(connectionString)
con.Open()
Dim query As String = "SELECT USERID FROM USERSECURITY WHERE USERCODE=?"
Dim cmd As New OleDbCommand(query, con)
cmd.Parameters.AddWithValue("usercode", username)
Dim userid As String = cmd.ExecuteScalar.ToString
Console.WriteLine("UserID is {0}", userid)
cmd.Parameters.Clear()
con.Close()
con = Nothing
End Sub
End Module