reza6384
پنج شنبه 13 اسفند 1388, 11:31 صبح
سلام.
من با کد زیر تونستم هم فایل های فرمت CSV و هم فایل های فرمت XLS رو بخونم و توی یک Datatable بریزم. منتها مشکلم اینه که الان سطر اول حذف میشه، یعنی سطر اول تبدیل میشه به نام ستون ها. وقتی که با SqlServer میخوایم داده ها رو از اکسل Import کنیم ، یک Option داره که نوشته First Row Has Columns Names یا یه همچنین چیزی که اگر تیک بزنی سطر اول رو برمیداره و جای نام ستون ها میذاره وگرنه اسم ستون ها میشه مثلا Filed1,Filed2 و غیره. حالا میخواستم بدونم که نحوه اعمال این Option توی این Connection String چطوریه.
ممنون.
Dim CS As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=Text;"
Dim Conn As New OleDbConnection(CS)
Conn.Open()
Dim OleDbCmd As New OleDbCommand("SELECT * FROM D:\MyFile.Csv ", Conn)
Dim OleDbDa As New OleDbDataAdapter()
OleDbDa.SelectCommand = OleDbCmd
Dim DS As New DataSet()
Dim Test As New DataTable("Test")
DS.Tables.Add(Test)
OleDbDa.Fill(DS, "Test")
DataGridView1.DataSource = Test
Conn.Close()
من با کد زیر تونستم هم فایل های فرمت CSV و هم فایل های فرمت XLS رو بخونم و توی یک Datatable بریزم. منتها مشکلم اینه که الان سطر اول حذف میشه، یعنی سطر اول تبدیل میشه به نام ستون ها. وقتی که با SqlServer میخوایم داده ها رو از اکسل Import کنیم ، یک Option داره که نوشته First Row Has Columns Names یا یه همچنین چیزی که اگر تیک بزنی سطر اول رو برمیداره و جای نام ستون ها میذاره وگرنه اسم ستون ها میشه مثلا Filed1,Filed2 و غیره. حالا میخواستم بدونم که نحوه اعمال این Option توی این Connection String چطوریه.
ممنون.
Dim CS As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=Text;"
Dim Conn As New OleDbConnection(CS)
Conn.Open()
Dim OleDbCmd As New OleDbCommand("SELECT * FROM D:\MyFile.Csv ", Conn)
Dim OleDbDa As New OleDbDataAdapter()
OleDbDa.SelectCommand = OleDbCmd
Dim DS As New DataSet()
Dim Test As New DataTable("Test")
DS.Tables.Add(Test)
OleDbDa.Fill(DS, "Test")
DataGridView1.DataSource = Test
Conn.Close()