|
7 command buton 5 textbox ve bir veri tabanı hazırlanmalıdır
Dim cnn As New ADODB.Connection ‘Bu kisim General Declerations icine yazilmali
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Private Sub cmdAlanlarisil_Click()
Alanlarisil ‘ Sub Procedure
End Sub
Private Sub cmdEnson_Click()
With rst
.MoveLast
AlanlariDoldur
Beep
MsgBox "Sonuncu Kayit"
End With
End Sub
Herhangi bir kaydi bulma
Private Sub cmdFind_Click()
rst.Close
rst.Open
On Error GoTo Err
If rst("FakulteNo") = " & text5 & " Then ‘text5 Aranan Fakulte Nosudur.
rst.Find "FakulteNo='" & Text5.Text & "'"
AlanlariDoldur
Else
rst.Find "FakulteNo='" & Text5.Text & "'"
AlanlariDoldur
Err:
End If
End Sub
Private Sub cmdGuncelle_Click()
'cnn.Open
'cnn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; " &
'"dataSource=c:Documents and SettingsDeneme1.mdb"
'cnn.Open
soru = MsgBox("kayit Guncellensinmi?", 4)
If soru = 6 Then
cmd.CommandText = "update kisibilgileri set FakulteNo='" & Text1.Text & "',Adi='" & Text2.Text & "',Soyadi='" & Text3.Text & "',Yasi='" & Text4.Text & "'"
cmd.ActiveConnection = cnn
cmd.Execute
cnn.Close
Else
End If
End Sub
Private Sub cmdIlk_Click()
With rst
.MoveFirst
AlanlariDoldur
Beep
MsgBox "Ilk Kayit"
End With
End Sub
Private Sub Form_Load()
cnn.Open "deneme1"
With cmd
.CommandType = adCmdText
.CommandText = "select * from kisibilgileri"
Set .ActiveConnection = cnn
End With
With rst
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open cmd
End With
End Sub
Private Sub Next_Click()
With rst
.MoveNext
If .EOF Then
Beep
MsgBox "Sonuncu Kayit"
.MoveLast
End If
AlanlariDoldur
End With
End Sub
Private Sub Previous_Click()
With rst
.MovePrevious
If .BOF Then
Beep
MsgBox "Birinci Kayit"
.MoveFirst
End If
AlanlariDoldur
End With
End Sub
Public Sub AlanlariDoldur() ‘Burasi Procedure’dur
Text1.Text = rst("FakulteNo")
Text2.Text = rst("Adi")
Text3.Text = rst("Soyadi")
Text4.Text = rst("Yasi")
End Sub
Public Sub Alanlarisil()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.SetFocus
End Sub
Yazar: Turk_Ajan
|
