Logic Creators

One can search multiple field with this query in VB rs.Open "select empr_name, datevalue, job_desc, shifts from schedule where emp_id = " + Text2.Text + "", con, adOpenKeyset, adLockOptimistic please comment if this post helps you!

Hi friends! this code will help to sort data in datagridview Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField End Sub please comment if this code help you!

You can search item through this code on keypress in datagrid, Like if you press 1 in textbox then all record starts from 1***** will be displayed, without hitting any other button. Private Sub text_change() With recordset If .State adStateClosed Then .Close End If .Open "select * from table where empid like'" & Text1.Text & "%'", con, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = recordset End With End Sub comment if this code helps u

This code will help one to control the input at runtime in vb. All the cases mentioned in this code are the ascii values...... For more customization you can use Private Sub text1_KeyPress(KeyAscii As Integer) If Text2.MaxLength = True Then MsgBox "Can't exceed more than 30 characters" End If Select Case KeyAscii Case Asc(" ") Case 65 To 90 Case 97 To 122 Case 48 To 57 Case 32 Case 13 Case 8 Case 127 Case Else MsgBox "Invalid Input", vbOKOnly + vbExclamation KeyAscii = 0 End Select End Sub

This mentioned code will handle msgbox behaviour in VB6. msgvalue = MsgBox("Do You want to Quit ", vbOKCancel, "Quit") If msgvalue = 1 Then Unload Me Else Cancel = True End If

This code is to move items from 1 list to another list in vb6. In this post list1 has diffrent datatable and list2 has diffrent datatable so the item moved from list1 will take whole record to other table. Private Sub Command1_Click() On Error GoTo errorhandler Dim a As String a = List1.Text List1.RemoveItem (List1.ListIndex) rs.Open "insert into tablename select * from tablename where emprname='" + a + "'", con, adOpenDynamic, adLockOptimistic rs.Open "delete from tablename where emprname='" + a + "'", con, adOpenDynamic, adLockOptimistic List2.AddItem (a) Exit Sub errorhandler: MsgBox "Please Select an Item!" End Sub please comment if this post helps you...

This code will generate auto id number for the unique id. Public Sub id() Dim lastnumber As Long, newnumber As Long 'Check if there are records in the file With recordset If .BOF = True And .EOF = True Then lastnumber = (any number) Else .MoveLast lastnumber = !field in recordset End If 'Generate New Number newnumber = lastnumber + 1 Text1.Text = newnumber End With End Sub please comment if this post helps you.....

Now if we have multiple option button on one form then how to control all of them. If we need to add lots of option button on one form then they all will communicate with each other Means at run time only one option button can be checked. So the solution to this is to add frames on form and apply option button in frame to group option buttons. any option button out of frame can't communicate with option button inside the frame. Please comment if this post help you....

The given code will help to get database value in your combobox. public con as new adodb.connection public rs as new adodb.recordset rs.Open "Select (data field to load in combobox) from (tablename) ", con, adOpenForwardOnly, adLockReadOnly While rs.EOF = False Combo1.AddItem rs!(data field to load in combobox) rs.MoveNext Wend