主题:请教下MEMO显示 dbcc checkdb 信息的问题!谢谢
procedure TFrmMain.Button19Click(Sender: TObject);
Begin
Try
Cn.Execute('+memo1.Text+');
memo1.Lines.Add( );
MessageBox(Self.Handle,'OK!','提示',MB_ICONINFORMATION);
Except
if (Cn.Connected) then
MessageBox(Self.Handle,'错误!','提示',MB_ICONINFORMATION);
End;
End;
我需要先运行MEMO1里面的dbcc checkdb命令, 然后将命令产生的信息显示到memo2的框里,请问具体该怎么做,感谢您的回答。我摸索了一天了都没结果。
Begin
Try
Cn.Execute('+memo1.Text+');
memo1.Lines.Add( );
MessageBox(Self.Handle,'OK!','提示',MB_ICONINFORMATION);
Except
if (Cn.Connected) then
MessageBox(Self.Handle,'错误!','提示',MB_ICONINFORMATION);
End;
End;
我需要先运行MEMO1里面的dbcc checkdb命令, 然后将命令产生的信息显示到memo2的框里,请问具体该怎么做,感谢您的回答。我摸索了一天了都没结果。