Category talk:SQL

From Wikipedia, the free encyclopedia

Dim isret As Boolean
       If txt5.Text = "yes" Then
           isret = True
       Else
           isret = False
       End If
       Dim isext As Boolean
       If txt7.Text = "yes" Then
           isext = True
       Else
           isext = False
       End If
       Dim add As String = "INSERT INTO Borrowal(Borrowaldate,Memberno,Bookcode,Duedate,Isreturned,ReturnedDate,IsExtended)Values(#" & txt1.Text & "#,'" & txt2.Text & "','" & txt3.Text & "',#" & txt4.Text & "#,isret,#" & txt6.Text & "#,isext)"
       borw(add)
       MessageBox.Show("Record added successfully")