Başlangıç > Kodlar > VB6 ile Access’e direk bağlanmak

VB6 ile Access’e direk bağlanmak


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 Settings\Deneme1.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

 

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: