Delphi 与 ACCESS的诡异现象
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(nil);
tmpConn := TADOConnection.Create(nil);
tmpConn.ConnectionString := gConnectionStrSelect;
tmpConn.Connected := true;
tmpConn.BeginTrans;
tmpCmd.Connection := tmpConn;
try
tmpCmd.CommandText := 'delete * from t_MachineInfo where sMachineID= ' + '''' + byMachineID + '''';
tmpCmd.Execute;
tmpCmd.Connection.CommitTrans;
finally
tmpCmd.Free;
tmpConn.free;
end;
end;
//3秒钟内执行这个过程肯定会ShowMessage
procedure TCDSSelectTools.GetMachine(byMachineID: string);
tmpDS := TADODataset.Create(Nil);
tmpDS.ConnectionString:= gConnectionStrSelect;
tmpDS.CommandText:='select * from t_MachineInfo where sMachineID= ' + '''' + byMachineID + '''';
try
tmpDS.Open;
if tmpDS.Recordcount>0 then
ShowMessage(tmpDS.FieldByName('FFunModelList').AsString); //这里竟然能显示出来
finally
相关问答：
Dbgrid连接access 显示数据时拖动滚动条死机？怎么解决啊？
机器太差了吧？
是不是你数据量太大了啊
你数据少一些看看还死机吗？
数据很少啊 就一页。
我在BCB6下做过不少 DBGRID+ACCESS ，从来没有遇到 ......
请问各位大师，我现在需要将XML的数据实时的存入到数据库中，我是用asp编的程序，大量们帮忙分析 一下！！！
下面是我的XML文件代码
XML code:
<?xml version="1.0" encoding="utf-8"? ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
