strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=C:\\Inetpub\\wwwroot\\contacts.xls;"+ "Extended Properties=Excel 8.0;"; OleDbConnection conn = new OleDbConnection(strConn); OleDbDataAdapter myCommand = new OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn); DataSet myDataSet = new DataSet(); myCommand.Fill(myDataSet);
Dim sql As String Dim strConn As String strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + strUpFile + ";" + "Extended Properties=Excel 8.0;" Dim conn As OleDbConnection conn = New OleDbConnection(strConn) conn.Open() Dim schemaTable As DataTable schemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, Nothing) Dim tableName As String tableName = schemaTable.Rows(0)(2).ToString().Trim() sql = "SELECT * FROM [" & tableName & "]" Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(sql, conn) Dim ds As DataSet = New DataSet myCommand.Fill(ds, "table1") If ds.Tables("table1").Rows.Count > 0 Then Dim dt As New DataTable Dim row As DataRow dt = ds.Tables("table1") ... ... . End If
"Data Source=C:\\Inetpub\\wwwroot\\contacts.xls;"+
"Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
OleDbDataAdapter myCommand = new OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn);
DataSet myDataSet = new DataSet();
myCommand.Fill(myDataSet);
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + strUpFile + ";" + "Extended Properties=Excel 8.0;"
Dim conn As OleDbConnection
conn = New OleDbConnection(strConn)
conn.Open()
Dim schemaTable As DataTable
schemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, Nothing)
Dim tableName As String
tableName = schemaTable.Rows(0)(2).ToString().Trim()
sql = "SELECT * FROM [" & tableName & "]"
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(sql, conn)
Dim ds As DataSet = New DataSet
myCommand.Fill(ds, "table1")
If ds.Tables("table1").Rows.Count > 0 Then
Dim dt As New DataTable
Dim row As DataRow
dt = ds.Tables("table1")
... ... .
End If