30-11-18, 05:03 PM
(آخر تعديل لهذه المشاركة : 30-11-18, 06:43 PM {2} بواسطة asemshahen5.)
كود :
Dim StrSQL as string = "Select * From Sell_Detl Where BUYCODE = '" & TXTID.Text & "'"
Dim StrTableName As String ="Sell_Detl"
Dim da As New SqlDataAdapter(StrSQL, con)
Dim dt As New DataSet
da.Fill(dt,StrTableName)
If ds.Tables(StrTableName).Rows.Count > 0 Then
'Edit Code
Else If ds.Tables(StrTableName).Rows.Count = 0 Then
'Add Code
End Ifسبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر