可以看看我的帖子：15楼：通过vfp命令做与SQL数据源的连接的表单原程序下载

总算有人回贴了！楼上给个链接不？？

Declare Integer SQLConfigDataSource In odbccp32 Integer, Integer, String, String
lnWindowHandle=0
lcODBCDriver='SQL Server' &&DRIVER类型
lcODBCName=alltrim(thisform.text1.value)   &&数据源名字
lcODBCDesc=alltrim(thisform.text2.value) &&数据源描述
lcODBCServer=alltrim(thisform.text3.value) &&SQL SERVER名字
lcODBCDatabase=alltrim(thisform.text4.value) &&要连接的数据库名字
**先试图修改已有的ODBC，如果不存在，返回0,函数名字是 SQLConfigDataSource，其中第二项参数是数字(1-增加 2-修改 3-删除) 
lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver,'DSN=' + lcODBCName + Chr(0) + 'Description=' + lcODBCDesc + Chr(0) + 'Server=' + lcODBCServer + Chr(0) + 'Database=' + lcODBCDatabase + Chr(0))
If lreturn=0 &&不存在
    **添加新的ODBC
    lreturn=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver,'DSN=' + lcODBCName + Chr(0) + 'Description=' + lcODBCDesc + Chr(0) + 'Server=' + lcODBCServer + Chr(0) + 'Database=' + lcODBCDatabase + Chr(0))

    If lreturn>0
        Messagebox("数据源添加成功","提 示")
thisform.text2.Value=''
thisform.text3.Value=''
thisform.text2.SetFocus
    Else
        Messagebox("添加数据源失败","提 示")
   thisform.text2.SetFocus
    Endif
Endif

那我出现这样的情况的什么原因呢？？？？

是数据源的问题吗？
数据源是不是要升迁过，还有数据机子上有什么要求吗？
我是数据放在局域网另一个机子上想学习远程视图的！
谢谢各位老师了！