Ofd.Title = " Please select the excel which you want to import" If ofd.ShowDialog = DialogResult.OK Thenĭim strin As String = " Provider=.4.0 Data Source=" & filename & " Extended Properties=""Excel 8.0 HDR=yes"" " Dim con As OleDbConnection = New OleDbConnection(strin) Pram = ( " OleDbType.VarChar)ĭim i As Integer = oleadpt.Update(ds, " Sheet1")Ĭopy Code Try Dim filename As String Dim ofd As New OpenFileDialog
" (FirstName, LastName, Age, Phone) values " & _ Olecomm1.CommandText = " Insert into " & _ " Select FirstName, LastName, Age, Phone from " Object, _īyVal e As System.EventArgs) Handles Button1.Click Copy Code Private Sub Button1_Click( ByVal sender As System.
0 kommentar(er)
