Imports System.ComponentModel Imports System.Data.OleDb Imports System.IO Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ''Connections Dim OLEcmd As New OleDbCommand Dim OLEconnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\111411H\My Documents\data.accdb;") 'Dim OLECmd As New OleDbCommand("SELECT * INTO [StudentsData] FROM [Text;Database=J:\FYP;].[SEG1.txt]", OLEconnection) OLEcmd.Connection = OLEconnection Dim i, j As Integer Dim mystring As String Dim arrdata(5) As String mystring = "School" & vbTab & "Campus" & vbTab & "AdminNo" & vbTab & "ModuleCode" & vbTab & "ModuleGrp" arrdata = mystring.Split(vbTab) arrdata(0) = "School" arrdata(1) = "Campus" arrdata(2) = "AdminNo" arrdata(3) = "ModuleCode" arrdata(4) = "moduleGrp" 'dgv columns DataGridView1.ColumnCount = 5 DataGridView1.Columns(0).Name = "School" DataGridView1.Columns(1).Name = "Campus" DataGridView1.Columns(2).Name = "AdminNo" DataGridView1.Columns(3).Name = "ModuleCode" DataGridView1.Columns(4).Name = "ModuleGrp" For Each line As String In System.IO.File.ReadAllLines("J:\FYP\SEG1.txt") j = 0 For i = 0 To j OLEcmd.CommandText = "Insert into Table1(School, Campus, AdminNo, ModuleCode, ModuleGrp) values ('" & mystring(0) & "', '" & mystring(1) & "', '" & mystring(2) & "', '" & mystring(3) & "', '" & mystring(4) & "')" Next 'OLEcmd.CommandText = "Insert into Table1(School, Campus, AdminNo, ModuleCode, ModuleGrp) values ('" & mystring(0) & "', '" & mystring(1) & "', '" & mystring(2) & "', '" & mystring(3) & "', '" & mystring(4) & "')" ReDim Preserve arrdata(i) Next OLEconnection.Open() OLEcmd.ExecuteNonQuery() OLEconnection.Close()
Hi, i have gotten this codes. Have alr read text file. my text file has information as follows:
School Campus AdminNo ModuleCode ModuleGrp
SEG AMK 111411h EG201 EG201-G4
.
.
.
i want to break the columns up into array, loop through the text file lines, and insert into the Access database using SQL command. I have also the datagridview, which i populate my datas and my access database having the datas too.
Thanks in advance!
This post has been edited by Atli: 24 June 2013 - 02:22 AM
Reason for edit:: Use [code] tags when posting code.