X
xiaohuo
Unregistered / Unconfirmed
GUEST, unregistred user!
各位先进:
本人在做一个项目,需用ODBC来连接MSSQL,ODBC的数据源,我已经配置好,数据库中用来存放音频“流”,在向数据库中存储时,总是执行以后死机,
显示的是与SQL连接后的鼠标沙漏形状,
有时出错,信息提示为:time out wait for process terminate!.程序如下,希望各位能够仔细读它,该题我愿出100分。
Table1.Active:=True;//Table1连接的是SQL服务器的数据库的别名,所
//采用的ODBC驱动程序是SQL SERVER类型的。
with Table1 do
begin
DisableControls;
insert;
Table1.FieldByName('No').AsInteger:=StrToInt(NoEdit.Text);
Table1.FieldByName('Function').AsString:=FuncEdit.Text;
Table1.FieldByName('Location').AsString:=LocEdit.Text;
//*********关键部分**********************
mem:=TMemoryStream.Create;//mem是TMemoryStream类型的
mem.LoadFromFile(FileOpenDialog.FileName);
TBlobField(Table1.Fields[3]).LoadFromStream(mem);
Post;
Next;
mem.Free;
end;
本人在做一个项目,需用ODBC来连接MSSQL,ODBC的数据源,我已经配置好,数据库中用来存放音频“流”,在向数据库中存储时,总是执行以后死机,
显示的是与SQL连接后的鼠标沙漏形状,
有时出错,信息提示为:time out wait for process terminate!.程序如下,希望各位能够仔细读它,该题我愿出100分。
Table1.Active:=True;//Table1连接的是SQL服务器的数据库的别名,所
//采用的ODBC驱动程序是SQL SERVER类型的。
with Table1 do
begin
DisableControls;
insert;
Table1.FieldByName('No').AsInteger:=StrToInt(NoEdit.Text);
Table1.FieldByName('Function').AsString:=FuncEdit.Text;
Table1.FieldByName('Location').AsString:=LocEdit.Text;
//*********关键部分**********************
mem:=TMemoryStream.Create;//mem是TMemoryStream类型的
mem.LoadFromFile(FileOpenDialog.FileName);
TBlobField(Table1.Fields[3]).LoadFromStream(mem);
Post;
Next;
mem.Free;
end;