Что нового

[Данные, строки] Подключение к MsSql

ZanMax

Тестер
Сообщения
120
Репутация
5
Всем привет.
Возникла задача подключения и выполеныя команд на MsSQL сервера.
Нужно выполнить выборку и показать пользоватлею.
e7757d0e49e0edd06671a45acd8f.jpeg

Что-то типа этого.
Как реализовать ? кто то работал с БД через AutoIT ?
Спасибо большое.
 
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
MsSQL.
Есть ли аналоги написаны для MSSQL ????
Спасибо.
 

Redline

AutoIT Гуру
Сообщения
506
Репутация
375
ZanMax сказал(а):
MsSQL.
Есть ли аналоги написаны для MSSQL ????
Спасибо.
Невнимательность виновата.
Ну тогда вот это должно подойти:
Код:
; Description ...: Some SQL stuff to use with an MSDE database
 

DIS

Новичок
Сообщения
10
Репутация
2
А нельзяли подглядеть пример подключения к MSSQL и выполнения какого либо запроса, например бэкапа какой либо базы или есче ченить... :-[
 

Renz

Осваивающий
Сообщения
63
Репутация
37
пример:

Код:
#include "_SQL.au3"
Dim $ObjSQL, $server, $db, $username, $password
$server = "AS0091\SQLEXPRESS"
$db = "apn"
$username = "sa"
$password = "****"



$ObjSQL = _SQL_Startup()
$MsgSQL = _SQL_GetErrMsg()
ErrMsg($MsgSQL)
$OpenedDB = _SQL_Connect($ObjSQL, $server, $db, $username, $password)
$MsgSQL = _SQL_GetErrMsg()
ErrMsg($MsgSQL)
$Query1 = " GRANT ALTER ON [dbo].[zakazpost] TO [public] GRANT CONTROL ON [dbo].[zakazpost] TO [public] GRANT EXECUTE ON [dbo].[zakazpost] TO [public]"
_SQL_Execute($ObjSQL,$Query1)
If $MsgSQL = "" Then
	MsgBox(0,"","Запрос выполнен",2)
Else
	$MsgSQL = _SQL_GetErrMsg()
	ErrMsg($MsgSQL)
EndIf

_SQL_Close($ObjSQL)
$MsgSQL = _SQL_GetErrMsg()
ErrMsg($MsgSQL)

Func ErrMsg($MsgSQL)
	;$MsgSQL = _SQL_GetErrMsg()
	$MsgSQLTemp = $MsgSQL
	If $MsgSQLTemp <> "" Then
		MsgBox(0,"",$MsgSQLTemp,2)
		Exit
	EndIf
EndFunc
 
Верх