Search results

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Private Sub cmdAdd_Click() DataGrid1.Visible = True cmdSave.Enabled = True txtBookorderid.Enabled = True enablerec clearrec MsgBox "You can add new record", vbOKOnly + vbInformation Set rs = New...

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim bid As Integer Private Sub cboBid_Click() Dim rs2 As New ADODB.Recordset bid = Val(cboBid.Text) rs2.Open "SELECT * FROM Book_info where Book_id= " & bid & " ", con, adOpenKeyset, adLockOptimistic...

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim bid As Integer Private Sub cboBoid_Change() bid = (cboBoid.Text) Dim res As New ADODB.Recordset res.Open "select * from Customer_order where Bookorder_id=' " & bid & " ' ", con, adOpenKeyset, adLockOptimistic res.Open "Select *...

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim sid, bname, qty As String Private Sub cboSupid_Click() sid = cboSupid.Text rs1.Open "select * from Supplier_details where Supplier_id=('" & sid & "')", con, adOpenKeyset, adLockOptimistic...