index1.txt

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

<END>    
38,恢复数据库db出错：Database in use 
我 想 在 VB中 备 份 和 恢 复 远 程 服 务 器 上 的 SQL Server数 据 库 DB,在 恢 复 数 据 库 时 ， 用 一 个 ADO控 件 连 上 DB， 读 取 以 前 的 备 份 信 息 到 数 据 帮 绑 定 控 件 DataGrid中 ， 当 用 户 在 datagrid中 选 定 要 恢 复 的 备 份 时 ， 再 用 下 面 语 句 恢 复 数 据 库 db出 错 ： 
    dim cn=ADODB.connection 
    cn.open "provider=sqloledb;data source=Server;initial _ catalog=db;uid=sa;pwd=;" 
    cn.execute "restore database db from disk='xxx.bak'" 
    出 错 信 息 为 :Database in use,The system administrator must have exclusive use of the database to run the restore operation 
    请 教 各 位 高 手 该 如 何 解 决 ? 
<END>
39,使用全局型的adodb.connection变量，是否妥当 
初 学 vb,看 了 一 个 外 国 人 写 的 程 序 vb60+access97， 他 在 用 ado连 接 数 据 库 时 使 用 了 一 个 全 局 型 的 adodb.connection变 量 ， 并 始 终 打 开 着 。 如 果 数 据 库 是 ms sql server 的 这 种 做 法 是 否 妥 当 呢 ， 是 否 浪 费 网 络 资 源 或 者 会 引 起 并 发 性 错 误 。 请 高 手 指 点 。 
<END>    
40,如何将access文件内容保存到文本文件中 
我 要 将 access文 件 内 容 保 存 到 文 本 文 件 中 ， 但 要 求 格 式 十 分 严 格 为 ： 
    aa |bb | cc | ss 
    s22 | ssd| s | ss 
    每 个 字 段 之 间 的 | 在 同 一 列 ， 我 试 了 一 些 方 法 ， 都 没 有 做 出 来 ， 请 高 手 指 点 。 
<END>
41,如何编程创建Access数据库并加上密码保护 
请 问 ， 如 何 编 程 创 建 Access数 据 库 并 加 上 密 码 保 护 ？ 急 切 需 要 ！ 多 谢 帮 助 ！ 
<END>
42,用什么语言做一个自动出题判分的系统 
我 要 做 一 个 自 动 出 题 判 分 的 系 统 
    要 求 ： 系 统 有 100题 ， 考 试 或 练 习 均 随 机 抽 20题 ， 考 试 要 登 记 考 生 资 料 ， 练 习 时 有 帮 助 选 项 。 我 不 知 到 底 用 什 么 语 言 做 ， 怎 么 做 ？ 
<END>
43,如何用表格存放程序中待打印对象（内存变量名或表达式），如何打印呢 
我 用 一 个 表 格 存 放 程 序 中 待 打 印 对 象 （ 内 存 变 量 名 或 表 达 式 ） 和 打 印 的 位 置 X、 Y值 ， 用 ADO方 法 将 表 数 据 读 入 到 一 个 记 录 集 中 ， 但 如 何 打 印 呢 ？ 
    PRINTER.CURRENTX=RS.FIELDS("X") 
    PRINTER.CURRENTY=RS.FIELDS("Y") 
    PRINTER.PRINT RS.FIELDS("ITEM")‘ ????? 
    注 意 :字 段 ITEM中 可 能 是 内 存 变 量 名 也 可 能 是 内 存 变 量 及 常 量 构 成 的 表 达 式 。 
