masoudcarpet
سه شنبه 29 آذر 1390, 23:12 عصر
لطفا راهنمائی کنید چه طوری میتونم اطلاعات یک فایل تکست رو به دیتا گرید وارد کنم به صورتی که سطر اول جدولم جای header text رو نگیره ضمنا باید بگم که فایل متنی از سطر اولش حاوی اطلاعات هست و header توش نیست
Imports System.Data.Odbc
Imports System.Data.OleDb
Public Class Form1
Private selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\;Extended Properties='text;HDR=Yes;FMT=Delimited';")
Private obj_oledb_da As System.Data.OleDb.OleDbDataAdapter
Private filetable As String
Private selectCommandText As String
Private dataSet As New DataSet
Public Function LoadData(ByVal filetable As String) As DataSet
selectCommandText = "select * from [" & filetable & "]"
Try
obj_oledb_da = New OleDbDataAdapter(selectCommandText, selectConnection)
obj_oledb_da.TableMappings.Add(filetable, "DataG")
dataSet = New DataSet()
obj_oledb_da.Fill(dataSet, "DataG")
DG.DataSource = dataSet
DG.DataMember = "DataG"
Catch exception As Exception
MessageBox.Show(exception.Message)
End Try
Return dataSet
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.Filter = "*|*.txt"
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.SafeFileName
filetable = OpenFileDialog1.SafeFileName
Dim selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OpenFileDialog1.FileName & "\;Extended Properties='text;HDR=Yes;FMT=Delimited';")
LoadData(filetable)
End Sub
Imports System.Data.Odbc
Imports System.Data.OleDb
Public Class Form1
Private selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\;Extended Properties='text;HDR=Yes;FMT=Delimited';")
Private obj_oledb_da As System.Data.OleDb.OleDbDataAdapter
Private filetable As String
Private selectCommandText As String
Private dataSet As New DataSet
Public Function LoadData(ByVal filetable As String) As DataSet
selectCommandText = "select * from [" & filetable & "]"
Try
obj_oledb_da = New OleDbDataAdapter(selectCommandText, selectConnection)
obj_oledb_da.TableMappings.Add(filetable, "DataG")
dataSet = New DataSet()
obj_oledb_da.Fill(dataSet, "DataG")
DG.DataSource = dataSet
DG.DataMember = "DataG"
Catch exception As Exception
MessageBox.Show(exception.Message)
End Try
Return dataSet
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.Filter = "*|*.txt"
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.SafeFileName
filetable = OpenFileDialog1.SafeFileName
Dim selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OpenFileDialog1.FileName & "\;Extended Properties='text;HDR=Yes;FMT=Delimited';")
LoadData(filetable)
End Sub