vb.net में, एक डेटाटेबल

Question

से कॉलम नाम कैसे प्राप्त करें, इसलिए मैं एक तालिका से एक डाटाटेबल बना सकता हूं जिसे मैं सीधे नहीं देख सकता (यानी एसक्यूएल सर्वर प्रबंधन का उपयोग कर)। मैं कॉलम नाम ढूंढना चाहता हूं जो डेटाटेबल में हैं, यह सही तरीका क्या होगा?

MyDataTable.Columns(1).ColumnName 

अपने DataTable के भीतर सभी DataColumns के नाम प्राप्त करने के लिए:

Answer 1

यह कैसे एक DataColumn से एक स्तंभ नाम को पुनः प्राप्त करने के लिए है

Dim name(DT.Columns.Count) As String 
Dim i As Integer = 0 
For Each column As DataColumn In DT.Columns 
    name(i) = column.ColumnName 
    i += 1 
Next 

संदर्भ

• Data Table (MSDN)
• Data Column (MSDN)

Answer 2

देखो पर

For Each c as DataColumn in dt.Columns 
    '... = c.ColumnName 
Next 

या:

dt.GetDataTableSchema (...)

Answer 3

आप कर सकते हैं datatable के स्तंभों संग्रह के माध्यम से लूप ।

वीबी

Dim dt As New DataTable() 
For Each column As DataColumn In dt.Columns 
    Console.WriteLine(column.ColumnName) 
Next 

#

सी

DataTable dt = new DataTable(); 
foreach (DataColumn column in dt.Columns) 
{ 
Console.WriteLine(column.ColumnName); 
} 

आशा इस मदद करता है!

Answer 4

क्या आपके पास अपने डेटाबेस तक पहुंच है, अगर ऐसा है तो इसे खोलें और कॉलम देखें और आवश्यकतानुसार पुनः प्राप्त करने के लिए SQL कॉल का उपयोग करें।

एक रूप एक डेटाबेस तालिका से डेटा पुनः प्राप्त करने पर एक संक्षिप्त उदाहरण: DB.mdf

तालिका नाम:: DBtable

फार्म केवल एक GataGridView नामित डेटा ग्रिड

डाटाबेस नाम शामिल

तालिका में कॉलम नाम: वर्चर (50) के रूप में नाम, int के रूप में आयु, लिंग के रूप में थोड़ा।

Private Sub DatabaseTest_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    Public ConString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\{username}\documents\visual studio 2010\Projects\Userapplication prototype v1.0\Userapplication prototype v1.0\Database\DB.mdf;" & "Integrated Security=True;User Instance=True" 
    Dim conn As New SqlClient.SqlConnection 
    Dim cmd As New SqlClient.SqlCommand 
    Dim da As New SqlClient.SqlDataAdapter 
    Dim dt As New DataTable 
    Dim sSQL As String = String.Empty 
    Try 
     conn = New SqlClient.SqlConnection(ConString) 
     conn.Open() 'connects to the database 
     cmd.Connection = conn 
     cmd.CommandType = CommandType.Text 
     sSQL = "SELECT * FROM DBtable" 'Sql to be executed 
     cmd.CommandText = sSQL 'makes the string a command 
     da.SelectCommand = cmd 'puts the command into the sqlDataAdapter 
     da.Fill(dt) 'populates the dataTable by performing the command above 
     Me.DataGrid.DataSource = dt 'Updates the grid using the populated dataTable 

     'the following is only if any errors happen: 
     If dt.Rows.Count = 0 Then 
      MsgBox("No record found!") 
     End If 
    Catch ex As Exception 
     MsgBox(ErrorToString) 
    Finally 
     conn.Close() 'closes the connection again so it can be accessed by other users or programs 
    End Try 
End Sub 

इस समीक्षा के लिए अपनी डेटाबेस तालिका से सभी पंक्तियों और स्तंभों लायेगा।
यदि आप केवल नाम प्राप्त करना चाहते हैं तो एसक्यूएल कॉल को इसके साथ बदलें: "डीबीटेबल से चयन नाम" इस प्रकार डेटाग्रिड व्यू केवल कॉलम नाम दिखाएगा।

मैं केवल एक रूकी हूं लेकिन मैं दृढ़ता से सलाह देता हूं कि ऑटो उत्पन्न करने वाले जादूगरों से छुटकारा पाएं। एसक्यूएल का उपयोग करके आपके पास अपने डेटाबेस तक पूर्ण पहुंच है और क्या होता है।
यह भी एक आखिरी बात है, यदि आपका डेटाबेस SQLClient का उपयोग नहीं करता है तो इसे ओलेडीबी में बदलें।

उदाहरण: "Dim conn As New SqlClient.SqlConnection" हो जाता है: Dim conn As New OleDb.OleDbConnection

Answer 5

' i modify the code for Datatable 

For Each c as DataColumn in dt.Columns 
For j=0 To _dataTable.Columns.Count-1 
      xlWorksheet.Cells (i+1, j+1) = _dataTable.Columns(j).ColumnName 
Next 
Next 

आशा इस मदद की जा सकती है!