2010-09-22 10 views

cevap

33
select A, B, 'c' as C 
from MyTable 
1

Bu örneğin o sütunla birlikte ne yapmak istediğini bağlıdır: Örneğin, benim seçme döner sütunlar A, B ve C seçme sorgusu tarafından oluşturulan yeni sütun olmak istiyorum Burada istemci tarafında güncellenebilen bir kayıt kümesine yeni bir sütun ekleme bir örnek:

Sub MSDataShape_AddNewCol() 

    Dim rs As ADODB.Recordset 
    Set rs = CreateObject("ADODB.Recordset") 
    With rs 
    .ActiveConnection = _ 
    "Provider=MSDataShape;" & _ 
    "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
    "Data Source=C:\Tempo\New_Jet_DB.mdb" 
    .Source = _ 
    "SHAPE {" & _ 
    " SELECT ExistingField" & _ 
    " FROM ExistingTable" & _ 
    " ORDER BY ExistingField" & _ 
    "} APPEND NEW adNumeric(5, 4) AS NewField" 

    .LockType = adLockBatchOptimistic 

    .Open 

    Dim i As Long 
    For i = 0 To .RecordCount - 1 
     .Fields("NewField").Value = Round(.Fields("ExistingField").Value, 4) 
     .MoveNext 
    Next 

    rs.Save "C:\rs.xml", adPersistXML 

    End With 
End Sub 
2

SEÇ alan1, field2 Bu bir sütun katacak TABLE1 GELEN Newfield OLARAK 'örnek' "olarak adlandırılan newfield "çıktıya ve değerine her zaman" örnek "olacaktır.