Your Privacy Matters: We use our own and third-party cookies to improve your experience on our website. By continuing to use the website we understand that you accept their use. Cookie Policy
50
Saving the each line from grid to recordset/dataset
posted

 

For saving all the rows from grid to recordset/dataset, I am using the following code in VB6 with datawidgets 3.13.

I want to acheive the same in VB.net with Ultrawingrid, but I could not find any samples.
Thanks & waiting for the reply.

'ssInvoice is the name of grid
'rsInvoiceItem is the name of the recordset

dim lcount as integer, i as integer
    strSql = "Select * from T_INVOICE_ITEM where InvoiceNo = " & Val(txtInvoiceNo.Text) & ""
    Set rsInvoiceItem = New ADODB.Recordset
    rsInvoiceItem.Open strSql, ADOConnData, adOpenDynamic, adLockOptimistic

    lCount = ssInvoice.Rows
    ssInvoice.MoveFirst
    For i = 1 To lCount
       If Val("" & ssInvoice.Columns("SrNo").Text) <> 0 And Trim("" & ssInvoice.Columns("ItemId").Text) <> "" Then
            rsInvoiceItem.AddNew
            rsInvoiceItem!InvoiceNo = Trim("" & txtInvoiceNo.Text)
            rsInvoiceItem!Srno = i  '"" & ssInvoice.Columns("SrNo").Text
            rsInvoiceItem!ItemId = "" & ssInvoice.Columns("ItemId").Text
            rsInvoiceItem!ItemDesc = "" & ssInvoice.Columns("ItemDesc").Text
            rsInvoiceItem!GroupId = "" & ssInvoice.Columns("GroupId").Value
            rsInvoiceItem!GroupDesc = "" & ssInvoice.Columns("GroupDesc").Text
            rsInvoiceItem!UnitPrice = Val("" & ssInvoice.Columns("UnitPrice").Text)
            rsInvoiceItem!DiscPerc = Val("" & ssInvoice.Columns("Disc%").Text)
            rsInvoiceItem!NetPrice = Val("" & ssInvoice.Columns("NetPrice").Text)
            rsInvoiceItem!SaleQty = Val("" & ssInvoice.Columns("SaleQty").Text)
            rsInvoiceItem!SaleValue = Val("" & ssInvoice.Columns("NetPrice").Text) * Val("" & ssInvoice.Columns("SaleQty").Text)
            rsInvoiceItem.Update
       End If
    ssInvoice.MoveNext
    Next i