Создать устройство на SQL Server можно из любого приложения через ODBC - протокол.
Посмотрим пример с Visual Basic for Applications. Создаем функцию:
Function ExecSQL (strConn as String, StrCom as String ) Dim db as DATABASE Dim qdf as QuaryDef Set db = OpenDatabase(“c:\samokat\database.mdb”) Set qdf = db.CreateQueryDef(“”) With qdf *создаем соединение .Connect = strConn *наша команда не возвращает записей .ReturnRecords = False *передаем SQL выражение .SQL = StrComm *выполняем команду на сервере .Execute = dbSQLPassThrough EndWith ExecSQL = True EndFunction
Попробуем ее использовать:
Sub mySQLuse() Dim mySQLConn As String Dim mySQLComm As String Dim myRes As Boolean MySQLConn =”ODBC;database=master;uid=sa;pwd=sergey;dsn=mySQL” mySQLComm = “DISK INIT NAME = ‘autostore’,” mySQLComm = mySQLComm & “PHYSNAME =’c:\sql6\data\autostore.dat’,” mySQLComm = mySQLComm & “VDEVNO = 11, SIZE = 5120” myRes=ExecSQL(mySQLConn, mySQLComm) End Sub
Эту функцию вы можете использовать из любого приложения, которое поддерживает VBA.