Closed Help sa thesis nmin po 100% na daw ung gusto niya

[GHaX25]

Master paano po ung tamang pagconnect ng ms access sa vb.net po na connect ko sya then try ko mag add ng items po then save ok nman po then pagclose ko ung vb10 tas open ulit ung project ko nawala naman ung mga nasave..
Help po

 

[rekai12]

Baka nakalimutan mong i-save

 

[Ferocious]

Pag nai open mo sa ibang computer yung project mo tsaka lang yung din mabubuksan, or baka naman di mu pa nasasave yung ms access mo??

 

[GHaX25]

Nasave ko nman po

 

[Ferocious]

Prntscrn mo nga ts. Kung anung lumalabas

 

[Princess Kazumi]

Try po nyo pong tignan sa codes nyo po baka mali lng po kayo sa Saving directory codes nyo po.

 

[GHaX25]

Sir tama ba ginawa ko nagcreate ako ng id name etc sa ms access the save ko then pumunta ako sa vb 10 then click ko ung add new data sources then po nag new connection ako pinili ko ms accesss file na database then pinili ko ung ginawa kong file sa aceess then drop ko details th

 

[Ferocious]

Sir tama ba ginawa ko nagcreate ako ng id name etc sa ms access the save ko then pumunta ako sa vb 10 then click ko ung add new data sources then po nag new connection ako pinili ko ms accesss file na database then pinili ko ung ginawa kong file sa aceess then drop ko details th

Tama yan, yung codes mo ang baybayin for add.

 

[GHaX25]

May code din po ba sa connection sir

 

[Ferocious]

Sa pagkakaalam ko walang code for connection kase set up yun e.

 

[GHaX25]

Pero bkit nawawala yung mga na add ko sir pagkatapos po i close vb 10?

 

[Ferocious]

Pero bkit nawawala yung mga na add ko sir pagkatapos po i close vb 10?

Check mo yung query nandun lang yan baka male, gamit ko kase mysql pagnagkakaganyan yung akin sa query lang yung male.

 

[GHaX25]

Pahingi code mo po sir salamat

 

[Ferocious]

Code saan sir? Kung sa access sorry di ko na kabisado 3 nako di nagcocode jan e, pero kung sa mysql matutulungan kita, tsaka sir di naman kailangan ng code pag aayos ng query sa vb.net using ms access.

 

[GHaX25]

Sir pede kita i add sa fb sir hina ksi net nmin sa province pra masend ko ung pic

 

[drexz520]

Humingi ka ng tulong kay stackoverflow TS.

 

[jokerger25]

ito yung code ko sa aking connection string

Imports System.Data.OleDb
Module mdl_dbconnect
    Public dbcon As New OleDbConnection
    Public Sub dbconStr()
        Try
            dbcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Jet OLEDB:Database Password=password"
            If dbcon.State = ConnectionState.Closed Then
                dbcon.Open()
            End If
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message, "Database Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End Try
       
    End Sub
End Module

ito yung sample insert query

Private Sub addsubject(ByVal subjectcode As String, ByVal subjectdesc As String)
        Dim OLEcmd1 As New OleDbCommand
        Dim OLEda As New OleDbDataAdapter
        Dim dt As New DataTable
        'Try
        With OLEcmd1
            .CommandText = "SELECT * FROM subject WHERE subject.[subjectID]='" & subjectcode & "'"
            .Connection = dbcon
            .ExecuteNonQuery()
        End With
        With OLEda
            .SelectCommand = OLEcmd1
            .Fill(dt)
        End With
        If dt.Rows.Count = 0 Then
            Dim OLEcmd As New OleDbCommand
            Dim dateNow As String = Now.Month & Now.Day & Now.Year & Now.Hour & Now.Minute & Now.Second & Now.Millisecond
            Try
                With OLEcmd
                    .CommandText = "INSERT INTO subject(subjectID,subject_desc,subject_datetimeAdded) VALUES('" & subjectcode & "','" & subjectdesc & "','" & dateNow & "')"
                    .Connection = dbcon
                    .ExecuteNonQuery()
                End With
                frmSubject.pnl_subject.Controls.Clear()
                frmSubject.listsubject("")
                txtSubjectCode.Clear()
                txtSubjectDesc.Clear()
                'Me.Close()
                lblMsg.Text = "The subject code has been added successfully"
            Catch ex As OleDbException
                MessageBox.Show(ex.Message, "Adding Subject Problem", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Else
            lblMsg.Text = "The subject code already exist"
            lblMsg.ForeColor = Color.Red
        End If
        'Catch ex As OleDbException
        '    MessageBox.Show(ex.Message, "Checking Duplicate Entery Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'End Try
    End Sub