by deepgags (3 Submissions)
Category: VB function enhancement
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating:
(3 Votes)
Creating Insert/Update queries automatically, Date, Text, Number fields handled, Very useful. download ithttps://www.ixwebhosting.com/templates/ix/v2/affiliate/clickthru.cgi?id=mahvisions">
border="0" alt="" src="https://www.ixwebhosting.com/templates/ix/v2/images/banners/88x31-unlimitedwin.gif" />
API DeclarationsDim SQLInsert As New SqlQuery
Private Sub Command1_Click()
SQLInsert.ClearString
SQLInsert.InsertSQL "Name", CharacterField, "My Textbox Value"
SQLInsert.InsertSQL "Address", CharacterField, "My Textbox Value"
SQLInsert.InsertSQL "PIN", CharacterField, "My Textbox Value"
SQLInsert.InsertSQL "Age", NumericField, 25
SQLInsert.InsertSQL "DateofBirth", DateField, Date
SQLInsert.SQLBuild "Customer", InsertData
Text1.Text = SQLInsert.GetSQL_String
End Sub
Private Sub Command2_Click()
SQLInsert.ClearString
SQLInsert.UpdateSQL "Name", CharacterField, "My Textbox Value"
SQLInsert.UpdateSQL "Address", CharacterField, "My Textbox Value"
SQLInsert.UpdateSQL "PIN", CharacterField, "My Textbox Value"
SQLInsert.UpdateSQL "Age", NumericField, 25
SQLInsert.UpdateSQL "DateofBirth", DateField, Date
SQLInsert.UpdateSQLWhere "Age", NumericField, 20
SQLInsert.SQLBuild "Customer", UpdateData
Text2.Text = SQLInsert.GetSQL_String
End Sub
Download Creating SQL Query Automatic Insert/Update query (3 KB)