<END
44,一个基于access的程序，刚启动发生'3633'的错误而停止运行
我编了一个基于access的程序.经编译后,在本机上工作正常(有microsoft access 2000),但在另一台机器上(win98,无microsoft access2000)运行时,刚启动发生'3633'的错误而停止运行。本程序已经打包建立了安装程序。 
<END>
45,要连到sql Server， Crystal Report控件的connect属性如何设置 
vb代 码 中 ， 要 连 到 sql Server， Crystal Report控 件 的 connect属 性 如 何 设 置 ？ 
<END>    
46,如何用ADO修改链接表的路径 
请 问 如 何 用 ADO修 改 链 接 表 的 路 径 ？ 谢 谢 ！ ！ ！ 
<END>    
47,怎样在主窗体载入时，同时链接上SERVER端的ACCESS数据库 
怎 样 在 主 窗 体 载 入 时 ， 同 时 链 接 上 SERVER端 的 ACCESS数 据 库 ABC,代 码 怎 样 ?
<END>
48,使用SQL Server中的字段作为Combo控件的项目列表 
请 教 专 家 ， 能 不 能 使 用 SQL Server中 已 经 规 定 好 的 字 段 作 为 VB6中 Combo控 件 的 项 目 列 表 ？ 或 者 使 用 其 他 方 法 使 Combo控 件 中 列 表 内 容 成 为 动 态 的 ？ 
<END>    
49,在运行该程序时如何检测与sql server是否能够连接 
有 一 个 需 要 与 服 务 器 sql server连 接 的 程 序 ， 我 希 望 能 够 在 运 行 该 程 序 时 首 先 检 测 与 sql server是 否 能 够 连 接 ， 并 根 据 返 回 值 判 断 程 序 是 否 继 续 运 行 ， 请 问 专 家 ， 应 该 怎 样 解 决 ？ 
<END>    
50,使用oracle数据库，经常出现超过最大进程数 
如 何 解 决 ： 用 户 超 过 最 大 进 程 数 问 题 。 在 UNIX操 作 系 统 中 ， 使 用 oracle数 据 库 ， 客 户 端 使 用 vb6.0编 程 ， 经 常 出 现 超 过 最 大 进 程 数 ， 修 改 初 始 化 文 件 中 的 processes参 数 后 ， 应 用 程 序 出 现 “ 瞬 间 错 误 IPC” 。 
<END>    
51,如何用ADO连接网上邻居的一台计算机的ACCESS数据库 
如 何 用 ADO连 接 网 上 邻 居 的 一 台 计 算 机 的 ACCESS数 据 库 。 要 用 非 dsn连 接 。 
<END>    
52,在vb中如何调用存储过程并将结果用datagrid显示出来 
在 vb中 如 何 用 代 码 实 现 调 用 存 储 过 程 并 将 结 果 用 datagrid显 示 出 来 ？ 
<END>     
53,实时错误[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序 
Dim conn As ADODB.Connection 
    Dim rdst As ADODB.Recordset 
     Set conn = New ADODB.Connection 
     Set rdst = New ADODB.Recordset 
     conn.ConnectionString = "driver={Microsoft Access Driver(*.mdb)};" & 
    "DBQ=" & "d:\database\phone.mdb" 
     conn.Open 
     rdst.Open "select * from phone", cnn 
     MsgBox rdst!电 话 
    在 我 运 行 后 ， 出 现 错 误 提 示 信 息 ： 实 时 错 误 ‘ -2147467259[Microsoft][ODBC 驱 动 程 序 管 理 器 ]未 发 现 数 据 源 名 称 并 且 未 指 定 默 认 驱 动 程 序 。 
<END>
54,VB 5.0出现错误信息Couldn't find installable ISAM 
我 在 实 验 “在VB中如何实现把当前库或表转换为另外一种数据库文件”时 ， 出 现 以 下 出 错 信 息 ： 
    实 时 错 误 ： 3170 
    Couldn't find installable ISAM 
    第 一 次 出 现 后 ， 我 重 新 安 装 vb6， 并 选 数 据 访 问 中 的 ISAM驱 动 程 序 。 再 次 运 行 程 序 ， 问 题 依 旧 。 请 问 ： ISAM驱 动 程 序 是 哪 些 文 件 ？ 上 述 问 题 我 该 怎 么 办 ？ 
<END>
55,能否使用ADO生成SQL7.0的表和字段 
能否使用ADO生成SQL7.0的表和字段?如果不能,是否有其他方法在VB6.0中生成SQL7.0的表和字段?记得DAO中能生成,但烦?请指教,谢谢! 
<END>
56,如何创建数据库的表格 
如 何 创 建 数 据 库 的 表 格 ， 各 个 字 段 名 是 由 用 户 在 程 序 运 行 时 输 入 ？ 我 看 到 书 上 介 绍 用 Create table子 句 创 建 数 据 库 表 格 可 以 实 现 但 由 于 介 绍 得 过 于 简 略 ， 所 以 我 还 是 不 会 ， 只 有 请 教 高 手 ， 多 谢 多 谢 ！ 
<END>    
57,如何把SQL SERVER数据库移到本地WINDOWS98工作站上 
本 人 在 用 VB、 SQL SERVER编 程 时 ， 只 能 连 结 SQL SERVER服 务 器 才 可 以 进 行 ， 请 问 如 何 能 脱 离 服 务 器 ， 把 SQL SERVER数 据 库 移 到 本 地 WINDOWS98工 作 站 上 编 写 程 序 。 
<END>
58,怎样用ado在不同类型库中进行数据交换 
怎 样 用 ado在 不 同 类 型 库 (如 access 与 sql6.5)中 进 行 数 据 交 换 ？ 
<END>    
59,如何能够提高调用ADO数据库的速度 
在 使 用 ADO调 入 数 据 时 特 别 慢 ， 怎 么 回 事 ？ 我 在 使 用 ADO时 ， 发 现 调 入 数 据 时 特 别 慢 ， 具 体 情 况 如 下 ： 
    数 据 库 ： 使 用 ACCESS数 据 库 ， 有 50个 字 段 五 万 条 记 录 ， 用 ODBC方 法 调 用 ； 
    ADO： 使 用 ADO控 件 ， 用 adUseServer光 标 ， 控 件 使 用 datagrid 
    问 题 ： 如 果 不 使 用 datagrid， 在 调 用 数 据 库 时 速 度 很 快 ， 但 使 用 datagrid后 速 度 变 得 无 法 忍 受 。 请 教 ： 如 何 能 够 提 高 调 用 数 据 库 的 速 度 ？ 
<END>
60,储存图形在数据库中文件太大怎么办 
用vb中的picture控件的line在picture控件中绘制完图形后，把图形放在和该控件相连接的ACCESS数据库中的一个字段中（字段定义类型为OLE），这样做数据库所占用磁盘空间很大，不知怎样做，才能使其占用很小的存储空间。 
<END>
61,有没有一种方法，一次插入所有的记录 
一 个 困 扰 我 多 时 的 问 题 ： 
    本 地 的 ACCESS数 据 库 (数 据 源 )用 ADO传 送 到 远 程 的 SQL Server7.0数 据 库 (目 标 库 )。 
    由 于 是 一 条 一 条 的 更 新 ， 算 法 太 烂 ， 每 分 钟 只 能 传 送 500条 记 录 ， 不 能 满 足 要 求 。 
    有 没 有 一 种 方 法 ， 一 次 插 入 所 有 的 记 录 ？ 
    源 代 码 如 下 ： 
    Public Sub SendRecord() 
     Dim cnn0 As ADODB.Connection 
    ' 本 地 的 ACCESS数 据 库 (数 据 源 ) 
     Dim cnn1 As ADODB.Connection 
     ' 远 程 的 SQL Server7.0数 据 库 (目 标 库 ) 
     
     Dim rst0 As ADODB.Recordset 
     Dim rst1 As ADODB.Recordset 
     
     Dim strCnn As String 
     
     ' 打 开 数 据 源 连 接 。 
     Set cnn0 = New ADODB.Connection 
     strCnn = "数 据 源 " ' 已 建 立 DSN为 "数 据 源 "的 ODBC 
     cnn0.Open strCnn 
     
     
     ' 打 开 目 标 库 连 接 。 
     Set cnn1 = New ADODB.Connection 
     strCnn = "Provider=sqloledb;Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=8848;" 
     cnn1.Open strCnn 
     
     ' 打 开 数 据 源 表 。 
     Set rst0 = New ADODB.Recordset 
     rst0.CursorType = adOpenKeyset 
     rst0.LockType = adLockOptimistic 
     rst0.Open "数 据 源 表 ", cnn1, , , adCmdTable 
     
     ' 打 开 目 标 表 。 
     Set rst1 = New ADODB.Recordset 
     rst1.CursorType = adOpenKeyset 
     rst1.LockType = adLockOptimistic 
     rst1.Open "目 标 表 ", cnn1, , , adCmdTable 
     
     rst0.Movefirst 
     do until rst0.EOF 
     rst1.AddNew 
     rst1!emp_id = rst0!emp_id 
     rst1!fname = rst0!fname 
     rst1!lname = rst0!lname 
     rst1.Update 
     rst0.Movenext 
     loop 
     
     rst1.Close 
     cnn1.Close 
     
     rst0.Close 
     cnn0.Close 
     
    End Sub 
<END>
62, 如何实现将EXCEL表中的数据自动存储进SQLSERVER数据库中    
用 VB如 何 实 现 将 EXCEL表 中 的 数 据 自 动 存 储 进 SQLSERVER数 据 库 中 ， 而 不 必 先 在 SQLSERVER中 建 好 表 ? 
<END>
63,对记录做修改及删除时提示：键列信息不足或不正确，更新影响到更多的行 
我 在 编 写 一 个 ADO+SQL的 数 据 库 程 序 时 ， 添 加 了 几 条 记 录 ， 后 对 这 几 条 记 录 做 修 改 及 删 除 时 提 示 ： 键 列 信 息 不 足 或 不 正 确 ， 更 新 影 响 到 更 多 的 行 。 致 使 操 作 无 法 进 行 ， 直 接 用 SQL打 开 数 据 表 ， 发 现 本 来 只 修 改 了 一 条 记 录 的 一 个 字 段 ， 结 果 是 这 几 条 记 录 的 同 一 字 段 都 被 改 为 同 一 数 值 ， 好 象 这 几 条 记 录 是 一 条 记 录 一 样 ， 改 一 条 全 部 改 ， 删 除 一 条 ， 也 全 部 删 除 。 不 知 何 故 ， 盼 解 答 。 
    另 ； 我 用 的 是 VB6.0 SP4(Win98 se)+MSSQL7.0(Win2000 Server) 
    附 相 关 主 要 代 码 ： 
    '连 接 数 据 库 
     conn = "Driver={SQL server};Server=server-a;Uid=aa;Pwd=123" 
     
     With Adodc1 
     .ConnectionString = conn 
     .CursorType = adOpenDynamic 
     .CommandType = adCmdText 
     .RecordSource = "SELECT * FROM Input" 
     .Refresh 
     End With 
     
    '添 加 数 据 
     
    With Adodc1.Recordset 
     .AddNew 
     !到 港 时 间 = Format("2000-10-10", "YYYY-M-D") 
     !船 务 公 司 = "adsad" 
     !船 名 = "adsad" 
     !货 主 = "adsad" 
     !提 单 号 = "adsad" 
     !货 物 名 称 = "adsad" 
     !数 量 = "adsad" 
     !计 费 吨 = "adsad" 
     .Update 
    End With 
<END>
64,如何用VB打开一个Access数据库查看一个表里的内容 
请 问 如 何 用 VB打 开 一 个 Access数 据 库 查 看 一 个 表 里 的 内 容 ? 
<END>
65,能否用VB的ADO的方法访问Excel文件 
能 否 用 VB的 ADO的 方 法 访 问 Excel文 件 ,如 果 能 该 怎 样 实 现 ？ 
<END>      
66,如何把变量值付给表中指定记录中的字段 
在 vb中 ,如 何 把 变 量 值 付 给 表 中 指 定 记 录 中 的 字 段 ？ 我 用 的 是 vb6.0中 的 access数 据 库 。 
<END>    
67,有什么方法用VB将声音文件加入到数据库 
有 什 么 方 法 用 VB将 声 音 文 件 加 入 到 数 据 库 ， 并 读 出 进 行 播 放 ？ 
<END>