这个代码为什么运行不了?
Lersh 2002-06-09 12:54:51 STDMETHODIMP Tmop1Impl::RegNewUser(BSTR UserName)
{
AnsiString UserInfo=(AnsiString)UserName;
AnsiString SQL,user,pass;
user=UserInfo.SubString(1,UserInfo.Pos("#break#")-1);
pass=UserInfo.SubString(UserInfo.Pos("#break#")+7,UserInfo.Length()-user.Length()-7);
SQL="insert into userinfo (yourname,password,access,attr,starttime,niming,lasttime) \
values ('"+user+"','"+pass+"',1,1,getdate(),ceiling( RAND( (DATEPART(mm, GETDATE())*100000 )\
+ (DATEPART(ss, GETDATE()) * 1000 )+ DATEPART(ms, GETDATE()) )*100000),getdate())";
ShowMessage(SQL);
Srv->Query->Close();
Srv->Query->SQL->Clear();
Srv->Query->SQL->Add(SQL);
Srv->Query->ExecSQL();
}
ShowMessage能显示正确的SQL,但就是无法添加到数据库里,为什么啊?