Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: MySQL Добавлено: 30.08.08 02:45  

Автор вопроса:  Softer | Web-сайт: hware.org.ua | ICQ: 203660381  
Всем привет!
Вопрос избитый, но порывшись с поиском понял что ниче не понял! :)
Так вот... Как организовать работу с мускулом на VB6?

ЗЫ: Эх... Давно я тут не был!
ЗЗЫ: Так как давно не был - что ет у Хакера за кнопочка?

Ответить

  Ответы Всего ответов: 12  

Номер ответа: 1
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #1 Добавлено: 30.08.08 11:07
Гугель, Мне повезёт!:

http://www.base64.co.uk/mysql-odbc-driver/

Ответить

Номер ответа: 2
Автор ответа:
 Softer



ICQ: 203660381  

Вопросов: 29
Ответов: 205
  Web-сайт: hware.org.ua
 Профиль | | #2 		Добавлено: 30.08.08 12:59

' loop through the record set
' processing the records and fields.

Do Until rdoRS.EOF
    With rdoRS
    MsgBox rdoRS.rdoColumns(6).Value
    ' your code to process the fields
    ' to access a field called username you would
    ' reference it like !username

        rdoRS.MoveNext
    End With
Loop


все кроме числовых значений выводит в виде цифр. Как преобразовать?

Ответить

Номер ответа: 3
Автор ответа:
 Softer



ICQ: 203660381  

Вопросов: 29
Ответов: 205
  Web-сайт: hware.org.ua
 Профиль | | #3 		Добавлено: 31.08.08 02:46
Так... Проблему на 50% решил.
С помощью функции

Private Function hex2str(ByVal data As String) As String        'Переводит набор типа "00FF3E" в строку
    Dim i As Integer
    For i = 1 To Len(data) Step 2
        hex2str = hex2str & Chr(Val("&H" + Mid$(data, i, 2)))
    Next i
End Function

Но осталась проблема русских букв. Вместо них - абракадабра (читай - неверная кодировка).
Собсно текущий вопрос: как ее сменить?

Ответить

Номер ответа: 4
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #4 		Добавлено: 31.08.08 03:53
Кодировка в свойствах таблицы при создании задается. По дефолту, видимо, там UTF8

Ответить

Номер ответа: 5
Автор ответа:
 Softer



ICQ: 203660381  

Вопросов: 29
Ответов: 205
  Web-сайт: hware.org.ua
 Профиль | | #5 		Добавлено: 31.08.08 16:02
А как ее можно средствами VB конвертировать в 1251?

Ответить

Номер ответа: 6
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #6 Добавлено: 31.08.08 20:44
что ет у Хакера за кнопочка?

Эт его UU так забанил.

Ответить

Номер ответа: 7
Автор ответа:
 Softer



ICQ: 203660381  

Вопросов: 29
Ответов: 205
  Web-сайт: hware.org.ua
 Профиль | | #7 		Добавлено: 31.08.08 23:14
Эт его UU так забанил.

Э... А как? И за что его Юзер так?

Ответить

Номер ответа: 8
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #8 Добавлено: 01.09.08 01:26
Сохранил себе на память.

http://img-fotki.yandex.ru/get/37/maxpotas.0/0_16df2_a77ac17_orig

Извиняюся за офтоп.

Ответить

Номер ответа: 9
Автор ответа:
 Softer



ICQ: 203660381  

Вопросов: 29
Ответов: 205
  Web-сайт: hware.org.ua
 Профиль | | #9 		Добавлено: 01.09.08 01:52
Smith, спасибо! :)
All, так как можно конвертировать UTF8 в 1251?

Ответить

