Шаг 32 - Создание устройства баз данных - программно из другого приложения

Создать устройство на 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.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.