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

[xunshine]

各位高手，公司想用vf6.0作为程序的开发前台，而后台的数据库则用sql2000来做，但我连怎么连接都不清楚，更别提结合起来做项目了。希望各位能给点提示，有没有相关的参考资料，如果有现成的参考例子更好，恳请大家给点意见，谢谢！

[mucel]

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)

[mucel]

是关于话单处理的程序，需要原文件发mail to:
[e-mail]

[oishi]

http://www.dcd.com.cn/myf1/uploadImages/2002112014552894270.rar

[crystal_heart]

up