hur.cn - 华软网

 热门搜索

  • 授权方式: 免费源码
  • 支付金币: 0个
  • 金币充值: 点击查看
  • 下载方法: 点击查看
  • 源码大小: 1095 KB
  • 评分等级: ★★★
  • 源码类别: 国内视频
  • 运行环境: WinXP/NT/Vista/Win7
  • 整理录入: 昕晨
  • 更新时间: 2009/12/3 14:36:06

源码介绍    


Yuer PB经典CHM

 

动态创建数据存储    
SQL语句动态创建DataStore,然后从DataStore中取出数据。

 

DataStore ldst_temp

String ls_sql

String ls_style

String ls_erorrs

String ls_syntax

ldst_temp = Create DataStore

ls_sql = 'select ..................'

ls_style = 'style(type=grid)'

ls_syntax = SQLCA.SyntaxFromSQL(ls_sql,ls_style,ls_erorrs)

IF Len(ls_errors) > 0 THEN

        MessageBox('错误','asll................')

ELSE

        ldst_temp.Create(ls_syntax,ls_errors)

        IF Len(ls_errors) < 1 THEN

                ldst_temp.SetTransObject(SQLCA)

                ldst_temp.Retrieve()

                //然后,你爱怎么读取数据就怎么读取了。多么方便啊。

        ELSE

                MessageBox("错了",'有错就该,就是好同志吗!')

        END IF

END IF

 

 

ASA数据库无法连接小解    
经常在论坛看到有的人问这样的问题。导致ASA数据库无法连接的问题有以下几种:

1、ODBC配置错误。没有配置数据源,数据库的用户名或口令错误等都会导致数据库无法连接。

解决的办法:检查数据源的配置,如果没有在ODBC中配置数据源则按照向导添加数据源即可;口令错误只需改为正确的即可。

 

2、连接时提示LOG文件错误。这样的问题大多出现在重装系统后、源码移植到其他系统、数据库文件路径改变之后。

解决的办法:在创建ASA数据库的时候不创建LOG文件,如果已经创建了LOG文件则可以利用PB自带的工具Sybase central来去掉LOG文件和数据库文件的关联。操作步骤如下:

                a)启动Sybase central在左边的树型目录中选择Utilities;

                b)双击右边出现的条目中的change log file settings,直接next;

                c)点Browse选择需要去除log文件的数据库文件,选好后next;

                d)这里你会看到一些数据库的信息,log文件名,文件大小等。next;

                e)去掉Maintin the following transaction log file前面的对勾,Finish;

                f)配置ODBC连接数据库就可以了。

 

3、数据库文件损坏。此类错误一般不常见,可能由于病毒破坏或误操作引起。

解决的办法:如果以前有备份用备份文件覆盖原文件即可,如果没有备份文件就只能重新建库了!

 

递归实现替代或删除指定的字符串(作者不详)    
替代或删除指定的子串(相当于Replace的应用),以递归方式实现

 

 

函数定义:

f_replace_string(String ls_old Value ,String ls_replace Readonly,String ls_with Readonly)

 

程序源码如下:

String ls_new

Integer li_find

li_find = Pos(ls_old, ls_replace)

IF li_find > 0 THEN

        ls_new = Left(ls_old, li_find -1) ls_with Mid(ls_old, li_find Len(ls_replace))

        Return(f_replace_string(ls_new,ls_replace,ls_with))

ELSE

        Return(ls_old)

END IF

 

在函数中如要删除子串,第三个参数可为空串("")



上一源码:WindowsSockets规范及应用CHM
下一源码:房客Bood制作的编程技巧集CHM

下载地址    

  • Yuer PB经典CHM

下载说明

  • 为防止盗链,本站资源部分有解压密码,解压密码点击查看
  • 如果您发现该资源不能下载,请通知管理员;
  • 为了保证您快速的下载,推荐使用迅雷或网际快车等专业工具下载;
  • 为确保所下资源能正常使用,请使用WinRAR v3.80或以上版本解压本站资源;
  • 本站所收集的下载资源均来源于网络,如果有侵犯您的版权,请来信告知,我们会马上处理;
  • 本站所提供的资源仅供学习和研究,请勿用于商业用途,请在下载后24小时内删除;
  • 本站不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害!