ADODC iLe iLgili Bir Kac Bilgi..

[HayaLiMs]

KODLAMALARI FELAN HEPSİ RESiMLİ SEKiLDE VERiLMiSTiR...
---------------------------------------------------------------------------------------------

ADODC MSSQL VERITABANI BAGLANTISI



---------------------------------------------------------------------------------------------
Adodc Gibi Bağlantı Yollarında Veri tabanının belli bir alanındaki kayıtlardan istenilene ulaşmak


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

ADODC veritabanını bulamıyorsa....




----------------------------------------------------------------------------------------------
ADODC VE KAYIT

" Forma gerekli Text ve Butonları ve bir yerleştirirek kullanabilirisiniz.(ODADC ve GRID 6.0 eklemeyi unutmayın)
Yapılması gereken hata konrolleri var onları artık siz halledersiniz.
Benim programlarımda kullandığım teknik bu biraz zahmetli yanları var ama sorunsuz çalışıyor.
Umarım İşinize yarar...

"



Modüle yapıştır...

Global vrt As New ADODB.Connection
Global tb As New ADODB.Recordset

Sub tablo1()
vrt.Open "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "asmin.mdb"
tb.Open "Select * FROM ask ", vrt, adOpenDynamic, adLockOptimistic
End Sub

''Modül kısmı bu kadar

'''Form kısmına yapıştır...

Private Sub Command1_Click()
tb.MovePrevious
If tb.BOF = True Then tb.MoveFirst
veriyukle
End Sub
Private Sub Command2_Click()
Command9.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
tb.AddNew
verikaydet
tb.Update
End Sub
Private Sub Command3_Click()
verikaydet
tb.Update
End Sub
Private Sub Command4_Click() '''''''''''''SİLLLLLLLL
tb.Close
tb.Open "Select * from ask where adi", vrt, adOpenDynamic
If tb.BOF = True And tb.EOF = True Then
MsgBox " Kayıt Kalmadı!!!!!!"
Exit Sub
Else
tb.Delete
tb.MoveFirst
If tb.BOF = True Then
Exit Sub
Else
veriyukle
End If
End If
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
tb.MoveNext
If tb.EOF = True Then tb.MoveLast
veriyukle
End Sub

Private Sub Command7_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command8_Click()
Dim SQL, SQL1 As String
tb.Close
SQL = "Select * From ask where adi='" & Text4.Text & "'"
'SQL1 = "Select [adi],[soyadi],[no]From ask where adi='" & Text4.Text & "'"
tb.Open SQL
With Adodc1
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "asmin.mdb"
.CommandType = adCmdUnknown
.Password = ""
.UserName = ""
.RecordSource = SQL
.Refresh
End With
Set DataGrid1.DataSource = Adodc1 'DataGrid ADODC nesnesine bağlanıyor
DataGrid1.Columns(0).Caption = "ADI" 'Grid kolon başlıkları değiştirildi
DataGrid1.Columns(1).Caption = "SOYADI" 'Tasarım aşamasında verilirse Grid sonuçları göstermez
DataGrid1.Columns(2).Caption = "NO"
'********************************************
If tb.BOF = True And tb.EOF Then
MsgBox Text4.Text & " " & "Kaydı Bulunamadı"
Else
veriyukle 'sorgudan sonra bulununan alanlar textlere atılmalı
End If
vrt.Close 'tekrar sorgu yapılma ihtimali üzerine kapattık
Call Form_Load ' form açılıştaki haline geldi
End Sub
Private Sub Command9_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command9.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End Sub

Private Sub Form_Load()
tablo1
DataGrid1.Columns(0).Caption = "ADI"
DataGrid1.Columns(1).Caption = "SOYADI"
DataGrid1.Columns(2).Caption = "NO"
End Sub
Sub verikaydet()
tb!adi = Text1.Text
tb!soyadi = Text2.Text
tb!no = Text3.Text
End Sub
Sub veriyukle()
Text1.Text = tb!adi
Text2.Text = tb!soyadi
Text3.Text = tb!no
End Sub


----------------------------------------------------------------------------------------------
Devamı Gelecek..
----------------------------------------------------------------------------------------------