Question

VB6数据库简单问题

一、假设在程序目录下有一个叫a.mdb的数据库文件，数据库里有一个“表一”，表里面的内容是
test1 test2 test3
a1 b1 c1
a2 b2 c2
a3 b3 c3
……………………
如何搜索test1下面的a100，假如存在，就把指针定在这行，并在text2,text3里显示同行的test2,test3内容。若不存在，则msgbox("不存在。")。
二、数据库内容同上。
在text4里面，有这样的内容
a9 b9 c9
a10 b10 c10
……………………
如何把这些内容添加到数据库里？a添加到test1，b添加到test2，c添加到test3。
三、这不是关于数据库的。
一个字符串型的变量a，内容为"dfgfbnhmjh——hnjgh——bnhg——gh……"，字符串用破折号隔开。如何把每一部分的内容显示到text1，破折号变为换行。用split函数，谢谢！
用ADO。

Answer 1

一：
Private Sub Command1_click()
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\a.mdb"
Adodc1.RecordSource = "select test1,test2,test3 from 表一 where test1='a100'"
Adodc1.Refresh
if Adodc1.Recordset.RecordCount>0 then
text2.text=Adodc1.Recordset.Fields("test2")
text3.text=Adodc1.Recordset.Fields("test3")
else
msgbox("不存在。")
end if
End Sub

二：
Private Sub Command2_click()
dim a() as string,b() as string
a=split(text4.text,vbcrlf)
for i=0 to ubound(a)
b=split(a(i)," ")
Adodc1.Recordset.AddNew
Adodc1.Recordset..Fields("test1")=b(0)
Adodc1.Recordset..Fields("test2")=b(1)
Adodc1.Recordset..Fields("test3")=b(2)
next
Adodc1.Recordset.Update
end sub

三：
dim a as string,b() as string
a="dfgfbnhmjh——hnjgh——bnhg——gh"
b=split(a,"——")
for i=0 to ubound(b)
text1.text=text1.text & b(i) & vbcrlf
next

追问

请问【三】是不是后面再多加几个破折号三的代码也适用？

追答

是的，但是要注意，必须是两个破折号，与前面保持一致。