Доступ к данным из Visual Basic

Привет всем.

Пытаюсь подключиться к БД в MS SQL Server 7.0 из VB6. Так вот, если я подсоединяюсь через копмоненты ADODC - то все OK, а вот через Recordset работать ни в какую не хочет; выдает ошибку "Could not use '.........\aaa.mdf'; file already in use", хотя он (SQL Server) у меня ничем другим вроде бы и не используется. Может кто знает в чем здесь дело?

Заранее спасибо.
C уважением,
Константин

Покажите-ка лучше ваш программный код с момента создания коннекта.

А его (программного кода) в общем-то не так-то уж и много:

Public db as Database


set db=OpenDatabase("c:/aaa/aaa.mdf") '<- ошибка как раз здесь

dim rs as Recordset
set rs=db.OpenRecordset("select * from aaa")

С уважением,
Константин

А вот MSDN советует делать по-другому:

Dim wrkJet As Workspace
Dim dbsPubs As Database

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

Set dbsPubs = wrkJet.OpenDatabase("Publishers", _
dbDriverNoPrompt, True, _
"ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers")

ох, блин, отпиши мыло какое, кинусь в тебя куском проекта рабочего, а попозжей на форуме выложу, а то времени нифига нет :(

Для начала бы неплохо было прочитать в документации как надо устанавливать соединение с MS SQL Server. Там отнюдь не путь к файлу надо указывать, а имя сервера, а также много еще чего, это далеко не ms access.

-- Слон

Не надо использовать DAO, используй для доступа к SQL ADO.

Set Cn = New ADODB.Connection
Cn.ConnectionTimeout = 25
Cn.Provider = "SQLOLEDB"
Cn.Properties("Data Source").Value = m_ServerName
Cn.Properties("Initial Catalog").Value = m_DBName
Cn.Properties("User ID").Value = m_UserName
Cn.Properties("Password").Value = m_Password
Cn.Open

Далее используй полученный коннект для открыти рекордсетов, запуска ХП и т.д.

Удачи.

OK.
Мой e-mail: const_kh@hotmail.com

Заранее спасибо, а также за все остальные ответы тоже.
С уважением,
Константин