文本-数据库转换

yining 2000-03-07 11:12:00
请问怎样把文本中用“ and ”分隔开的字符串转换成access表中相对应字段的数据。请务必详细说明,而且数据库允许多用户打开。谢谢!
例如:
32022 and 42068625901013562101 and 李惠芳 and 75.25 and 0
32023 and 42068625901013577401 and 高小毛 and 70.4 and 0
32024 and 42068625901013583001 and 温太平 and 138.6 and 0
...全文
232 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
apollo 2000-03-10
  • 打赏
  • 举报
回复
把文本读入变量,然后逐字符搜索空格,判断空格后的字符是否为A,如是则继续判断后一字符是否为N,然后继续判断是否为N、D,如不是则把下一空格前的文字读入变量,最后输入数据库字段。
此方法不适用包含and数据字段的文本。
Un1 2000-03-09
  • 打赏
  • 举报
回复
Split函数就行啦!
grievefish 2000-03-09
  • 打赏
  • 举报
回复
随便说说:
加一个IF ,如果读到“AND”,就NEXT。
我MAIL你这方面一例子,看看吧!
MarsXia 2000-03-08
  • 打赏
  • 举报
回复
"数据库-文本转换"一文的分数你还没给呢。
你将那篇文章应给的分数付完后我给你这个问题的答案。
Chen_Lin 2000-03-08
  • 打赏
  • 举报
回复
Do While Not EOF(nFile)
Line Input #nFile, sDataInput
nPosition = InStr(1, sDataInput, "and")
for i=1 to 4
Select case i
case 1
rs!字段=Mid(sDataInput,1,nPosition-1)
case 2
...
End select
sDataInput=Mid(sDataInput,nPosition+3)
next i
Loop
希望有用!



boyfly 2000-03-08
  • 打赏
  • 举报
回复
可以用简单的程序把and处理为其他的分隔符号,然后导入数据库不就行了吗?

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