--设置查询参数
Sqlstr:="select 公司名称 from list"
--打开数据库
ODBChandle:=ODBCOpen(WindowHandle,"error","minglu","",""
--在数据库中查找
gxtj:= ODBCExecute(ODBChandle, Sqlstr)
--关闭数据库
ODBCClose(ODBChandle)
--判定记录是否存在
if (Find(Return^danci^Return, Return^gxtj^Return)) then
Message:="是否更新记录？"
--存在则更新之
Sqlstr:= "UPDATE [list] SET 公司名称='"^danci^"', 简单介绍='"^jianjie^"', 国家省市='"
Sqlstr:=Sqlstr^guojia^"', 地址="^dizhi^"', 公司网址='"^gswz^"', 联系人='"
Sqlstr:=Sqlstr^lianxiren^"', 电话="^dianhua^"', 传真='"^chuanzhen^"', E_mail='"
Sqlstr:=Sqlstr^E_mail^"', 手机="^shouji^"', 详细介绍='"
Sqlstr:=Sqlstr^xxjs^"', 上载产品="^szzp^" WHERE 公司名称="^danci
--否则插入一个新记录
else
Message:="是否插入一个新记录？"
Sqlstr:= "INSERT INTO [list] (公司名称,简单介绍,国家省市,地址,公司网址,联系人,电话,传真,E_mail,手机,详细介绍,上载产品) valueS ("^danci
Sqlstr:=Sqlstr^",'"^jianjie^"', '"^guojia^"', '"^dizhi^"', '"^gswz^"', '"^lianxiren^"', '"^dianhua^"', "^chuanzhen^"', '"^E_mail^"', '"^shouji^"', '"^xxjs^"', '"^szzp^"
"
end if
OK:=MessageBox(WindowHandle, Message, "确认", 33) -- 1=OK, 2=Cancel
if OK=2 then
GoTo(@"更新/添加"
end if
--在数据库中查找
OK:=ODBCExecute(ODBChandle, Sqlstr)
--关闭数据库
ODBCClose(ODBChandle)
GoTo(@"000"
代码是这样的。
