index1.txt

VB技巧问答10000例 VB技巧问答10000例

1,运行程序时出现Snapshot 用户定义类型未定义 
问题: 本人有一工程是vb6.0编写的，现已经升级为vb6.0，data控件是用dao2.5/3.5 compatibility library 现在想升级到dao3.60 object ibrary,运行程序时出现 Dim SsDEPOSIT As Snapshot 用户定义类型未定义。（已经在工程-引用下选择dao3.60） 
<END>
2,aaa=100乘360竟然溢出 
最近搞开发遇到一个简单又奇怪的问题。 win98 vb6.0 的环境下 
     Dim aaa As Double 
     
     aaa=100*65535 
     msgbox aaa 
     
     aaa=100*360 
     msgbox aaa 
    aaa=100*360 竟然溢出，实时错误6 。 
    把100 和 360 给变量相乘就没有问题。请给看看帮着研究研究。 
<END>
3,错误：试图存储以只读访问方式打开的数据库 
我的机器是单机,安装了winNT4.0操作系统,前几天装了SQL server7.0数据库软件,我用Visual Basic 6.0 编写程序引用DAO对象访问SQL server中的数据库，程序如下： 
    ------------------------------------------ 
    Dim ws As Workspace mqis是ODBC系统数据源名称 
    Dim db As Database 
    Dim rs As Recordset 
     
    Private Sub Form_Load() 
    Set ws = Workspaces(0) 
    Set db = ws.OpenDatabase("", dbDriverNoPrompt, False, "odbc;pwd=;uid=;dsn=mqis;database=betsn") 
    Set rs = db.OpenRecordset("bz", dbOpenDynaset) 
    End Sub 
     
    Private Sub addrecord_Click() '在bz表中添加一条记录 
    rs.AddNew 
    rs.Fields("name") = "smith" 
    rs.Fields("age") = 26 
    rs.Update 
    End Sub 
    ------------------------------------------- 
    其中betsn是在SQL server中建的一个数据库，bz是betsn库中的表,程序可以读取表中的数据，但是执行addrecord_click事件往表中添加记录时就显示错误信息"实时错误'3027':不能更新。数据库或对象是只读的。" ，我查看了帮助信息，显示如下： 
    -------------------------------------------- 
    试图存储以只读访问方式打开的数据库。 
    数据库只读原因有： 
     
    ?以只读访问方式使用 OpenDatabase 方法打开数据库。 
    ?在 Visual Basic 中，使用 Data 控件并把 ReadOnly 属性设置为 True。 
    ?数据库文件在操作系统或网络中被定义成只读。 
    ?数据库文件存储在只读介质上。 
    ?在网络环境中，没有写入数据库文件的权限。 
    ?当数据库以加密方式工作时，数据库或它的对象（如字段或数据表）可被设置成只读。可能不允许以用户名称及密码去访问这个数据。 
    请关闭数据库，解除只读的条件，然后以读入／写入访问方式再打开文件。 
    -------------------------------------------- 
    书上说 "Recordset对象的addNew方法和Update方法可以用来在可修改的DAO Recordset 对象中增加行,我想可能是SQL server中用户权限没有设置好，但是在SQL server7.0的查询分析器Query Analyzer中用INSERT 语句可以向表格中添加数据，而在程序中不行,我对SQL server不是很熟悉,请专家指教，多谢!
