mohsen_iceman2000
جمعه 15 شهریور 1392, 23:51 عصر
این کد می ره آخرین شماره اشتراک رو پیدا می کنه و یه دونه اضافه می کنه ّکسی اینو می تونه به وی بی دات نت تبدیل کنه ؟ خودش vb6 است
RsFind = New Recordset
RsFind.Open("Select Max(NumberEshterak) As MaxEshterak From Res_tblMoshtari", con, adOpenKeyset, adLockOptimistic)
If IsNull(RsFind!MaxEshterak) Then
Me.txtCodeEshterak.Text = 1
Else
txtCodeEshterak.Text = RsFind!MaxEshterak
txtCodeEshterak.Text = txtCodeEshterak.Text + 1
End If
RsFind = New Recordset
RsFind.Open("Select Max(NumberEshterak) As MaxEshterak From Res_tblMoshtari", con, adOpenKeyset, adLockOptimistic)
If IsNull(RsFind!MaxEshterak) Then
Me.txtCodeEshterak.Text = 1
Else
txtCodeEshterak.Text = RsFind!MaxEshterak
txtCodeEshterak.Text = txtCodeEshterak.Text + 1
End If