如何将mscomm收到的数据保存在数据库中.txt

VB技巧问答10000例,是一个教程

如 果 你 接 收 的 字 符 串 中 每 个 字 段 的 长 度 都 是 固 定 的 ， 你 可 以 这 样 做 ： 
    sCaller = Left(s, 5) 
    sDate = Trim(Mid(s, 6, 10)) 
    sTime = Trim(Mid(s, 16, 10)) 
    等 等 。 
    如 果 不 是 固 定 长 度 的 ， 而 是 使 用 空 格 分 割 的 ， 可 以 采 用 这 样 的 代 码 ： 
    s = Trim(s) 
    nPos = InStr(s, " ") 
    sCaller = Left(s, nPos - 1) 
    s = Trim(Mid(s, nPos)) 
    nPos = InStr(s, " ") 
    sDate = Left(s, nPos - 1) 
    以 下 类 推 。 
    获 得 各 个 字 段 后 ， 使 用 下 面 的 代 码 保 存 (假 定 有 关 时 间 的 字 段 为 日 期 型 )， rdRecord为 你 的 数 据 库 的 Recordset： 
    rdRecord.AddNew 
    rdRecord("Caller") = sCaller 
    rdRecord("Date") = CDate(sDate) 
    rdRecord("Time") = CDate(sTime) 
    .... 
    rdRecord.Update 
    在 分 解 前 ， 你 可 以 使 用 InStr函 数 寻 找 一 下 vbCr(即 Chr(13))， 来 确 定 新 行 的 开 始 。 
    只 要 可 能 ， 在 使 用 MSCOMM时 总 是 愿 意 使 用 事 件 驱 动 方 式 的 ， 只 有 在 这 种 方 式 实 在 不 行 的 时 候 才 用 “ 查 寻 方 式 ” 。 你 的 问 题 应 该 可 以 使 用 事 件 驱 动 方 式 ， 只 是 每 次 需 要 先 确 定 一 下 行 的 起 始 位 置 。 
<END>