<END>
4,vb6提示错误输入超出文件尾 
我在VB 5中使用Input(number, [#]filenumber)时，用LOF([#]filenumber)来表示文件长度；但执行中VB 5提示错误："输出超出文件尾"。用FileLen(filepath)得出文件长度也一样。这是怎么回事？ 
    Private Sub Command3_Click() 
     Dim TextLine As String 
     Dim filenum1 As Integer,filenum2 As Integer 
     Dim ds As Double 
     Dim de As Double 
     
     filenum1 = FreeFile() 
     Open "d:\test1.txt" For Input As filenum1 ' 打开文件。 
     
     Dim l As Integer 
     l = FileLen("d:\test1.txt") ' 用FileLen查询文件长度 
     
     filenum2 = FreeFile() ' 取下一个空文件号 
     Open "d:\output.txt" For Output As filenum2 
     
     ds = Timer 
     TextLine = Input(LOF(filenum1), filenum1) ' 出错 
     Write #filenum2, TextLine 
     
    '--------------------------以下代码可正常使用 
     
     Do While Not EOF(filenum1) ' 循环至文件尾。 
     Line Input #filenum1, TextLine ' 读入一行数据并将其赋予某变量。 
     'Debug.Print TextLine ' 在调试窗口中显示数据。 
     Print #filenum2, TextLine ' 写入新建的文件 
     Loop 
    '---------------------------------- 
     de = Timer 
     Debug.Print de - ds 
     
    Close filenum1 
    Close filenum2 ' 关闭文件。 
    End Sub 
<END>
5,编译后运行出现“运行时错误’326’，未找到标识符为’xxx'的资源”  
问题：我用资源文件（.res)进行两种语言界面风格的软件开发时，程序在VB环境下（即未编译前）能正常运行，但编译后运行出现“运行时错误’326’，未找到标识符为’xxx'的资源”，但实际上xxx号资源确实存在，请问是什么原因。 
<END>
6,为什么在调试程序时出现找不到工程和库光标停在format或light等简单函数上 
请问为什么在调试程序时出现"找不到工程和库"光标停在format或light等简单函数上? 
<END>   
7,程序运行时报Run-time error429的错误 
我在使用下面这段代码读取WORD文件内容时，必须打开一个WORD窗口，即使WORD窗口中只包括一个空白的文档，这时程序会一次性把该文档中的所有内容全部读入，如果打开没有WORD窗口，则程序运行时会报Run-time error '429' 
    ActiveX componnent can't create object的错误，请问这是为什么？ 
    Dim sFileName, sContent, sPartContent As String 
    Dim wrdApp As Object 
    CommonDialog1.ShowOpen 
    If Err <> 0 Then Exit Sub 
    sFileName = CommonDialog1.FileName 
    If sFileName = "" Then Exit Sub 
    Set wrdApp = Word.Application 
    wrdApp.Visible = False 
    wrdApp.Documents.Open (sFileName) 
    sContent = wrdApp.ActiveDocument.Content 
<END>    
8,系统提示出错Only one MDIForm allowed 
问题：我在MDIForm中放置了一个MSComm串口通讯控件,想在MDIForm的子窗体中对它进行操作,不知如何写好此代码,查各资料未果,特向您请教。 
    在子窗体的CommandButton的Click事件中我写入的是: 
     frmMain.MSComm1.Output = Chr(&H0),系统提示出错:Only one MDIForm allowed 
    该如何在此事件中发送数据呢? 
<END>    
9,出现 Ambiguous name detected cmdRead_Click 的字样 
本人是VB新手，问题幼稚，见谅，见谅！本人正在利用研华提供的数据采集DLL库函数编数采程序。在按F5键Run时，提示某一按键控件cmdRead_Click出现 ： 
    " Ambiguous name detected: cmdRead_Click "的字样，我找不出原因，十分困惑，请各位专家提示可能产生的原因！
<END>
10,发送邮件和邮件附件当附件大于40k后程序告诉我溢出
我有一个程序可以发送邮件和邮件附件。 
    但是当我发送附件大于40k后程序告诉我"溢出" 
    Public Sub Base64EncodeFile(strFile As String, rtfTemp As RichTextBox, txtOutput As TextBox) 
     
     Dim intCount As Integer 
     Dim strTemp As String 
     Dim lngMax As Long 
     
     lngMax = 0 
     txtOutput.Text = "" 
     rtfTemp.LoadFile strFile 
     
     For intCount = 1 To Len(rtfTemp.Text) Step 3 "就是在这一行" 
     
     strTemp = Mid(rtfTemp.Text, intCount, 3) 
     txtOutput.Text = txtOutput.Text & Base64Encode(strTemp) 
     lngMax = lngMax + 4 
     
     If lngMax = 72 Then 
     lngMax = 0 
     txtOutput.Text = txtOutput.Text & vbCrLf 
     End If 
     
     DoEvents 
     Next intCount 
    请问该怎么办?
<END>
11,设置字体名称时，VB总是说实时错误‘380’，无效属性值 
我 在 用 vb学 习 的 时 候 下 面 有 一 段 代 码 ， 当 我 运 行 的 时 候 。 当 点 击 “ 仿 宋 ” 这 一 组 合 框 中 的 一 项 时 ， vb总 是 说 实 时 错 误 ‘ 380’ ， 无 效 属 性 值 ， 不 知 这 是 什 么 意 思 ， 恳 请 赐 教 
    附 ； 代 码 如 下 
    Private Sub Combo1_Click() 
    Select Case Combo1.ListIndex 
    Case 0 
    Text1.FontName = "宋 体 " 
    Case 1 
     
    Text1.FontName = "黑 体 " 
    Case 2 
    Text1.FontName = "仿 宋 " 
    Case 3 
    Text1.FontName = "楷 体 " 
    End Select 
    End Sub 
     
    Private Sub Form_Load() 
    Combo1.AddItem "宋 体 " 
    Combo1.AddItem "黑 体 " 
    Combo1.AddItem "仿 宋 " 
    Combo1.AddItem "楷 体 " 
     
    End Sub 
     
    Private Sub HScroll1_Change() 
    Text1.FontSize = HScroll1.Value 
    Label3.Caption = HScroll1.Value 
    End Sub 
<END>
12,出现3061号错误缺少参数期望是
我 在 将 当 前 Form上 CmbCustomer列 表 中 已 被 选 取 项 作 为 查 询 条 件 时 ,出 现 错 误 ,程 序 如 下 : 
    (数 据 库 文 件 无 问 题 ) 
    dim Strsql as String 
    dim db as DataBase 
    dim rs as Recordset 
     
    set db=opendatabase(......) 
     
    Strsql="Select * from tblcustomer where CustomerName=" & CmbCustomer.list(CmbCustomer.listindex) 
     
    set rs=db.open(Strsql) '运 行 到 此 出 现 错 误 
    出 现 <3061>号 错 误 提 示 如 下 : 
    "缺 少 参 数 ,期 望 是 " 
    请 帮 手 多 谢 ! 
<END>    
13,当编译工程文件时总出现“代码生成器或链接器中出现未知的错误” 
问 题 ： 我 的 计 算 机 是 进 行 重 新 安 装 过 的 ， 现 在 只 有 ： windows98II、 vb6.0、 office2000， 再 无 别 的 软 件 ， 当 编 译 工 程 文 件 时 总 出 现 “ 代 码 生 成 器 或 链 接 器 中 出 现 未 知 的 错 误 ” ， 到 现 在 也 没 有 解 决 。 请 问 ： 怎 么 解 决 ？ 跟 硬 件 有 关 系 吗 ？ 
<END>
14,报错：标准表达式中数据库类型不匹配 
问 题 : 专 家 ： 你 好 ,菜 鸟 小 弟 今 遇 一 事 不 明 ， 特 请 教 。 即 小 弟 我 在 用 data控 件 编 一 小 数 据 库 时 ， 当 执 行 data1.refresh时 ， 报 错 ： 标 准 表 达 式 中 数 据 库 类 型 不 匹 配 。 
    查 询 语 句 为 ： "select产 品 名 称 ， 价 格 from 表 1 where[产 品 名 称 ] ="&xh 
    其 中 产 品 名 称 类 型 为 text， 价 格 为 currency， xh为 string.请 大 哥 指 点 一 二 ， 不 胜 感 激 ！ 
<END>    
15,ADO编的程序出现Runtime-Error-2147217887的错误提示 
问 题 ： Vb6.0+SP3， SQL SERVER7.0(装 在 WIN2000 SERVER上 )。 问 题 : 用 ADO（ OLEDB For SQL Server)编 的 一 个 数 据 库 程 序 ,打 包 后 在 本 机 安 装 运 行 无 误 ， 之 后 在 网 络 的 其 他 机 子 上 安 装 ， 完 成 后 第 一 次 运 行 均 正 常 ， 但 是 后 来 有 的 机 子 上 在 运 行 程 序 （ 往 数 据 库 中 增 加 记 录 时 ， 出 现 "Run time-Error"-2147217887(80040e21) Errors occurred" 的 错 误 提 示 ， 但 在 同 一 时 间 ， 用 开 发 程 序 的 源 机 子 运 行 该 程 序 则 无 此 错 误 。 万 望 高 手 指 教 为 谢 ！ 
<END>
16,提示DDE初始化时无外部程序响应
我 在 VB6编 程 遇 到 了 困 难 ,希 望 给 予 解 答 ! VB6的 动 态 数 据 交 换 内 容 我 的 程 序 内 容 是 ： 下 面 程 序 执 行 后 ， 会 在 目 的 端 LABE2上 显 示 DATE.EXE 程 序 的 日 期 及 时 间 以 下 是 原 代 码 ： 
    来 源 端 ： 
    private sub form_load() 
    timer1.interval=1000 
    end sub 
    private sub timer1_timer() 
    label1=date label2=time 
    form1.caption=date+ ""+time 
    end sub 
    form1的 DDE属 性 如 下 ： 
    LINKMODE 设 定 值 为 1— — 来 源 
    LINKTOPIC 设 定 值 为 FORM1 
    目 的 端 ： 开 启 新 项 目 ， 在 FORM1上 安 置 一 个 卷 标 LABEL1 更 改 LABEL1之 DDE相 关 属 性 ： LINKTOPIC 设 定 值 为 DATE|FORM1 LINKITEM 设 定 值 为 LABEL2 LINKMODE 设 定 值 为 1-自 动 更 新 
    问 :"form1.caption=date+ ""+time"此 句 在 编 译 是 提 示 "实 时 错 误 (13),类 型 不 匹 配 " ， 在 设 置 目 的 端 LABEL1的 LINKMODE 为 1时 ,提 示 "DDE 初 始 化 时 无 外 部 程 序 响 应 " 
