elimden geldiği kadar açıklamaya çalıştım. takıldığın yer olursa yine sor. http://www.tahribat.com/forumdisplayfolder. asp?folderid=44271 Kayalardan kayarım yoktur benim ayarım (;

kardeş akşamı bekle. Ayrıntılı bir dküman hazırlarım. Bu sıra vbasic açıklıyorum. neyi açıklayım diye düşünüyordum ;) Kayalardan kayarım yoktur benim ayarım (;

uzun süredir vb6 uğraşıyorum ss hazırlığı saymasak. Db lere yeni geçtim şyle basit bi szlük gibi bişey yapayım dedim. ufak bi rnek hazırlarsanız çok memnun olurum. Mesela text1 e yazdığımızın access db deki karşılığı text2 de çıkacak gibi... Ertan kardeş umudum sensin sanırım başkası uğraşmaz... Uğraşan olursa tabi çok memnun olurum... hangi çılgın beni banlayacakmış şaşarım...

do while adodc1. recordset. eof=falseif adodc1. recordset. fields =text1. text thenmsgbox "Eşleşme yapıldı"end ifadodc1. recordset. movenextLoop TBT'ye Mescit istiyoruz.

Konu vb bolumune ait... kodlar sadece rnektir çalısmayabilir... İlk nce form üzerine bir Toolbar nesnesi, Toolbar üzerindeki komut düğmelerinin resimlendirilmesi için bir ImageList, Timer, iki tane Label, iki tane TextBox, MsFlexGrid, Data ve StatusBar nesnelerini çiziniz. Şimdi form üzerine eklediğimiz nesnelerin zelliklerini biraz değiştirelim. İngilizce kelimenin Türkçe karşılığını gireceğiniz Textbox ın genişliğini arttırın ve MultiLine zelliğini True atayın. Timer kontrolünün Interval zelliğini 100 girin. Data nesnesini Sozluk adlı Access veritabanı ile ilişkilendirin. MsFlexGrid nesnesinin DataSource zelliği ile data nesnesini ilişkilendirin. Programın kodlarında grüldüğü gibi veritabanının yolunu "C:\Belgelerim\Sozluk" olarak belirtiğim için Sozluk veritabanını kendi bilgisayarınızda C:\Belgelerim" dizinine kopyalayınız. Private Sub Form_Load Dim dosya As DatabaseDim kayit As RecordsetDim i, cevapSet dosya = OpenDatabase Set kayit = dosya. OpenRecordset StatusBar1. Panels(3). Text = kayit. RecordCountMSFlexGrid1. Col = 1MSFlexGrid1. ColWidth(0) = 2000MSFlexGrid1. ColWidth(1) = 5000End SubPrivate Sub Text1_Change If Text1 = "" ThenToolbar1. Buttons(3). Enabled = FalseToolbar1. Buttons(2). Enabled = FalseToolbar1. Buttons(4). Enabled = FalseToolbar1. Buttons(5). Enabled = FalseElseToolbar1. Buttons(3). Enabled = TrueToolbar1. Buttons(2). Enabled = TrueToolbar1. Buttons(4). Enabled = TrueToolbar1. Buttons(5). Enabled = TrueEnd IfEnd SubPrivate Sub Text1_Click If Text1 = "" ThenToolbar1. Buttons(3). Enabled = FalseToolbar1. Buttons(2). Enabled = FalseToolbar1. Buttons(4). Enabled = FalseToolbar1. Buttons(5). Enabled = FalseElseToolbar1. Buttons(3). Enabled = TrueToolbar1. Buttons(2). Enabled = TrueToolbar1. Buttons(4). Enabled = TrueToolbar1. Buttons(5). Enabled = TrueEnd IfEnd SubPrivate Sub Timer1_Timer MSFlexGrid1. Col = 0MSFlexGrid1. Sort = 5Timer1. Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick On Local Error GoTo hataDim dosya As DatabaseDim kayit As RecordsetDim i, cevapSet dosya = OpenDatabase Set kayit = dosya. OpenRecordset Select Case Button. KeyCase "Yeni"Text1 = ""Text2 = ""Case "Kaydet"kayit. MoveFirstFor i = 1 To kayit. RecordCountIf Text1 = kayit. Fields ThenStatusBar1. Panels(1). Text = "Bu kelime szlükte zaten var"Exit SubElsekayit. MoveNextEnd IfNext ikayit. AddNewkayit. Fields = Text1kayit. Fields = Text2kayit. UpdateData1. RefreshStatusBar1. Panels(3). Text = kayit. RecordCountText1 = ""Text2 = ""Text1. SetFocusMSFlexGrid1. Col = 0MSFlexGrid1. Sort = 5Case "Bul"kayit. MoveFirstFor i = 1 To kayit. RecordCountIf Text1 = kayit. Fields ThenText2 = kayit. Fields StatusBar1. Panels(1). Text = ""Exit SubElsekayit. MoveNextEnd IfNext iCase "Sil"cevap = MsgBox("Bu kelime szlükten silinecek! Emin misiniz?", 4, "Dikkat")If cevap = vbYes Thenkayit. MoveFirstFor i = 1 To kayit. RecordCountIf Text1 = kayit. Fields Thenkayit. DeleteData1. RefreshStatusBar1. Panels(3). Text = kayit. RecordCountMSFlexGrid1. Col = 0MSFlexGrid1. Sort = 5Text1 = ""Text2 = ""Text1. SetFocusExit SubElsekayit. MoveNextEnd IfNext iElseExit SubEnd IfCase "Duzenle"kayit. MoveFirstFor i = 1 To kayit. RecordCountIf Text1 = kayit. Fields Thenkayit. Editkayit. Fields = Text1kayit. Fields = Text2kayit. UpdateData1. RefreshMSFlexGrid1. Col = 0MSFlexGrid1. Sort = 5Exit SubElsekayit. MoveNextEnd IfNext iEnd Selecthata:If Err = 3021 ThenStatusBar1. Panels(1). Text = "Aradiginiz kelime sozlukte yok"End IfEnd Sub Buralar bizden sorulur... Ravage@tahribat.com

mesajlarınız için teşekkürler fakat ben ğrenme amaçlı daha basit bir rnek isttemiştim . Paylaşırsanız çok teşekkür ederim... hangi çılgın beni banlayacakmış şaşarım...