Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

PLS. Help Saving Records in Access Database using VB 2008

amplifiedman0513

Novice
Advanced Member
Messages
26
Reaction score
0
Points
26
Mga Master pa-help naman po panu ko ma-sasave yung record entry ko na na-input s form(designed in vb 2008). Alang error po, nung nag debug then check ko naman database, indi naman nasave s fields ung mga info na na-type.

Ito po ung code ko dun sa button na dapat mag-save s database.

Public Class addStudent
Private Sub addStudent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'StudentsDatabaseDataSet.studenstInfo' table. You can move, or remove it, as needed.
Me.StudenstInfoTableAdapter.Fill(Me.StudentsDatabaseDataSet.studenstInfo)
End Sub
Private Sub lnkBrowsefile_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkBrowsefile.LinkClicked
Dim OpenFileDialog1 As New OpenFileDialog
With OpenFileDialog1
.CheckFileExists = True
.ShowReadOnly = False
.Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
.FilterIndex = 2
If .ShowDialog = DialogResult.OK Then
studImagefile.Image = Image.FromFile(.FileName)
End If
End With
End Sub

Private Sub enrollBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enrollBtn.Click
StudenstInfoTableAdapter.Update(StudentsDatabaseDataSet.studenstInfo)
StudenstInfoBindingSource.EndEdit()
StudenstInfoBindingSource1.EndEdit()
StudenstInfoBindingSource2.EndEdit()
StudenstInfoBindingSource3.EndEdit()
StudenstInfoBindingSource4.EndEdit()
StudenstInfoBindingSource5.EndEdit()
StudenstInfoBindingSource6.EndEdit()
StudenstInfoBindingSource7.EndEdit()
StudenstInfoBindingSource7.EndEdit()
End Sub
End Class

Sana po may maka-guide saken d2.. salamat po ng marami.
 
Back
Top Bottom