FBExport.exe -F C:\VS2010\firebird\exporter.csv -Sc -H 192.168.104.210 -D C:\AKIS\Database\AKISDB.FDB -U sysdba -P masterkey  -Q "select count(Q_QUEUES.QUE_NAME),Q_QUEUES.QUE_NAME from Q_FIFO , Q_QUEUES where Q_FIFO.FHI_GETTIME is null and Q_FIFO.FHI_QNR=Q_QUEUES.QUE_NR group by Q_QUEUES.QUE_NAME order by count(Q_QUEUES.QUE_NAME) DESC"

Он выдаёт данные в CSV файл, тот нормально перекодируется из UTF-8 в WIN1251, и уже разобрал тот файл и получил что надо...

КОСТЫЛИ-КОСТЫЛИКИ )))

Set cn = CreateObject ("ADODB.Connection")
cn.Open "Provider=LCPI.IBProvider.3;Data Source=C:\VS2010\firebird\AKIS_newDB\akisdb.fdb;User Id=SYSDBA;password=masterkey;Ctype=none;auto_commit=true"
Set rs = cn.execute("select Q_MENU.MNU_NAME from Q_FIFO , Q_MENU where Q_FIFO.FHI_CLINR is null and Q_FIFO.FHI_QNR=Q_MENU.MNU_QNR")


do while not rs.EOF
       msgbox converter(rs.fields(0).Value)
rs.MoveNext
loop
rs.close
cn.close


function converter(strinput)
    adReadAll = -1
    adTypeText = 2
Set objStream = CreateObject("ADODB.Stream")    
    objStream.Open()
    objStream.Type = adTypeText
    objStream.Charset = "windows-1251"
    objStream.WriteText(strinput)
    objStream.Flush()
    objStream.Position = 0
    objStream.Charset = "utf-8"
    converter = objStream.ReadText(adReadAll)
    objStream.Close()
end function

я получаю следующую ошибку

Что ещё не так ? В чём грабли ?

25 строчка

Ссылка на базу

Set f=CreateObject("Scripting.FileSystemObject")
a= f.OpenTextFile("a",1).Readall()
Wscript.Echo(a)
Wscript.Echo(converter(a))
function converter(strinput)
    adReadAll = -1
    adTypeText = 2
Set objStream = CreateObject("ADODB.Stream")    
    objStream.Open()
    objStream.Type = adTypeText
    objStream.Charset = "windows-1251"
    objStream.WriteText(strinput)
    objStream.Flush()
    objStream.Position = 0
    objStream.Charset = "utf-8"
    converter = objStream.ReadText(adReadAll)
    objStream.Close()
end function

примечание:файл с форума выгружается коряво но 7zip его читает

Если средствами СУБД/провайдера победить не получится, то для разборок с кодировкой лучше приложить файл с примером выводя запроса.

ссылка на базу
Спасибо большое, что всё ещё пытаетесь мне помочь )))

Firebird 2.1.5
Кодировка базы мне не известна и IBExpert её тоже не выдаёт   (по ходу дела - default)

и при charset и при ctype равном win1251 или ascii выдаёт одну и ту же ошибку

Не может перевести символы между кодировками

С этого момента уже сложнее - Firebird я поставил(на сколько же всё проще в MSSQL... или просто привык?), а вот проприетарный и не особо дешёвый провайдер ставить не хотелось бы. Хотя не исключено что ошибка именно его(провайдера). Надо будет попробовать ODBC для сравнения.

Хотелось бы уточнить ещё пару моментов:
1. версия СУБД
2. кодировка базы(UTF-8/UNICODE_FSS/WIN1251...)

Если средствами СУБД/провайдера победить не получится, то для разборок с кодировкой лучше приложить файл с примером выводя запроса.

А что, приведённая мной функция чем-то не устраивает?

Дык она ничего не перекодирует, как есть, так и выводит, она ведь не смещает коды символов в зависимости от их значения, нужно ведь знать в каком диапазоне куда надо смещать...

Вообще там пересчитываются коды символов по диапазонам: для первых 127, для русских и т.д., поскольку соответствие порядков символов несколько кривоватое. Asc использует виндовый метод перекодирования через NLS таблицы, по крайней мере я так понял.

А что, приведённая мной функция чем-то не устраивает?

Дык как бы не вопрос, тока расскажите алгоритм

Да не нужен тот алгоритм на VBS, всё проще:

Function FC(E)
  FC = ""
  For i = 1 to Len(E)
    FC = FC & Chr(Asc(mid(E,i,1)))
  Next
End Function

Это на js извращаться приходится, в нём Asc нету.