求救:用vb将text中的文本保存到access

来源：百度知道 编辑：UC知道 时间：2024/06/05 07:49:35
就是将现在text中的内容存储到access文件中,不破坏原来文件的内容,只是填加一条记录
各位大虾帮帮忙,在线等

具体的不说了，只说指导思想：
ACCESS文件，就是数据库文件 ,先看看有哪些字段。
TEXT中的内容，你得使用某些指定的分割符，对内容进行分割，形成一个个字段，然后使用几个函数分别纪录内容。
最后，就是对数据库添加新的纪录~，那些函数分别对应数据库的字段~~
这么讲很通俗吧……应该就这么办

我用的SQL版的。。ACC版自己改下，这个不难吧？？

Dim conn As ADODB.Connection
Set connsql = CreateObject("adodb.connection")
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=" + sqlip + ";UID=" + sqluid + ";PWD=" + sqlpwd + ";DATABASE=" + sqldatabase
connsql.Open strconn

Open topath & path_bqjh For Input As #1 '为输入打开文件。

For Ii = 1 To 13 '将13个段取出来
Call GetWord1(InputData, Ii, IntSql(Ii))
Next Ii

Do While Not EOF(1) '检查文件尾。
Line Input #1, InputData '读入一行数据。
SqL = "insert into " & sql_bqjh & " values ('" & IntSql(1) & "','" & IntSql(2) & "','" & IntSql(3) & "','" & IntSql(4) & "',&#