Hiroki Saru

ได้เป็นบัตรกำนัล หรือของรางวัลมูลค่า xxx บาท
แทนอะจินะ บ่นแบบนี้

งานไหนล่ะคะ?

Option Compare Database
Option Explicit

Dim cnn As ADODB.Connection
Dim rstemp As ADODB.Recordset


---------------------------------

Private Sub Command10_Click()


rstemp.MoveFirst
MsgBox (rstemp.Fields(1))

rstemp.Fields(1) = rstemp.Fields(1) + incm

rstemp.Fields(5) = rstemp.Fields(5) + incm

rstemp.Update

MsgBox (rstemp.Fields(1))


'rstemp.Close
'cnn.Close


End Sub





---------------------------------
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.Open "Provider=microsoft.jet.OLEDB.4.0;" & _
"data source=C:\sdf,msm,sdflsldfkjsdf\Copy of backup senior project5.mdb"
Set rstemp = New ADODB.Recordset
rstemp.Open "capital", cnn, adOpenKeyset, adLockOptimistic




End Sub

=
=
=
=
=
=


วาง location
C:/benz_senior_project.mdb
เท่านั้น

=
=
=
=
=
=

Option Compare Database
Option Explicit

Dim cnn As ADODB.Connection
Dim rstemp As ADODB.Recordset

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.Open "Provider=microsoft.jet.OLEDB.4.0;" & _
"data source=C:\benz_senior_project.mdb"
Set rstemp = New ADODB.Recordset
rstemp.Open "capital", cnn, adOpenKeyset, adLockOptimistic




End Sub
Private Sub Command_Click()"ปุ่ม"

Dim ตัวแปร As Currency


ตัวแปร = ที่มาของตัวแปรในฟอร์ม.Value



rstemp.MoveFirst


rstemp.Fields(บาร้านซ์) = rstemp.Fields(บาร้านซ์) (บวกหรือลบ) ตัวแปร

rstemp.Fields(บัญชีรายจ่ายหรือรายได้) = rstemp.Fields((บัญชีรายจ่ายหรือรายได้)) (บวกหรือลบ) ตัวแปร
rstemp.Update

http://www.youtube.com/watch?v=YWYXOJG5GA8

Thanks Kun Googgig Props&Ops