We help IT Professionals succeed at work.

Merge

Medium Priority
328 Views
Last Modified: 2013-11-25
How to correct the code below wherein I want to merge  the two field in one table?
'Class mudule
Public Function Merged(ProCode As String) As String
Dim Merge(1 To 2) As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
    sql = "select Top 1 Tag_Name,  Quantity from STOCK where PROCODE='" & ProCode & "'"
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenKeyset
    rs.Open sql, cn
    With rs
        If .BOF = True And _
            .EOF = True Then
            Merge(1) = ""
            Merge(2) = (0)
        Else
            Merge(1) = !Tag_Name & ""
            Merge(2) = !Quantity
        End If
        .Close
    End With
    Set rs = Nothing
End Function
 
'Form
Public Sub Tag1()
Dim s As Labeler
Set s = New Labeler
s.OPEN_CON "mydb", ""
Dim j As SSCommand
For Each j In cmd1
    j.Caption = s.Merge(1)(j.Index) & vbNewLine & s.Merge(2)(j.Index)
Next
s.CLOSE_CON
Set s = Nothing
End Sub

Open in new window

Comment
Watch Question

Senior .Net Consultant
CERTIFIED EXPERT
Top Expert 2016
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

Commented:
Thank you sir, Through this idea i was able to solve the problem..
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.