مطالبی برای شماها

Private Sub Command2_Click()
  
  '           Save Record             '
    cn.Open (constr)
    rs.Open "select * from num", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs.Fields("name") = Text2.Text
    rs.Fields("family") = Text3.Text
    rs.Fields("num") = Val(Text4.Text)
    rs.Update
    rs.Close
    cn.Close
End Sub

'           Create text file       '

Private Sub Command3_Click()
   Set textFile = fs.OpenTextFile("c:\table.txt", ForWriting, True)
   textFile.WriteLine (Text1.Text)
   textFile.Close
End Sub

Private Sub Command4_Click()

'    save search in text file    '

Set textFile = fs.OpenTextFile("c:\table.txt", ForWriting, True)
cn.Open (constr)
rs.Open "select * from num where num >" & Val(Text1.Text), cn
Do While Not rs.EOF
textFile.WriteLine (rs("num"))
rs.MoveNext
Loop
rs.Close
cn.Close
textFile.Close
End Sub

Private Sub Form_Load()

'          Connection              '

constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\table.mdb"
End Sub