快讯
首页 > 软件 > 开发特区 > 开发语言 > VB > 正文
世界杯

非access数据库在vb中的编程及应用(2)

2004-02-14 09:34  出处：eNet学院  作者：佚名  责任编辑：pjl 

在本页浏览全文
　　设此应用程序的配置文件为mydb.ini，则具体过程如下 ： 　 funtion getinistring$( byval fname$ ， byval szitem$ ， byval szdefault$ ) ’ 此 自定义子函数实现ini文件内设置段内参数的读取 dim tmp as string ， x as integer tmp = string( 2048,32 ) x = osgetprivateprofilestring( fname$ ， szitem$ ， szdefault$ ， tmp ， len(tmp) ， “ mydb.ini ” ) getinistring = mid$( tmp,1,x ) end function 以下这些函数的声明可写在模块文件内，且每个函数的声明必须在一行内 declare function osgetprivateprofilestring% lib "kernel" alias "getprivateprofilestring" (byval appname$, byval keyname$, byval keydefault$, byval returnstring$, byval numbytes as integer, byval filename$) declare function oswriteprivateprofilestring% lib "kernel" alias "writeprivateprofilestring" (byval appname$, byval keyname$, byval keydefault$, byval filename$) declare function osgetwindowsdirectory% lib "kernel" alias "getwindowsdirectory" (byval a$, byval b%) sub form1_load( ) dim st as string dim x as integer dim tmp as string tmp = string$( 255, 32 ) ’ 在 ini 文 件 内 为 各 种 数 据 库 格 式 指 明 已 安 装 的 相 应 isam 驱 动 程 序 x = oswriteprivateprofilestring(" installable isams", "paradox 3.x", "pdx110.dll", "mydb.ini" ) x = oswriteprivateprofilestring( "installable isams", "dbase iii", "xbs110.dll", "mydb.ini" ) x = oswriteprivateprofilestring( "installable isams", "dbase iv", "xbs110.dll", "mydb.ini" ) x = oswriteprivateprofilestring( "installable isams", "foxpro 2.0", "xbs110.dll", "mydb.ini" ) x = oswriteprivateprofilestring( "installable isams", "foxpro 2.5", "xbs110.dll", "mydb.ini" ) x = oswriteprivateprofilestring( "installable isams", "btrieve", "btrv110.dll", "mydb.ini" ) x = oswriteprivateprofilestring( "dbase isam", "deleted", "on", "mydb.ini" ) ’ 指 明 ini 文 件 的 位 置 x = osgetwindowsdirectory( tmp, 255 ) st = mid$( tmp, 1, x ) setdataaccessoption 1, st + "\mydb.ini" ’ 获 得 ini 文 件 一 些 参 数 gwmaxgridrows = val(getinistring( “ mydb.ini ” ,"maxrows", "250" )) glquerytimeout = val(getinistring( “ mydb.ini ” ,"querytimeout", "5" )) gllogintimeout = val(getinistring( “ mydb.ini ” ,"logintimeout", "20" )) end sub 　
12在本页浏览全文
键盘也能翻页，试试“← →”键
软件频道本周热门文章
今日聚超值 更多>>
IT热词搜索 来源：360新闻
软件论坛精选 进入论坛>>
软件论坛帖子排行
  1. 1
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  2. 2
    %E8%8A%B1%E5%91%97%E6%80%8E%E4%B9%88%E5%A5%97%E5%87%BA%E7%8E%B0%E9%87%91%E3%80%90%E8%AF%A6%E8%A7%A3%E3%80%91
    楼
  3. 3
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  4. 4
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  5. 5
    ps清理剪贴板技巧分享
    楼
  6. 6
    局域网内网速度慢的原因及解决方法
    楼
  7. 7
    InDesign栏线插入教程分享
    楼
  8. 8
    抖音怎么破解对方的隐私设置 强制看对方隐藏的抖音号方法【详解】
    楼
  1. 1
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  2. 2
    %E8%8A%B1%E5%91%97%E6%80%8E%E4%B9%88%E5%A5%97%E5%87%BA%E7%8E%B0%E9%87%91%E3%80%90%E8%AF%A6%E8%A7%A3%E3%80%91
    楼
  3. 3
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  4. 4
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  5. 5
    ps清理剪贴板技巧分享
    楼
  6. 6
    局域网内网速度慢的原因及解决方法
    楼
  7. 7
    InDesign栏线插入教程分享
    楼
  8. 8
    抖音怎么破解对方的隐私设置 强制看对方隐藏的抖音号方法【详解】
    楼
  1. 1
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  2. 2
    %E8%8A%B1%E5%91%97%E6%80%8E%E4%B9%88%E5%A5%97%E5%87%BA%E7%8E%B0%E9%87%91%E3%80%90%E8%AF%A6%E8%A7%A3%E3%80%91
    楼
  3. 3
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  4. 4
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  5. 5
    ps清理剪贴板技巧分享
    楼
  6. 6
    局域网内网速度慢的原因及解决方法
    楼
  7. 7
    InDesign栏线插入教程分享
    楼
  8. 8
    抖音怎么破解对方的隐私设置 强制看对方隐藏的抖音号方法【详解】
    楼
高清壁纸
相关文章

相关软件：

腾讯QQ2012
大小：52.93 MB 授权：免费
腾讯QQ2012
立即下载
腾讯QQ2013
大小：49.32 MB 授权：免费
腾讯QQ2013
立即下载
最热搜索

无线路由器怎么用 会说话的汤姆猫电脑版 12306网上订火车票 跳舞吧 flash player 下载 PP助手电脑版 Adobe Reader(pdf阅读) iOS6正式版12项新功能 QQ空间克隆器 9158视频KTV 植物大战僵尸辅助工具 Win8怎么关机 QQ空间进不去 2013年春节是几月几号 QQ昵称 QQ空间皮肤 PPT模板 电脑输入法不见了怎么办 2012中秋节是几月几日 word安全模式 qq输入法怎么点亮 IE修复 感恩节是几月几日 CSS布局 PS快捷键 Outlook设置 声卡驱动器官方免费下载 格式工厂怎么用 桌面图标有阴影怎么去掉 Windows RT是什么意思 2013年日历设计 Word打不开怎么办 Win8专区 腾讯微云网 windows8激活工具 剑灵什么时候公测 QQ通讯录怎么用 开心斗地主 拖拉机小游戏 麻将游戏 中国象棋 德州扑克 黄金矿工中文版 保皇扑克游戏 四国军棋 万圣节是几月几日 ps抠图教程 12306订票助手 万圣节小游戏大全 rar文件怎么打开 Photoshop CS6教程 iOS6完美越狱 QQ个性签名