社区
MS-SQL Server
帖子详情
如何在程序里创建一个ODBC数据源
vcbacker
2003-06-24 12:19:24
我找了一些资料是访问access的,我想连接到SQL server,
用vc怎么做?
还是用SQLConfigDataSource吗?
还有问一下在程序里怎么判断数据源已经存在了?
...全文
53
3
打赏
收藏
如何在程序里创建一个ODBC数据源
我找了一些资料是访问access的,我想连接到SQL server, 用vc怎么做? 还是用SQLConfigDataSource吗? 还有问一下在程序里怎么判断数据源已经存在了?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pengdali
2003-06-24
打赏
举报
回复
Declare Integer SQLConfigDataSource In odbccp32 Integer, Integer, String, String
**上面这句是调用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
IamCxy
2003-06-24
打赏
举报
回复
以下是VFP的,原理一樣吧
===========================================
public lnWindowHandle
public lcODBCDriver
public lcODBCName
public lcODBCDesc
public lcODBCServer
public lcODBCDatabase
public lcUserName
public lcPassword
public lnHandle
lnWindowHandle=0
lcODBCDriver='SQL Server' && DRIVER類型
lcODBCName='MyDB' && 數据源名字
lcODBCDesc='Data Source' && 數据源描述
lcODBCServer='Shared' && SQL SERVER名字
lcODBCDatabase='MyDB' && 要連接的數据庫名字
lcUserName="sa"
lcPassword="76577865"
===========================================================
DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING
*先修改已有的ODBC,如果不存在,返回0。
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 then
MessageBox('服務器連接失敗,請檢查網路是否連通或SQL Server是否已啟動',16,'警告')
return
endif
endif
lnHandle=SQLConnect("&lcODBCName","&lcUserName","&lcPassword")
if lnHandle<=0 then
MessageBox('服務器連接失敗,請檢查網路是否連通或SQL Server是否已啟動',16,'警告')
return
endif
==================================================================
*和服務器斷開連接
=SQLdisconnect(lnHandle)
*刪除ODBC數據源
lreturn=SQLConfigDataSource(lnWindowHandle, ;
2, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0) ;
+ 'Database=' + lcODBCDatabase + CHR(0))
if lreturn==1
*ODBC數據源存在,則刪除
lreturn=SQLConfigDataSource(lnWindowHandle,3, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0) ;
+ 'Database=' + lcODBCDatabase + CHR(0))
endif
vcbacker
2003-06-24
打赏
举报
回复
多谢二位。
java源码包---java 源码 大量 实例
Tcp服务端与客户端的JAVA实例源代码,一个简单的Java TCP服务器端
程序
,别外还有一个客户端的
程序
,两者互相配合可以开发出超多的网络
程序
,这是最基础的部分。 递归遍历矩阵 1个目标文件,简单! 多人聊天室 3...
java源码包2
Tcp服务端与客户端的JAVA实例源代码,一个简单的Java TCP服务器端
程序
,别外还有一个客户端的
程序
,两者互相配合可以开发出超多的网络
程序
,这是最基础的部分。 递归遍历矩阵 1个目标文件,简单! 多人聊天室 ...
PowerBI系列之Gateway网关和数据刷新
配置
ODBC
数据源
和定时刷新 7. 配置Sharepoint源的定时刷新 8. 开发增量刷新报表 9. 开发伪增量刷新报表 10. 混合数据刷新模式介绍(2022.2月更新) 11. 启用自动页面刷新和更改检测 12. 为数据集...
最新Delphi XE2 正式版破解
程序
对Delphi XE2和C++Builder XE2来说,一个极其重要的新特性就是FireMonkey,业界第一款用于创建商业软件的原生的能全面利用到CPU和GPU计算能力的富应用平台。使用 FireMonkey,Delphi和C++Builder开发人员能开发出...
win10操作系统的
ODBC
数据源
配置sqlserver数据库
ODBC
数据源
全称是开放数据库互连(Open Database Connectivity),在微软公司开放的数据库结构中的一部分,其实就是一个应用
程序
的接口,主要用于提供数据库的编写应用
程序
的能力。 简单说就是
ODBC
一个中间层,我们...
MS-SQL Server
34,590
社区成员
254,589
社区内容
发帖
与我相关
我的任务
MS-SQL Server
MS-SQL Server相关内容讨论专区
复制链接
扫一扫
分享
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章