- 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.
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.