string-如何利用VB6.0查询数据库内各表之间的是否存在关系以及如何建立关系？

问题描述

如何利用VB6.0查询数据库内各表之间的是否存在关系以及如何建立关系？
Public Function HasThisRelation(RelName As String) As Boolean

Dim Rel As RelationFor Each Rel In gDataBase.Relations    If Rel.Name = RelName Then        HasThisRelation = True        Exit Function    End IfNextHasThisRelation = False

End Function
这个是利用DAO进行查询的，我想知道如果用ADO该怎么做呢？

解决方案

http://wenku.baidu.com/link?url=IaIRE6Cikfmc7vVO9oM0L6sUeJn2P_7Hp2JEQj7_lZahC007TMEDcIY7AT3AGQO0PE_Z4_D5jz_V9yO2EDMrjq4G-kWBvUvAcuskZ2MNhJm

时间： 2024-08-18 03:32:27

string-如何利用VB6.0查询数据库内各表之间的是否存在关系以及如何建立关系？的相关文章

如何查询其他数据库内的表(IN子句实例)？

数据|数据库 如何查询其他数据库内的表(IN子句实例)?   问题: 如何引用其他数据库内的表?(查询外部表)jet sql 中的 in 子句到底怎么用?在哪里用?   方法一: select能否查询其他数据库中表的数据? SELECT * FROM tbl_family IN other.mdb"[5556]"; 方括号[]内的是其他数据库的连接字串   方法二: SELECT *FROM [;database=C:\db2.mdb;pwd=1].表1 AS a, 表1 AS bWH

sqlserver查询数据的所有表名和行数

原文:sqlserver查询数据的所有表名和行数 //查询所有表明select name from sysobjects where xtype='u' select * from sys.tables //查询数据库中所有的表名及行数 SELECT a.name AS [TABLE NAME] , b.rows AS [RECORD COUNT] FROM sysobjects AS a INNER JOIN sysindexes AS b ON a.id = b.id WHERE ( a.t

利用VB6.0设计屏幕保护程序

Windows操作平台设有一个屏幕的保护措施,即屏幕保护功能.经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了,没有新鲜感了,是不是想自己设计屏幕保护程序.下面介绍如何利用VB设计用户自己的屏幕保护程序.屏幕保护程序可以保护显示屏不被损坏,同时节约能源.作为屏幕保护程序,应该具有如下特性: 1)屏幕保护程序运行时,鼠标光标被自动隐藏,在程序结束时,光标显示.2)当单击.移动鼠标或按下键盘时,屏幕保护结束,回到正常操作状态.为了实现这些特性,在编写

利用VB6.0开发简易版类似PhotoShop软件的初步探讨

示例工程:http://files.cnblogs.com/laviewpbt/ImageShop.rar 声明:1.如果你对VB语言有意见或者看不起他,依旧欢迎你评论,但请你不要用辱骂性的语言来评论. 2.本文不考虑项目的商业上的可行性及必要性. 3.本文不存在攻击其他语言的目的. 这个问题我想了好久了,从毕业设计做图像检测开始接触图像,到工作中业余时间研究图像,大概也有个四五年了,程序也从最开始的零星凑合到一个小小的完整版本,常常在走路或者睡觉前为了某个问题的解决方案而思索,也曾经一下子迷失

在C#.net中将查询数据导入EXCEL表输出

excel|数据 .NET封装了EXCEL相关的类,以下是实现在程序中标工具条中点击"EXCEL输出"按钮而触发的事件,前提是你的系统中装有EXCEL.这是我的代码,有注释说明:private void toolBar1_ButtonClick(object sender, System.Windows.Forms.ToolBarButtonClickEventArgs e)  {//工具条各个按纽单击事件   if(e.Button==excelOut)   {     Excel.

利用存储过程得到某一指定的表与其它的表之间的外键关系SQL Server2000

server|存储过程 --我参照的表名  我的果些字段[5]要参照以下表[1]的某些字段[3]的取值declare  @id bigintselect  @id=id from sysobjects where name='d_病人资料库'select a. name N'被参照表名',b.rkey N'被参照列在被参照表中的位置',c.name N'被参照列名',b.fkey N'参照字段在本表中的列位置' ,d.name  N'参照字段名'from sysforeignkeys b ,sy

vb6 0-vb6.0 Excel数据导入Access不能任意路径

问题描述 vb6.0 Excel数据导入Access不能任意路径 vb6.0 Excel数据导入Access不能任意路径,必须要EXCEL文件和ACCESS数据库在同一个目录下才能成功导入,请大神帮忙看看怎么修改一下才能EXCEL在任意位置都可以导入. ----------------------------打开数据库找到数据表部分------------------ Private Sub Form_Load() Dim cnn1 As New ADODB.Connection Dim rst

【百度地图API】建立全国银行位置查询系统（四）——如何利用百度地图的数据生成自己的标注

原文:[百度地图API]建立全国银行位置查询系统(四)--如何利用百度地图的数据生成自己的标注 摘要: 上一章留个悬念,"如果自己没有地理坐标的数据库,应该怎样制作银行的分布地图呢?" 答案就是,利用百度地图上的数据. ---------------------------------------------------------------------------------------------- 我们不用花大把时间写代码去跑数据,只需要利用百度地图API提供的免费接口,就可以

vb6.0的listview怎么通过适配器获得屏幕数据坐标

问题描述 vb6.0的listview怎么通过适配器获得屏幕数据坐标 vb6.0的listview怎么通过适配器获得屏幕数据坐标?怎么得到当前单元格相对屏幕坐标呢?