- Код: Выделить всё
Set rs1 = MySQL_Execute("SHOW COLUMNS FROM `" + cbTables.Text + "`;")
где
- Код: Выделить всё
Public Function MySQL_Execute(strSQL As String) As Recordset
Set MySQL_Execute = conn.Execute(strSQL)
End Function
И вместо нормального ответа как при SHOW TABLES; приходят знаки вопроса(хотя названия колонок английские).
Пробовал сделать
- Код: Выделить всё
MySQL_Execute "SET NAMES 'cp1251' ;"
MySQL_Execute "SET CHARACTER SET 'cp1251' ;"
MySQL_Execute "SET collation_connection='cp1251_general_ci';"
MySQL_Execute "SET collation_server='cp1251_general_ci';"
MySQL_Execute "SET character_set_client='cp1251';"
MySQL_Execute "SET character_set_connection='cp1251';"
MySQL_Execute "SET character_set_results='cp1251';"
MySQL_Execute "SET character_set_server='cp1251';"
перед запросом, не помогло. Собственно вопрос: Как сделать чтобы ответ приходил в нормальном читаемом виде?