I am trying to get the detail of quotation in datagrid
by creating ADO datagrid control
But i am getting error
Run time error
object required
Set Adodc1.Recordset = rs
I can't set the record set at run time
code....
Private Sub ShowDetail()
Dim rs As ADODB.Recordset
Dim n As Integer
Set rs = do2.CreateRecordSet("SELECT IND_SEQ_NO, IND_REF, IND_SP_NO, IND_SP_DES, IND_QTY, IND_U_PRC FROM TXINVDTF WHERE IND_INV_NO = '" & txtfield(0) & "' ORDER BY IND_SEQ_NO"
Set Adodc1.Recordset = rs
row_count = do2.RecordCount("SELECT COUNT(*) FROM TXINVDTF WHERE IND_INV_NO = '" & txtfield(0) & "'"
Adodc1.Refresh
GridColumnSize
GridColumnName
GridColumnFormat
rs.Close
End Sub
by creating ADO datagrid control
But i am getting error
Run time error
object required
Set Adodc1.Recordset = rs
I can't set the record set at run time
code....
Private Sub ShowDetail()
Dim rs As ADODB.Recordset
Dim n As Integer
Set rs = do2.CreateRecordSet("SELECT IND_SEQ_NO, IND_REF, IND_SP_NO, IND_SP_DES, IND_QTY, IND_U_PRC FROM TXINVDTF WHERE IND_INV_NO = '" & txtfield(0) & "' ORDER BY IND_SEQ_NO"
Set Adodc1.Recordset = rs
row_count = do2.RecordCount("SELECT COUNT(*) FROM TXINVDTF WHERE IND_INV_NO = '" & txtfield(0) & "'"
Adodc1.Refresh
GridColumnSize
GridColumnName
GridColumnFormat
rs.Close
End Sub