<END>    
17,出错Else没有If
问 题 : 一 个 简 单 的 程 序 如 下 ： 
    Private Sub Command1_Click() 
    If Text1.Text=ok Then Text1.Text=click 
    Else 
    Text1.Text=ok 
    End If 
    End Sub 
    Form1里 有 一 button和 TextBox,程 序 运 行 时 ， 总 出 错 ： “ Else 没 有 If",请 问 到 底 哪 错 了 ， 谢 谢 ！ 
<END>
18,错误信息453：can't find dll entry point 
1,请 问 ， 以 下 error信 息 是 什 么 意 思 ？ run-time error '453' can't find dll entry point openprocess in kernel 32 (我 有 一 个 定 义 Private Declare Function openprocess Lib "kernel32" (ByVal dwdesireaccess As Long, ByVal bInherithandle As Long, ByVal dwprocessId As Long) As Long ) 
    2,一 个 简 单 的 程 序 （ 有 以 上 引 用 ） ， 做 成 exe 后 如 在 另 台 pc上 运 行 须 拷 别 的 什 么 ？ 
<end>
19,显示数据类型不匹配 
问 题 : 请 教 一 个 数 据 类 型 匹 配 的 问 题 。 
    有 一 Access数 据 表 ， 内 有 高 度 、 容 量 两 个 字 段 ， 均 为 double类 型 ， 
    Dim RS1 As Recordset 
    在 某 过 程 ， 有 下 列 语 句 
    Yg = Val(txtYg.Text) 
    RS1.FindFirst "高 度 ='" + Yg + "'"　 ① 
    v0 = RS1.Fields("容 量 ") 
    txtV0 = Str(v0) 
    当 txtYg.text输 入 数 字 后 ， 运 行 到 ① 却 显 示 数 据 类 型 不 匹 配 ， 为 什 么 ？
<END>
20,Data1.Updaterecord 时会发生数据类型转换错误
请 问 ： pwin95 vb6.0 
    text1 与 data1中 的 一 single字 段 相 连 若 ： text1.text="" 
    则 data1.updaterecord 时 会 发 生 "数 据 类 型 转 换 错 误 "但 又 不 触 发 Data1_Validate,请 问 怎 么 解 决 ？ 
<END>
21,怎样在程序运行时捕获错误 
问 题 : 怎 样 在 程 序 运 行 时 捕 获 错 误 ， 并 且 知 道 是 哪 一 类 错 误 ？ 
<END>
22,绑定控件调用Seek方法没有找到匹配记录时报错