Номер ответа: 10
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
  Web-сайт: hw.t-k.ru
 Профиль | | #10 		Добавлено: 10.09.08 10:40
  1. UTF8ToWin proc lpText: DWORD
  2.     LOCAL hMem1:    DWORD,
  3.           hMem2:    DWORD,
  4.           lng:      DWORD
  5.  
  6.     xor edx, edx                                    ; Вычисляем размер памяти...
  7.     invoke MultiByteToWideChar, CP_UTF8, edx, lpText, -1h, edx, edx
  8.     add eax, eax
  9.     mov lng, eax
  10.  
  11.     invoke memAlloc, eax                            ; Выделяем память
  12.     mov hMem1, eax
  13.                                                     ; Конвертим...
  14.     invoke MultiByteToWideChar, CP_UTF8, 0h, lpText, -1h, hMem1, lng
  15.     
  16.     xor edx, edx                                    ; Вычисляем размер памяти...
  17.     invoke WideCharToMultiByte, CP_ACP, edx, hMem1, eax, edx, edx, edx, edx
  18.     mov lng, eax
  19.  
  20.     invoke SysAllocStringByteLen, NULL, eax         ; Выделяем память
  21.     mov hMem2, eax
  22.  
  23.     xor edx, edx                                    ; Конвертим...
  24.     invoke WideCharToMultiByte, CP_ACP, 0h, hMem1, -1h, hMem2, lng, 0h, 0h
  25.  
  26.     invoke memFree, hMem1
  27.  
  28.     mov eax, hMem2
  29.     ret
  30. UTF8ToWin endp
  31.  
  32. WinToUTF8 proc lpText: DWORD
  33.     LOCAL hMem1:    DWORD,
  34.           hMem2:    DWORD,
  35.           lng:      DWORD
  36.  
  37.     xor edx, edx                                    ; Вычисляем размер памяти...
  38.     invoke MultiByteToWideChar, CP_ACP, edx, lpText, -1h, edx, edx
  39.     add eax, eax
  40.     mov lng, eax
  41.  
  42.     invoke memAlloc, eax                            ; Выделяем память
  43.     mov hMem1, eax
  44.                                                     ; Конвертим...
  45.     invoke MultiByteToWideChar, CP_ACP, 0h, lpText, -1h, hMem1, lng
  46.     
  47.     xor edx, edx                                    ; Вычисляем размер памяти...
  48.     invoke WideCharToMultiByte, CP_UTF8, edx, hMem1, eax, edx, edx, edx, edx
  49.     mov lng, eax
  50.  
  51.     invoke SysAllocStringByteLen, NULL, eax         ; Выделяем память
  52.     mov hMem2, eax
  53.  
  54.     xor edx, edx                                    ; Конвертим...
  55.     invoke WideCharToMultiByte, CP_UTF8, edx, hMem1, -1h, hMem2, lng, edx, edx
  56.  
  57.     invoke memFree, hMem1
  58.  
  59.     mov eax, hMem2
  60.     ret
  61. WinToUTF8 endp

Ответить

Номер ответа: 11
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
  Web-сайт: hw.t-k.ru
 Профиль | | #11 		Добавлено: 10.09.08 10:42
или вот вариант похуже чуть есть...

' §§§§§§§§§§§§§§§§§§§§§§§§§§ Кодировки §§§§§§§§§§§§§§§§§§§§§§§§§§

'--------------------------------------------------------------------------------
' Проект : OfflineClient
' Процедура : WinToUTF8
' Описание : Перевод строки в UTF8 кодировку
' Кем создан : SNE
' Дата-Время : 09.11.2004-11:52:01
'
' Параметры : inString - Строка, в win кодировке
' lMaxSize - Максимальный размер строки
'--------------------------------------------------------------------------------
Private Function WinToUTF8(ByRef inString As String, _
                           ByVal lMaxSize As Long) As String

        If inString = vbNullString Then Exit Function

        ;Dim hMemLock1 As Long, hMemLock2 As Long
        ;Dim iStrSize As Long

        hMemLock1 = GlobalAlloc(GPTR, lMaxSize)
        hMemLock2 = GlobalAlloc(GPTR, lMaxSize)

        iStrSize = MultiByteToWideChar(0&, 0&, inString, -1, hMemLock1, lMaxSize)
        iStrSize = WideCharToMultiByte(65001, 0&, hMemLock1, iStrSize, hMemLock2, lMaxSize, 0&, 0&;) ' CP_UTF8

        If Len(iStrSize) Then
            WinToUTF8 = String$(iStrSize - vbNull, 0&;)
            Call CopyMemory(ByVal WinToUTF8, ByVal hMemLock2, iStrSize - vbNull)
        End If

        Call GlobalFree(hMemLock1)
        Call GlobalFree(hMemLock2)
End Function

'--------------------------------------------------------------------------------
' Проект : OfflineClient
' Процедура : UTF8ToWin
' Описание : Перевод UTF8 строки в WIN кодировку
' Кем создан : SNE
' Дата-Время : 09.11.2004-11:56:58
'
' Параметры : inString - Строка в utf8 кодировке
' lMaxSize - Максимальный размер строки
'--------------------------------------------------------------------------------
Private Function UTF8ToWin(ByRef inString As String, _
                           ByVal lMaxSize As Long) As String

        If inString = vbNullString Then Exit Function

        ;Dim hMemLock1 As Long, hMemLock2 As Long
        ;Dim iStrSize As Long

        hMemLock1 = GlobalAlloc(GPTR, lMaxSize)
        hMemLock2 = GlobalAlloc(GPTR, lMaxSize)

        iStrSize = MultiByteToWideChar(CP_UTF8, 0&, inString, -1, hMemLock1, lMaxSize)
        iStrSize = WideCharToMultiByte(0&, 0&, hMemLock1, -1, hMemLock2, iStrSize, 0&, 0&;)

        If Len(iStrSize) Then
            UTF8ToWin = String$(iStrSize - vbNull, 0&;)
            Call CopyMemory(ByVal UTF8ToWin, ByVal hMemLock2, iStrSize - vbNull)
        End If

        Call GlobalFree(hMemLock1)
        Call GlobalFree(hMemLock2)
End Function

Ответить

Номер ответа: 12
Автор ответа:
 Softer



ICQ: 203660381  

Вопросов: 29
Ответов: 205
  Web-сайт: hware.org.ua
 Профиль | | #12 		Добавлено: 10.09.08 11:21
Э... 11й пост понял, а вот 10й - нет. Это ASM?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам