Help With Writing To Access Database With Vb.net

falcorassassin

Apr 6 2009, 10:43 AM

Hi guys,

I'm trying to write data from an excel spreadsheet to an Access database. When i run my program a message appears saying that the correct number of records have been saved, however when i check my access database no records have been written to the database table. Any help or advice would be greatly appreicated. Thanks in advance.

The code for writing to database:

CODE

Public Class Form1

    Dim connection As OleDbConnection
    Dim Command As OleDbCommand

    Private Sub btnTestRecords_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestRecords.Click

[tab][/tab]    'database code

[tab][/tab]    Dim strCommand As String
[tab][/tab]    Dim intRows As Integer
[tab][/tab]    Dim TCaseID As ArrayList = comp.GetTestCaseID()
[tab][/tab]    Dim TIteration As ArrayList = comp.GetTestIteration()
[tab][/tab]    Dim TstID As ArrayList = comp.GetTestID()
[tab][/tab]    Dim TRelease As ArrayList = comp.GetRelease()
[tab][/tab]    Dim TStatus As ArrayList = comp.GetTestStatus()
[tab][/tab]    Dim TDate As ArrayList = comp.GetTestDate()
[tab][/tab]    Dim TTester As ArrayList = comp.GetTester()
[tab][/tab]    Dim TComments As ArrayList = comp.GetComments()
[tab][/tab]    Dim TIssue As ArrayList = comp.GetIssueID()

[tab][/tab]    connection.Open()

[tab][/tab]    For i As Integer = 0 To TCaseID.Count - 1
[tab][/tab][tab][/tab]    Dim tmp As String = TCaseID(i)
[tab][/tab][tab][/tab]    Dim length As Integer = TComments(i).ToString().Length
[tab][/tab][tab][/tab]    strCommand = "INSERT INTO Test_Result (TestCaseID, TestIteration, TestID, Release, Status, TestDate, Tester, Comments, Issue) VALUES ("
[tab][/tab][tab][/tab]    strCommand &= "'" & TCaseID(i) & "', '" & TIteration(i) & "', '" & TstID(i) & "', '" & TRelease(i)
[tab][/tab][tab][/tab]    strCommand &= "', '" & TStatus(i) & "', '" & TDate(i) & "', '" & TTester(i) & "', '" & TComments(i) & "', '" & TIssue(i) & "')"
[tab][/tab][tab][/tab]    Command = New OleDbCommand(strCommand, connection)
[tab][/tab][tab][/tab]    intRows += Command.ExecuteNonQuery
[tab][/tab]    Next

[tab][/tab]    MsgBox(intRows & " Test Data Successfully Updated!")

[tab][/tab]    Me.Validate()
[tab][/tab]    Me.Test_ResultBindingSource.EndEdit()
[tab][/tab]    Me.Test_ResultTableAdapter.Update(Me.TestManagementProjectDataSet.Test_Result)

[tab][/tab]    connection.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

[tab][/tab]    'This line of code loads data into the 'TestManagementProjectDataSet.Test_Result' table.

[tab][/tab]    Me.Test_ResultTableAdapter.Fill(Me.TestManagementProjectDataSet.Test_Result)

[tab][/tab]    connection = New OleDbConnection(Test_ResultTableAdapter.Connection.ConnectionString)

    End Sub

End Class

Comment/Reply (w/o sign-up)

(G)Francis

Apr 8 2009, 11:37 AM

could not connect to a centralized DB
Help With Writing To Access Database With Vb.net

Please,

I am Francis Onodueze a student of IMSU

I have developed a Hotel Managment Software but for a considerable period of time, I have not been able to access the DB from another computer; eventhough the software is runing perfectly as a standalone software - I need it run on the network (centralized DB)

The platform: VB.Net

Connection String: DataSource=.\SQLEXPRESS;AttachDbFilename=\\Infranet-e6ea07\SharedDocs\App_Data\DreamLandDB.Mdf;Integrated Security=True;User Insatnce=True

Error message: \\Infranet-e6ea07\SharedDocs\App_Data\DreamLandDB.Mdf failed. A database with the same name exist; or specified file cannot be opened, or it is located on UNC share

I cant forget this help if u rescue me from this trigger.

Your Programmer friend Francis

-question by Francis

Comment/Reply (w/o sign-up)