"ankz" <ankz.upadh***@googlemail.com> schreef in bericht
news:1163885379.504109.212880@k70g2000cwa.googlegroups.com...
> Hi Guys
>
> I have got 3 tables -[Personal Details, Course, Picture] in Access
> Database with Student ID as primary Key in all and all tables are
> linked with 1 to 1 relationship.
>
> I have code the everying with manual program to access information of
> tables on Windows Form. It is working properly. i can see all the
> records properly.
>
> I am not using  Data Binding Navigator.
>
> I have created SAVE Button on Form and i want that button to update
> data/records in main database. [ If i change student Addess on form
> then with SAVE Button click event, i want that to update in database]
>
> Can you tell me how i can do it. i have been trying for so many weeks.
>
> Please do help me.
>
> here is the code of the form which is working properly at displaying
> data from DB.
>
> """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
>
> Imports System.Data
>
> Public Class ExistingStudentForm
>    Dim dt As New DataTable
>    Dim rowIndex As Integer = 0
>
>    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs)
>        Dim frmMenu As New Menu
>
>        frmMenu.Show()
>        Me.Hide()
>
>    End Sub
>
>    Private Sub PicUpload_Click(ByVal sender As System.Object, ByVal e
> As System.EventArgs) Handles PicUpload.Click
>        OpenFileDialog1.InitialDirectory = "F:\Ankit\Tameside College _
> HND Year 1\Unit 7_Visual Basic.NET\SIRS_Use THIS ONE\Photos"
>        OpenFileDialog1.ShowDialog()
>        OpenFileDialog1.Filter =
> "Bitmaps(*.bmp)|*.bmp|JPEG(*.jpg)|*.jpg|GIF(*.gif)|*.gif"
>
>        picperson.Image = Image.FromFile(OpenFileDialog1.FileName)
>        picperson.SizeMode = PictureBoxSizeMode.CenterImage
>
>    End Sub
>
>
>    Sub updateTextBoxes()
>        txtStudentID.Text =
> CStr(dt.Rows(rowIndex)("PersonalDetail.StudentId"))
>        txtStudentName.Text = CStr(dt.Rows(rowIndex)("Name"))
>        txtAddress.Text = CStr(dt.Rows(rowIndex)("Address"))
>        txtTown.Text = CStr(dt.Rows(rowIndex)("Town"))
>
>        txtCourse.Text = CStr(dt.Rows(rowIndex)("CourseName"))
>        txtDoB.Text = CStr(dt.Rows(rowIndex)("DOB"))
>        txtSex.Text = CStr(dt.Rows(rowIndex)("Sex"))
>        txtTelephone.Text = CStr(dt.Rows(rowIndex)("Telephone"))
>        txtContactName.Text = CStr(dt.Rows(rowIndex)("ContactName"))
>        txtContactNo.Text = CStr(dt.Rows(rowIndex)("ContactNumber"))
>        picperson.Image =
> Image.FromFile(CStr(dt.Rows(rowIndex)("FilePath")))
>
>    End Sub
>
>    Private Sub ExistingStudentForm_Load(ByVal sender As System.Object,
> ByVal e As System.EventArgs) Handles MyBase.Load
>
>        Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=C:\Documents and Settings\Ankit\Desktop\Tameside College _ HND
> Year 1\Unit 7_Visual Basic.NET\SIRS_Use THIS ONE\Student
> Database\Students.mdb"
>
>        Dim SqlStr As String = "SELECT PersonalDetail.*, Course.*,
> Picture.* FROM (PersonalDetail INNER JOIN Picture ON
> PersonalDetail.StudentId = Picture.StudentId) INNER JOIN Course ON
> PersonalDetail.StudentId = Course.StudentId"
>
>        Dim dataAdapter As New OleDb.OleDbDataAdapter(SqlStr, constr)
>
>        dataAdapter.Fill(dt)
>        dataAdapter.Dispose()
>        updateTextBoxes()
>
>
>    End Sub
>
>    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal
> e As System.EventArgs) Handles btnPrevious.Click
>        If (rowIndex > 0) Then
>            rowIndex = rowIndex - 1
>            updateTextBoxes()
>        End If
>    End Sub
>
>    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles btnNext.Click
>        If (rowIndex < dt.Rows.Count - 1) Then
>            rowIndex += 1
>            updateTextBoxes()
>        End If
>    End Sub
>
>
>    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e
> As System.EventArgs) Handles btnSearch.Click
>        Dim studentid As String
>
>        Dim studentFound As Boolean = False
>
>        studentid = InputBox("Enter Student ID")
>        For i As Integer = 0 To (dt.Rows.Count - 1)
>            If CStr(dt.Rows(i)("personalDetail.StudentId") = studentid)
> Then
>                studentFound = True
>                rowIndex = i
>                updateTextBoxes()
>            End If
>        Next
>
>        If (Not studentFound) Then
>            MsgBox("System Cannot find requested Student Information",
> 0, "Not in Table")
>        End If
>    End Sub
>
>
>    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles btnSave.Click
>
>
>
>
>
>
>
>
>
>
>
>
>    End Sub
> End Class
>
> """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
>
>
> Thanks.
>
> Do reply either here or send me e mail me at
> ankit_upadhyay2***@yahoo.com / ankz.upadh***@gmail.com
>
> Cheers.
>