-
等级
本版专家分：0结帖率 100% -
各位高手,我想在VB中编程建立一个基于ACCESS数据库的DNS数据源,不知道如何下手,望指教,谢谢!展开阅读全文
-
等级
本版专家分：11033 -
Public Enum e_DSNtype
eUserDSN = 0 '系统数据源
eSysDSN '用户数据源
End Enum
Private Const ODBC_ADD_DSN = 1
Private Const ODBC_CONFIG_DSN = 2
Private Const ODBC_REMOVE_DSN = 3
Private Const ODBC_ADD_SYS_DSN = 4
Private Const ODBC_REMOVE_SYS_DSN = 6
Private Const vbAPINull As Long = 0&
Private Const SQL_SUCCESS As Long = 0
Private Const SQL_ERROR As Long = -1
Private Const SQL_FETCH_NEXT As Long = 1
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv As Long, ByVal fDirection As Integer, ByVal szDSN As String, ByVal cbDSNMax As Integer, pcbDSN As Integer, ByVal szDescription As String, ByVal cbDescriptionMax As Integer, pcbDescription As Integer) As Integer
Private Declare Function SQLAllocEnv Lib "ODBC32.DLL" (env As Long) As Integer
'创建数据源 成功返回TRUE，失败返回FALSE
Public Function fun_CreateDSN(ByVal DSNname As String, ByVal ODBCdriver As String, ByVal DSNtype As e_DSNtype, _
ByVal SVRname As String, ByVal DBname As String, ByVal User As String, _
ByVal pwd As String, ByVal DSNdesc As String) As Boolean
' DSNname：数据源名
' ODBCdriver：数据源驱动
' DSNtype：数据源类型（系统、用户）
' SVRname：服务器名称
' DBname：数据库名
' User：用户名
' PWD：密码
' DSNdesc：数据源描述
On Error Resume Next
Dim nRet As Long
Dim sAttributes As String
If DSNname <> "" Then sAttributes = "DSN=" & DSNname & Chr$(0)
If DSNdesc <> "" Then sAttributes = sAttributes & "DESCRIPTION=" & DSNdesc & Chr$(0)
If SVRname <> "" Then sAttributes = sAttributes & "SERVER=" & SVRname & Chr$(0)
If User <> "" Then sAttributes = sAttributes & "UID=" & User & Chr$(0)
If pwd <> "" Then sAttributes = sAttributes & "PWD=" & pwd & Chr$(0)
If InStr(1, LCase$(ODBCdriver), "access") > 0 Then
If DBname <> "" Then sAttributes = sAttributes & "DBQ=" & DBname & Chr$(0)
ElseIf InStr(1, LCase$(ODBCdriver), "sql server") > 0 Then
sAttributes = "DSN=" & DSNname & Chr$(0) & "Server=" & SVRname & Chr$(0) & _
"UseProcForPrepare=Yes" & Chr$(0)
Else
If DBname <> "" Then sAttributes = sAttributes & "DATABASE=" & DBname & Chr$(0)
End If
If DSNtype = eSysDSN Then
nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, ODBCdriver, sAttributes)
ElseIf DSNtype = eUserDSN Then
nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, ODBCdriver, sAttributes)
Else
fun_CreateDSN = False
Exit Function
End If
If nRet = 0 Then
fun_CreateDSN = False
Else
fun_CreateDSN = True
End If
End Function
'删除数据源，成功返回TRUE，失败返回FALSE
Public Function fun_DeleteDSN(ByVal DSNname As String, ByVal ODBCdriver As String, ByVal DSNtype As e_DSNtype) As Boolean
' DSNname：数据源名
' ODBCdriver：数据源驱动
' DSNtype：数据源类型（系统、用户）
On Error Resume Next
Dim nRet As Long
Dim sAttributes As String
sAttributes = sAttributes & "DSN=" & DSNname & Chr$(0)
If DSNtype = eSysDSN Then
nRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_SYS_DSN, ODBCdriver, sAttributes)
ElseIf DSNtype = eUserDSN Then
nRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, ODBCdriver, sAttributes)
Else
fun_DeleteDSN = False
Exit Function
End If
If nRet = 0 Then
fun_DeleteDSN = False
Else
fun_DeleteDSN = True
End If
End Function
例如：
dim bRet as boolean
bRet = fun_CreateDSN("Test", "Microsoft Access Driver (*.mdb)", eSysDSN, "", "C:\Bible.mdb", "", "", "Just a Test")
If bRet Then
MsgBox "Create DSN Success!", vbInformation
Else
MsgBox "Create DSN Fault!", vbExclamation
End If
-
等级
本版专家分：0
-
真棒！！！谢谢你！！！满分送上！
- VB数据库连接之二（数据源连接）
1.创建名称为“实例2DSN”的ODBC数据源 2.设计窗体 文本框名称分别为：txtUserName txtPassword txtMsg 按钮名称分别为： cmdPre cmdNext 3.功能实现 (1).全局变量声明 Dim objRs As Recordset '用于保存...
- VB创建Acess数据库
首先在引用中引用Microsoft ado ext. 2.8 for ddl and security 语句如下： Dim StrFileName As String Dim StrNewFileName As String StrFileName = "D:/" & "Wo" & CStr(Format(Date, ...
- JAVA上百实例源码以及开源项目源代码
Java目录监视器源程序 9个目标文件 内容索引:JAVA源码,综合应用,目录监视 用JAVA开发的一个小型的目录监视系统，系统会每5秒自动扫描一次需要监视的目录，可以用来监视目录中文件大小及文件增减数目的变化。...
- C#基础教程-c#实例教程，适合初学者
第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，...
- [VB.NET]各们,请问如何使用vb.net编写两个进程间消息通信的程序啊
VB.Net-C#多线程Thread-代理委托delegate编程 搜索局域网的计算机 源代码下载地址：http://download.csdn.net/source/1159770 界面： http://album.hi.csdn.net/app_uploads/linjimu/20090106/162454028.png 1.使用...
- JAVA上百实例源码以及开源项目
用JAVA开发的一个小型的目录监视系统，系统会每5秒自动扫描一次需要监视的目录，可以用来监视目录中文件大小及文件增减数目的变化。 Java日期选择控件完整源代码 14个目标文件 内容索引:JAVA源码,系统相关,日历,...
- 什么是jndi,什么时候使用jndi,tomcat配置jndi,spring使用jndi数据源
JNDI是 Java 命名与目录接口（Java Naming and Directory Interface），在J2EE规范中是重要的规范之一，不少专家认为，没有透彻理解JNDI的意义和作用，就没有真正掌握J2EE特别是EJB的知识。 那么，JNDI到底起什么...
- VB编程资源大全（控件 网络）
1,abkemail.ZIP 简单的email控件(18KB ) 2,abkpop.ZIP 一个简单的POP3控件(5KB) 3,winpopup.ZIP 允许您的 VB 程序通过网络发送和接收 Winpopup 信息(20KB) 4,autodial.ZIP 自动拨号的控件(30...
- 在vb中使用Iphlpapi.dll获取网络信息
※================================================================== ※本连载文章说明： ... ※2、此次网上连载采用的是原稿件结构，内容与《软件报》发表略有不同； ※3、谢绝除《软件报》及其相关刊物之外的...
- VB获取Windows操作系统所有版本
我为人人'枕善居汉化收藏整理'发布日期：2007/08/20'描 述：完全获取Windows操作系统的版本'网 站：http://www.Mndsoft.com/ (VB6源码博客)'网 站：http:...
- JNDI学习总结（一）：JNDI到底是什么？
JNDI是 Java 命名与目录接口（Java Naming and Directory Interface），在J2EE规范中是重要的规范之一，不少专家认为，没有透彻理解JNDI的意义和作用，就没有真正掌握J2EE特别是EJB的知识。那么，JNDI到底起什么...
- VB6.0＋MySQL4.1数据库编程
VB6.0＋MySQL4.1数据库编程 By: 吴垠 Date: 2005-04-16 Email: lazy_fox#msn.
- 云原生 （Cloud Native） = 微服务 + DevOps + 持续交付 + 容器化 ？
目录 什么是云原生？ 云原生之前 云原生 云原生简介 微服务 DevOps 持续交付 容器化 云原生的发展历程 云原生技术生态现状 云原生基金会 —— CNCF 云原生技术社区 云原生技术产业 ......
- 项目一 认识Linux操作系统
任务一 查找Linux系统的基本概况第一步：通过搜索引擎搜索“Linux” 在百度以及Google 等搜索引擎中搜索“UNIX”,"Linux"，“Linux操作系统”等关键词。第二步：收集整理搜索到的网页（1）UNIX是大型机用...
- ASP.NET 系列_05_编程指南(一)
关于 ASP.NET 编程指南 ASP.NET 编程指南 注意: 编程指南4篇文章, 全部是使用ASP.NET Web Forms模板创建项目(即: 带CodeBehind的Web窗体模板) (注意: 不是MVC模板!...ASP.NET 是一个由 M...
- 在vb中使用Iphlpapi.dll获取网络信息(上）
※==================================================================※本连载文章说明：※1、连载首发于《软件报》（http://www.sweek.com）2006年21期（2006年5月22日）；※2、此次网上连载采用的是原稿件结构...
- 2013年上半年 系统集成项目管理工程师 上午试卷 综合知识 软考真题【含答案和答案解析】
1. （1）不符合《计算机信息系统集成企业资质评定条件》有关信息系统成企业一级资质评定的规定。 A. 企业的主要负责人从事信息技术领域企业管理的经历不少于5年。 B. 主要技术负责人须有计算机信息系统高级资质 C...
- [转]在vb中使用Iphlpapi.dll获取网络信息
在vb中使用Iphlpapi.dll获取网络信息http://blog.csdn.net/UruseiBest※==================================================================※本连载文章说明：※1、连载首发于《软件报》（http://www.sweek.com）...
- VB.NET 导出数据到EXCEL中
VB.NET 导出数据到EXCEL中[日期：2007-07-29] 来源： 作者： [字体：大 中 小] ----------VB.NET 导出数据到Excel中------------- Dim oExcel As New Excel.Application Dim obook As Excel.Workbook Dim oSheet As ...
- js向unity提供数据接口_Node.js 是什么？我为什么选择它？
作者 |五月君来源 |Nodejs技术栈公众号投稿当我们学习一项新的事物的时候，我们首先要知道它来自哪里？它是什么？能做什么或者换句话说，能解决什么问题？没有一样东西是最好的，是可以替代所有的，但在某一领域它是...
- 在vb中使用Iphlpapi.dll获取网络信息(下）
（转上版）... 5、运行时截图：第十四节 返回本机网络接口数量 1、函数： Private Declare Function GetNumberOfInterfaces Lib "iphlpapi.dll" (pdwNumIf As Long) As L...
- UPnP协议编程实践（一）
本专题主要是介绍UPnP的工作原理和基本概念，包括SSDP...本文是这个专题的第一篇，主要介绍UPnP的工作原理和基本概念。 1 评论： 于辰涛 (scuyct@hotmail.net) XML error: Please enter a va
- 精心整理，115个编程相关学习类网站
编程学习知识宝库： 1.CSDN http://www.csdn.net/ 网站简介：CSDN.NET - 全球最大中文IT社区，为IT专业技术人员提供最全面的信息传播和服务平台 2.脚本之家 http://jb51.net ...
- 100多个优秀的互联网编程学习平台整理。
脚本之家 http://jb51.net 网站简介：脚本之家是国内专业的网站建设资源、脚本编程学习类网站，提供asp、php、asp.net、javascript、jquery、vbscript批处理、网页制作、网络编程、 2.CSDN ...
- vb资源下载 长期有效
东西太多了 自己懒得改文件列表 大家看着下吧 呵呵只整理到了一半 地址www.84ren.com驱动器 F 中的卷是 ZCM_BACK卷的序列号是 08BC-0AE4F:/VBCN/编程模块及工具2005-05-14 09:38 .2005-05-14 09:38 ..2005-03-24 16:...
- Eastmount博客导读：专栏系统分类和博客归纳总结
为了更好地帮助博友学习作者的博客，方便作者自己归纳总结专栏，本文详细介绍了作者八年来，在CSDN写的各种专栏，各种系列文章。八年来，作者经历了从本科到硕士，到贵州教书成家，再到现在的博士。八年来，作者学得...
- [转]VB:如何检测到U盘的插拔(源代码)
听说现在网络上流传着一些能实时检测到U盘插拔消息并能在其... 事实上当U盘（实际上不局限于U盘，所有能在系统中获得逻辑卷标的设备都适用）插入视窗系统的机器后操作系统将发送一个WM_DEVICECHANGE的广播消息，...
- 系统集成项目管理工程师教程重点、笔记和试题大全
信息化基础知识 一、信息化基础知识 ·信息： ·信息化： ·国家信息化体系要素：信息技术应用、信息资源、信息网络、信息...空间和部门分割的制约，建成一个精简、高效、廉洁、公平的政府运作模式。 ·电子政务...
- 项目一认识Linux操作系统
任务一 查找Linux系统的基本概况 1：通过百度搜索"UNIX"、“Linux"、"Linux操作系统“等关键词，阅读与Linux相关的文字。 UNIX: https://baike.baidu.com/item/unix/219943?fr=aladdin ...
- 太空大战游戏实战课程
课程模仿现有一款人气较高的飞行射击类游戏进行同步学习设计，采用标准C++以及OpenGL ES2.0可编程管线技术进行开发设计，课程详细的介绍了一款游戏的制作过程，以及编码过程，从设计到编码，到完成交付，三维立体的展示一款游戏的开发过程，设计细节，实现细节，在实战中学习，结合理论讲解，使得学员能在实战中得到锻炼，积累经验，升华自己。 完成一款飞行射击类游戏，通过实战，掌握一款射击类游戏的组成，掌握OpenGL ES2.0可编程管线技术。