abc » 12.07.2004 (Пн) 16:24
Подключение из VB 6.0 к б.д. на SQL Server
1.Програмно создаем User Source
DBEngine.RegisterDatabase "ИмяСервера", "SQL Server", True, "ИмяБД" & vbCr & "Trusted_Connection=Yes"
2.Создаем рабочую область
dim wrkODBC As Workspace
Set wrkODBC = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
3.Подключаемся к Б.Д.
Dim db As DAO.Database
Set db= wrkODBC.OpenDatabase("ИмяСервера", dbDriverNoPrompt, False)
Удачи