请教项目:用vf6.0作开发前台,用sql2000作为后台数据库

xunshine 2002-11-21 09:32:23
各位高手,公司想用vf6.0作为程序的开发前台,而后台的数据库则用sql2000来做,但我连怎么连接都不清楚,更别提结合起来做项目了。希望各位能给点提示,有没有相关的参考资料,如果有现成的参考例子更好,恳请大家给点意见,谢谢!
...全文
47 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
crystal_heart 2002-11-23
  • 打赏
  • 举报
回复
up
oishi 2002-11-22
  • 打赏
  • 举报
回复
http://www.dcd.com.cn/myf1/uploadImages/2002112014552894270.rar
mucel 2002-11-21
  • 打赏
  • 举报
回复
是关于话单处理的程序,需要原文件发mail to:
molosam@263.net
mucel 2002-11-21
  • 打赏
  • 举报
回复
CON=SQLSTRINGCONNECT("driver=SQL Server;Server=gate;Uid=sa;pwd=listlist;database=huafei") && 与远程数据库连接
if con <1 && 判断是否连接成功
wait windows "Erorr" nowait
endif
nHandle = fopen(m.sFilename)&&打开数据文件
store fseek(nHandle,0,2) to nsize
fseek(nhandle,0)
if nsize<=0
??chr(7)
wait windows "该文件为空"
fclose(nHandle)
return
endif
w1=""
do while !feof(nHandle)
w1=w1+fgets(nHandle)
enddo
&& w1 = fgets(nHandle,nsize)
fclose(nhandle)
nhandle = fcreat("111.txt")
if nHandle = -1
??chr(7)
wait windows "创建文件失败" nowait
&& mainform.olecontrol1.panels(1).text = "计费查询系统"
&& mainform.olecontrol1.panels(2).text = "创建文件失败"
return
endif
&&将文件中的";"变为","
nsize = occurs(";",w1)
for i = 0 to nsize
if i =0
nd = at(";",w1)
w2 = alltrim(left(w1,nd-1))
else
if i <> nsize
nd = at(";",w1,i)
nd1 = at(";",w1,i+1)
w2 = alltrim(w2)+chr(13)+alltrim(substr(w1,nd+1,nd1-nd-1))
endif
endif
endfor
fwrite(nhandle,alltrim(w2))
fclose(nHandle)
&& wait windows m.sfilename nowait
select fee
zap
append from 111.txt delimited
sqlexec(CON,"select listnum from calllist","xx")
select fee
go bottom
select xx
locate for alltrim(listnum)=alltrim(fee.listnum)
if found()
wait windows "话单"+alltrim(m.Sfilename)+"已经处理完成" nowait
return
endif
&& insert into cl(hdname,rgdate) values(alltrim(m.Sfilename),datetime())
fclose(nhandle)

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