Visual Basic

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
    Dim searchcommand1 As String = "SELECT * FROM [Change Control] WHERE ([Log number] = " & txtLognum.Text
 
    ' You're missing the code to actually execute this statement against the database.
    ' You're also missing code to do something with the returned data, like display it in
    ' a datagrid!
End Sub
 
Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
    Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dblog.mdb"
    Dim InsertCommand1 As String = "INSERT INTO [Change Control] VALUES " & _
        "'" & txtlognum.Text & "','" & txttrgdt.Text & "','" & txttime.Text &_
        "','" & txtrqstby.Text & "','" & txtprojname.Text & "','" & txtdscp.Text & _
        "','" & txtusers.Text & "','" & txtdpt.Text & "')"
     
    ' You're missing the code to actually execute this statement against the database.
     
    MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success")
End Sub

Public Function SQLSafe(str as String)
     Return str.replace("'", "''")
End Function

Private Sub btnsave_Click_1(......) Handles btnsave.Click
     Dim Cmd as String = "INSERT INTO [Change Control] VALUES ('{0}','{1}','{2}','{3}','{4}',{5}','{6}','{7}','{8}')"
     Dim Exec = String.Format(Cmd, SQLSafe(txtlognum.Text), SQLSafe(txttrgdt.Text), SQLSafe(txttime.Text), _
             SQLSafe(txtrqstby.Text), SQLSafe(txtprojname.Text), SQLSafe(txtdscp.Text), SQLSafe(txtusers.Text), SQLSafe(txtdpt.Text))
End Sub

Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click<br />
<br />
<br />
        Dim ad As New Change<br />
<br />
        txtlognum.Text = ad.LogNumber<br />
        txtdtrqst.Text = ad.DateRequested<br />
        txttrgdt.Text = ad.TargetDate<br />
<br />
        ad.LogNumber = Change.Createdata("Change", "LogNumber")<br />
        ad.DateRequested = Change.Createdata(txtdtrqst.Text)<br />
        ad.TargetDate = Change.Createdata(txttrgdt.Text)<br />
        ad.Time = Change.Createdata(txttime.Text)<br />
        ad.RequestedBy = Change.Createdata(txtrqstby.Text)<br />
        ad.ProjectName = Change.Createdata(txtprojname.Text)<br />
        ad.ChangeDescription = Change.Createdata(txtdscp.Text)<br />
        ad.Users = Change.Createdata(txtusers.Text)<br />
        ad.Department = Change.Createdata(txtdpt.Text)<br />
<br />
<br />
        MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success")

Public Class Change<br />
<br />
    Public CategoryHardware As CheckBox<br />
    Public categorySoftware As CheckBox<br />
    Public CategoryNetwork As CheckBox<br />
    Public CategoryDatabase As CheckBox<br />
    Public CategoryTcom As CheckBox<br />
    Public CagegoryFacilities As CheckBox<br />
    Public RiskHigh As CheckBox<br />
    Public RiskMedium As CheckBox<br />
    Public RisLow As CheckBox<br />
    Public NewProgram As CheckBox<br />
    Public Maintnace As CheckBox<br />
    Public Problem As CheckBox<br />
    Public Enhancement As CheckBox<br />
    Public Other As CheckBox<br />
<br />
    Public LogNumber As Int16<br />
    Public DateRequested As DateTime = Nothing<br />
    Public TargetDate As DateTime = Nothing<br />
    Public Time As String<br />
    Public RequestedBy As String<br />
    Public ProjectName As String<br />
    Public ChangeDescription As String<br />
    Public Users As String<br />
    Public Department As String<br />
<br />
    Public TypeEr As String<br />
    Public TypeException As String<br />
    Public TypeNormal As String<br />
<br />
    Public Description As String<br />
    Public Completed As CheckBox<br />
    Public Initials As String<br />
    Public Duration As String<br />
<br />
    Public Shared Function Getdata(ByVal LogNumber As System.Int16) As Change<br />
        Dim searchcommand1 As String = "SELECT * FROM [Change Control] WHERE ([LogNumber] = " & LogNumber<br />
<br />
        'Dim searchcommand2 As String = "SELECT * FROM Change Type"<br />
        'Dim searchcommand3 As String = "SELECT * FROM Change Category"<br />
<br />
    End Function<br />
<br />
    Public Shared Function Createdata(ByVal addobj As Change)<br />
        Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
                     & "Data Source=" & ("C:\db1.mdb")<br />
<br />
        Dim InsertCommand1 As String = "INSERT INTO Change Control (LogNumber, DateRequested, TargetDate, Time, RequestedBy, ProjectName, ChangeDescription, Users, Department) VALUES (" & addobj.LogNumber & ", " & addobj.DateRequested & ", " & addobj.TargetDate & ", " & addobj.Time & ", " & addobj.RequestedBy & ", " & addobj.ProjectName & ", " & addobj.ChangeDescription & ", " & addobj.Users & ", " & addobj.Department & ")"<br />
               <br />
End Class