数据库初学者的问题! 1。在“程序”“管理工具”里有有一个数据源,就在里面按要求创建就可以了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1:控制面板中用向导即可。 当然也可以用代码实现。 Declare Integer SQLConfigDataSource In odbccp32 Integer, Integer, String, String**上面这句是调用WINDOWS 的API函数,VFP本身的函数创建不了数据源,应该调用WINDOWS的。lnWindowHandle=0 &&先给连接句柄定义一个值,为0。lcODBCDriver='SQL Server' &&DRIVER类型,当然选SQL ServerlcODBCName='aaaaaa' &&要创建的数据源名字lcODBCDesc='aaaaaa' &&数据源描述,可有可无的东西。lcODBCServer='127.0.0.1' &&SQL SERVER名字----初始化中应该为变量,由用户从表单上输入,本模块的第一行即是接收这个参数的.lcODBCdatabase='' &&要连接的数据库名字。lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ;'DSN=' + lcODBCName + CHR(0) ;+ 'Description=' + lcODBCDesc + CHR(0) ;+ 'Server=' + lcODBCServer + CHR(0);+ 'Database=' + lcODBCdatabase + CHR(0)) &&检测是不是已经有ODBC数据源If lreturn=0 &&如果没有检测到ODBC数据源 lreturn1=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, ; 'DSN=' + lcODBCName + CHR(0) ; + 'Description=' + lcODBCDesc + CHR(0) ; + 'Server=' + lcODBCServer + CHR(0); + 'Database=' + lcODBCdatabase + CHR(0)) &&如果创建失败 if lreturn1=0 =Messagebox('添加ODBC数据源失败!',16,'提示') &&错误处理 else =Messagebox('添加ODBC数据源成功!',72,'提示') endifElse =Messagebox('修改ODBC数据源成功!',72,'提示')Endif 查询问题? 小弟我来问个分拆合并的问题。 一个商品对应多类别,该怎么做? SQL Server 2000与XML相关技术 急!!!!SQL Server 不存在或访问被拒绝ConnectionOpen!!!!! 急啊!我的数据库怎么只能连接一个用户了! 一个SQL语句执行写法的奇怪问题 遇到个麻烦问题了,大家帮帮偶 各位老大:MSSQLSERVER6.5支不支持临时表?----着急,在线等... 如果在A表里没有记录,则在B表查 怎么用InstallShield创建SQL的DSN? 遇到一个麻烦,欢迎有经验的进来讨论。
**上面这句是调用WINDOWS 的API函数,VFP本身的函数创建不了数据源,应该调用WINDOWS的。
lnWindowHandle=0 &&先给连接句柄定义一个值,为0。
lcODBCDriver='SQL Server' &&DRIVER类型,当然选SQL Server
lcODBCName='aaaaaa' &&要创建的数据源名字
lcODBCDesc='aaaaaa' &&数据源描述,可有可无的东西。
lcODBCServer='127.0.0.1' &&SQL SERVER名字----初始化中应该为变量,由用户从表单上输入,本模块的第一行即是接收这个参数的.
lcODBCdatabase='' &&要连接的数据库名字。lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0);
+ 'Database=' + lcODBCdatabase + CHR(0)) &&检测是不是已经有ODBC数据源
If lreturn=0 &&如果没有检测到ODBC数据源
lreturn1=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0);
+ 'Database=' + lcODBCdatabase + CHR(0)) &&如果创建失败
if lreturn1=0
=Messagebox('添加ODBC数据源失败!',16,'提示') &&错误处理
else
=Messagebox('添加ODBC数据源成功!',72,'提示')
endif
Else
=Messagebox('修改ODBC数据源成功!',72,'提示')
Endif