[v79italya]

В продолжение.
Установил MySQL Workbench 6.0 CE. По локалхост получается подключится.
Вопросы те же. Как предоставить безопасный доступ извне любому пользователю по паролю?
Есть ли у MySQL Workbench свой сервер, на который можно закинуть базу данных .sql(для круглосуточного доступа) ?

Извините если вопросы глупые) Насколько понимаю - настолько и спрашиваю

[v79italya]

А че так тихо?
Живые есть? Сколько штук?

[Iska]

v79italya, видимо, количество веб-мастеров, 1) работающих с MySQL 2) на хостинге 000webhost.com и 3) заходящих в раздел Программирование, стремится к нулю.

[v79italya]

Iska, здравствуйте
Мне бы достаточно тех, кто работает с MySQL. Сайты меня уже не интересуют.
Из нагугленного я понял так: MySQL Workbench работает только по сети(то есть сеть по кабелю витая пара или сеть через Вайфай роутер).
MySQL Workbench нужно всем устанавливать или достаточно на одном компе, а остальным надо драйвер MySQL ODBC 5.2 ?

[Iska]

v79italya, MySQL работает так, как Вы его установите и настроите. Например, как служба:

Скрытый текст

Workbench для работы не нужен вовсе, это просто оболочка базы данных. Драйвера (ODBC, OLEDB и т.п.) нужны для того, чтобы обращаться к базе данных не напрямую, а посредством тех или иных используемых интерфейсов. В поставку MySQL включено несколько драйверов ODBC.

В моём случае и в моей версии (я устанавливал почти полный комплект) были установлены:

Скрытый текст

Пример простейшего кода на WSH:

Скрытый текст

Код:

Option Explicit

Const adOpenStatic = 3


With WScript.CreateObject("ADODB.Recordset")
	.Open _
		"SELECT * FROM sometable", _
		"Driver={MySQL ODBC 5.3 UNICODE Driver};" & _
			"Server=localhost;" & _
			"Database=myschema;" & _
			"User=root;" & _
			"Password=MyPassword;", _
		adOpenStatic
	
	.MoveFirst
	
	WScript.Echo .Fields.Item(0).Name
	WScript.Echo "---------------"
	
	Do Until .EOF
		WScript.Echo .Fields.Item(0).Value
		.MoveNext
	Loop
	
	.Close
End With

WScript.Quit 0

Результат работы:

Скрытый текст

И для понимания структуры примера:

Скрытый текст

[v79italya]

И для понимания структуры примера »

сразу я не понял
как убить эти окошки? уже 136. Я еще и два окна запустил

HTML код:

Option Explicit

Const adOpenStatic = 3


With WScript.CreateObject("ADODB.Recordset")
	.Open _
		"SELECT * FROM city", _
		"Driver={MySQL ODBC 5.2 UNICODE Driver};" & _
			"Server=localhost;" & _
			"Database=sakila;" & _
			"User=root;" & _
			"Password=000000;", _
		adOpenStatic
	
	.MoveFirst
	
	WScript.Echo .Fields.Item(0).Name
	WScript.Echo "---------------"
	
	Do Until .EOF
		WScript.Echo .Fields.Item(0).Value
		.MoveNext
	Loop
	
	.Close
End With

WScript.Quit 0

Еще после перезагрузки вышло это - GfxCUIServiceInstall.vbs с кодом:

HTML код:

Dim cuiSh
Set cuiSh = WScript.CreateObject ("WScript.Shell")
cuiSh.run "cmd /c net start FontCache3.0.0.0",0
Set cuiSh = Nothing

Что с этим делать?

[v79italya]

Iska, сэр, что мне делать?
Это файл - GfxCUIServiceInstall.vbs - удалить? Он в C:\Windows\System32\ поселился.
И что дописать в файле чтобы в случае чего закрыть эти окна. А то мне что, на кнопку жать столько, сколько строк в базе)

[Iska]

как убить эти окошки? уже 136. »

Какие «окошки»?

Еще после перезагрузки вышло это - GfxCUIServiceInstall.vbs с кодом: Код: Dim cuiSh Set cuiSh = WScript.CreateObject ("WScript.Shell") cuiSh.run "cmd /c net start FontCache3.0.0.0",0 Set cuiSh = Nothing Что с этим делать? »

Искать, откуда сие у Вас появилось.

[v79italya]

Какие «окошки»? »

вот на скрине
При запуске скрипта abc выходят окошки с номером строки.
А если строк 200 000, то нада 200 000 раз нажать ok
Убил перезагрузкой

[v79italya]

Iska, судя по ссылке, ничего страшного?
Может и вправду из за того что назначил блокнот программой по умолчанию для файлов .vbs ?
и вопрос тот же , что еще надо в коде чтобы можно было выключить это окно, например сочетанием клавиш?

HTML код:

Option Explicit

Const adOpenStatic = 3


With WScript.CreateObject("ADODB.Recordset")
	.Open _
		"SELECT * FROM city", _
		"Driver={MySQL ODBC 5.2 UNICODE Driver};" & _
			"Server=localhost;" & _
			"Database=sakila;" & _
			"User=root;" & _
			"Password=000000;", _
		adOpenStatic
	
	.MoveFirst
	
	WScript.Echo .Fields.Item(0).Name
	WScript.Echo "---------------"
	
	Do Until .EOF
		WScript.Echo .Fields.Item(0).Value
		.MoveNext
	Loop
	
	.Close
End With

WScript.Quit 0