Вверх ↑
Ответов: 186
Рейтинг: 9
#1: 2017-04-13 07:33:57 ЛС | профиль | цитата
Использую немного другой способ подключения к Mysql, мне он кажется более удобным.
Для избавления от неправильной кодировки, в начале работы приложения отправляем запрос SET NAMES 'cp1251'.

Add(MainForm,15674842,196,112)
{
Width=845
Height=770
Point(onClose)
link(onCreate,12829353:doEvent1,[(300,132)(300,90)])
link(onClose,13902439:doClose,[])
}
Add(dbMySQL,13902439,378,126)
{
Charset=5
Point(Charset)
link(onError,556455:doMessage,[(530,132)(530,153)])
}
Add(dbMySQL_Query,14213461,406,224)
{
Point(Blob)
link(onResult,12980227:doShow,[(456,230)(456,300)(401,300)(401,342)])
link(onError,3869540:doMessage,[(464,237)(464,202)])
link(dbHandle,13902439:dbHandle,[(412,191)(384,191)])
link(QueryText,6475848:GetData,[(419,166)(601,166)])
}
Add(ButtonRush,12547216,259,224)
{
Left=5
Top=5
Glyphs=[]
link(onClick,14213461:doQuery,[])
}
Add(Message,3869540,511,196)
{
Message="ошибка в запросе"
}
Add(Message,556455,651,147)
{
Message="бляяя не коннектится"
}
Add(Hub,12829353,315,84)
{
OutCount=4
link(onEvent1,13902439:doOpen,[(361,90)(361,132)])
link(onEvent2,13902439:doSelectDB,[(353,97)(353,146)])
link(onEvent3,6358516:doData,[(403,104)(403,83)])
}
Add(Edit,1030645,476,28)
{
Left=95
Top=5
Width=715
Text="SELECT * FROM `obimp_msgslog` WHERE `sndr_account` LIKE '%здесь по русски%' OR `rcvr_account` LIKE '%и здесь по русски%' LIMIT 0, 100"
}
Add(dbMySQL_ShowQuery,12980227,406,336)
{
link(Rows,14213461:Rows,[])
link(Fields,14213461:Fields,[])
link(StringTable,14767833:StringTable,[(426,324)(538,324)])
}
Add(DoData,6358516,476,77)
{
link(onEventData,14540713:doCharset,[])
link(Data,1030645:Text,[])
}
Add(Charset,14540713,525,77)
{
Type=6
link(onCharset,6475848:doData,[])
}
Add(EventFromData,6475848,595,77)
{
}
Add(StringTable,14767833,518,273)
{
Left=5
Top=40
Width=715
Height=305
Point(StringTable)
Point(Strings)
Point(Matrix)
Point(EndIdx)
}
Add(GlobalVar,12500144,406,427)
{
Name="password"
}
Add(GlobalVar,14134236,399,399)
{
Name="username"
}
Add(GlobalVar,4850137,392,448)
{
Name="host"
}
Add(DS_MySQL,7099141,392,511)
{
Name="DB1"
link(onOpen,220861:doString,[])
link(Server,4850137:Var,[])
link(Username,14134236:Var,[])
link(Password,12500144:Var,[])
}
Add(ButtonRush,11523416,287,511)
{
Left=5
Top=355
Caption="Подключить"
Glyphs=[]
link(onClick,7099141:doOpen,[])
}
Add(Edit,14465488,350,602)
{
Left=80
Top=410
Width=715
Text="SELECT * FROM `obimp_msgslog` WHERE `sndr_account` LIKE '%здесь по русски%' OR `rcvr_account` LIKE '%и здесь по русски%' LIMIT 0, 100"
}
Add(FormatStr,220861,574,511)
{
DataCount=1
Mask="SET NAMES 'cp1251'"
Point(FString)
link(onFString,8304731:doExec,[])
AddHint(-42,-21,120,13,Mask)
}
Add(DSC_Exec,8304731,630,511)
{
DSManager="DB1"
}
Add(ButtonRush,4117935,294,665)
{
Left=5
Top=405
Glyphs=[]
link(onClick,25671:doData,[])
}
Add(DSC_Query,8891139,406,665)
{
DSManager="DB1"
link(onQuery,1211105:doAddRow,[])
link(onColumns,1211105:doAddCols,[])
}
Add(MTStrTbl,3819940,441,602)
{
Left=5
Top=440
Width=790
Height=290
Name="tdl"
}
Add(MST_DB,1211105,462,665)
{
MSTControl="tdl"
}
Add(DoData,25671,350,665)
{
link(onEventData,8891139:doQuery,[])
link(Data,14465488:Text,[])
}

карма: 0

0