Witam,

Otwieram formularz php w VB6

gotos = "http://strona.php" + "?" + t
ret = ShellExecute(Me.hWnd, "Open", gotos, "", App.Path, 1)

nie wiem jak zakodować w VB6 zmienna t abym miał polskie znaki w mysql i w
pliku txt.
z jakiej konwersji trzeba skorzystać win->iso? czy coś innego?

probowalem takim czyms t = From1250To8859_2(t) ale nie przyniosło rezultatów
dalej mam coś takiego żęł¶ćęł±¶ęóóó
Public Function From1250To8859_2(StringIn1250 As String) As StringDim Src As
String
Src = StringIn1250
Src = Replace(Src, Chr(&HA5), Chr(&HA1))
Src = Replace(Src, Chr(&H8C), Chr(&HA6))
Src = Replace(Src, Chr(&H8F), Chr(&HAC))
Src = Replace(Src, Chr(&HB9), Chr(&HB1))
Src = Replace(Src, Chr(&H9C), Chr(&HB6))
Src = Replace(Src, Chr(&H9F), Chr(&HBC))
From1250To8859_2 = Src

End Function

dodam tak że VB mi otwiera taka strone


gotos = "http://strona.php" + "?" + "żłęśćąśąśąśół"

http://strona.php?%C5%BC%C5%82%C4%99...9B%C3%B3%C5%82


jak to rozkodować?

Użytkownik "bbl" <bombell> napisał w wiadomości
news:h1v1
> dodam tak że VB mi otwiera taka strone
>> gotos = "http://strona.php" + "?" + "żłęśćąśąśąśół"
>
> [..]
>> jak to rozkodować?

Problem rozwiązałem przez iconv w php utf-8 -> iso 8859_2 i teraz w bazie
zapisują się polskie znaki. Natomiast teraz mam problem z odczytaniem w VB6
danych za pomocą ADODB. Tam gdzie polskie znaki mam znaki zapytania "?"
Ma ktoś jakiś pomysł?

Użytkownik "bbl" <bombell> napisał w wiadomości
news:6qi1
> Problem rozwiązałem przez iconv w php utf-8 -> iso 8859_2 i teraz w bazie
> zapisują się polskie znaki. Natomiast teraz mam problem z odczytaniem w
> VB6 danych za pomocą ADODB. Tam gdzie polskie znaki mam znaki zapytania
> "?"
> Ma ktoś jakiś pomysł?

Powinieneś mieć zinstalowany MDAC z literkami PL, jezeli nie masz to
ściągnij z microsoft.com

Wiesiek
PS. Nie pisz "Ma ktoś jakiś pomysł" - to bardzo niegrzecznie, tak się zwraca
dyrektor do swoich podwładnych.