Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Private Function GetDataADO(ByVal Path As String) As DataTable Dim Filename As String = IO.Path.GetFileName(Path) Dim FilePath As String = IO.Path.GetDirectoryName(Path) Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties= ""Text;HDR=No;IMEX=1;"" ; Data Source=" & FilePath Dim Connection As New OleDb.OleDbConnection(ConnectionString) Connection.Open() Dim Command As New OleDb.OleDbCommand Command.CommandType = CommandType.Text Command.Connection = Connection Command.CommandText = "SELECT * FROM [" & Filename & "]" Dim DataTable As New DataTable Dim DataAdapter As New OleDb.OleDbDataAdapter(Command) DataAdapter.Fill(DataTable) Connection.Close() Connection.Dispose() Return DataTable End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.