B
bsense
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi访问mysql5解决乱码(4.1版本以上就有)
//下面三句,在connect 后立即执行
zquery2.Close();
zquery2.SQL.Text := 'SET NAMES GB2312;';
zquery2.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
{zquery1.Close();
zquery1.SQL.Text := 'SET character_set_client = GB2312;';
zquery1.ExecSQL();
//当将此句注释掉得话,从数据库中读取的内容为乱码
zquery1.Close();
zquery1.SQL.Text := 'SET character_set_results = GB2312;';
zquery1.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
zquery1.Close();
zquery1.SQL.Text := 'SET character_set_connection = GB2312;';
zquery1.ExecSQL();
}
zquery1.Close();
zquery1.SQL.Text := 'select * from test1';
zquery1.open;
//下面三句,在connect 后立即执行
zquery2.Close();
zquery2.SQL.Text := 'SET NAMES GB2312;';
zquery2.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
{zquery1.Close();
zquery1.SQL.Text := 'SET character_set_client = GB2312;';
zquery1.ExecSQL();
//当将此句注释掉得话,从数据库中读取的内容为乱码
zquery1.Close();
zquery1.SQL.Text := 'SET character_set_results = GB2312;';
zquery1.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
zquery1.Close();
zquery1.SQL.Text := 'SET character_set_connection = GB2312;';
zquery1.ExecSQL();
}
zquery1.Close();
zquery1.SQL.Text := 'select * from test1';
zquery1.open;