2010-09-22 13 views
17

एमएस एक्सेस में, मैं एक चुनिंदा क्वेरी के लौटा परिणाम में एक नया कॉलम डालना चाहता हूं। नए कॉलम में प्रत्येक पंक्ति के लिए समान मूल्य होता है। उदाहरण के लिए, मेरी चुनिंदा रिटर्न स्तंभों ए, बी और सी मैं चयन क्वेरी द्वारा बनाई नया स्तंभ होना चाहते हैं:एक चुनिंदा क्वेरी में नया कॉलम कैसे बनाएं

A B C 
---------- 
a1 b1 c 
a2 b2 c 
a3 b3 c 

उत्तर

1

यह निर्भर करता है कि आप क्या जैसे कि स्तंभ के साथ करना चाहता था यहाँ एक recordset क्लाइंट पक्ष पर अद्यतन किया जा सकता है जो करने के लिए एक नया स्तंभ जोड़कर का एक उदाहरण है:

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

का चयन करें फ़ील्ड 1, field2, 'उदाहरण' Newfield Table1 से यह एक स्तंभ जोड़ देगा बुलाया " न्यूफील्ड "आउटपुट में, और इसका मूल्य हमेशा" उदाहरण "होगा।

संबंधित मुद्दे