10-31-2015، 09:27 AM
درود
خوبی؟
کد :
خوبی؟
کد :
کد:
On Error GoTo err:
Dim sql As String
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Program Filesjosoftdatabasejosoft.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "Select * from [FeeBalance] where [AdmnNo] = '" & Text1.Text & "'", con, 3, 3
rs.MoveLast
'rs.MoveNext
If rs.EOF And rs.BOF Then
MsgBox ("No Fee Balance Found in the Above Student!")
Else
rs.MoveLast
Text15.Text = rs!Amountpaid
Text17.Text = rs!balance
End If
err:
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
