关于定义数据库变量的问题。

Question

有以下几个变量
n1="a"
n2="b"
n3="c"
如果要在数据里读写就会建三个字段，但是看到有的朋友只要建一个字段就可以了，如：n1="a",n2="b",n3="c"只是在中间加了","号，那么，在程序中如果调用呢？我只能调用这个字符串，但不能以变量的形式调出来。哪位朋友知道呀。

Answer 1

我的意思是：
设三个变量用“，”隔开放在数据库一个字段里，同时可以调出三个变量。n1="a",n2="b",n3="c" 把这一句写到数据库里。
调出来后得出
n1="a"
n2="b"
n3="c"
程序代码应该是怎样写的呀

Answer 2

由于字符传中包含有双引号，因此，在插入的时候，变量的值要这样写：
str="n1=""a"",n2=""b"",n3=""c"""
strSql="insert into tableName("fieldName") values(" & str & ")"
这样插入到数据库里的才是 n1="a",n2="b",n3="c"读出数据后，以逗号为标志，用Split函数来分割字符串就得到你要的结果

Answer 3

Dim cn As New ADODB.Connection,rs As New ADODB.Recordset,arrRlt() As StringPrivate Sub Form_Load()
    cn.CursorLocation = adUseClient
    cn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"    
End SubPrivate Sub cmdInsert_Click()
    Dim str As String, strSql As String
    str = "n1=""a"",n2=""b"",n3=""c"""
    strSql = "insert into tableName(fieldName) values(" & str & ")"
    cn.Execute strSql
End SubPrivate Sub cmdSelect_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "select qq from tableName", cn, adOpenDynamic, adLockOptimistic
    arrrlt = Split(rs.Fields(0), ",")
    Debug.Print arrrlt(0) & "," & arrrlt(1) & "," & arrrlt(2)
End Sub