Dim fileneme As String = file1.FileName Dim filepath As String = Server.MapPath(".") & "\" & Session("userid") Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";Extended Properties=Text;" Dim conn As New OleDbConnection(strConnString) Try conn.Open() Dim cmd As New OleDbCommand("SELECT IPADDRESS FROM [" & fileneme & "]", conn) Dim da As New OleDbDataAdapter() da.SelectCommand = cmd Dim dt As New DataTable() da.Fill(dt) da.Dispose()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)