: wking bunu yazdı: Nurky bunu yazdı: rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. Cıx hocam bu arama yapmaz. Direk veri çağırır. Arama yapmak için like içeren sorgu kullanacaksın. nasıl? select from tahribat where kullanici_adi LIKE 'Holy%' Holy ile başlayan kullanıcıları getirir. select from tahribat where kullanici_adi LIKE '%Holy' Holy ile biten kullanıcıları getirir.

: Nurky bunu yazdı: rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. Cıx hocam bu arama yapmaz. Direk veri çağırır. Arama yapmak için like içeren sorgu kullanacaksın. Arama butonu 3. textbox'a girilecek olan borkodu databasede aratacak. sen olsan byle bi sistem için LIKE mı kullanırdın yoksa direk Where deyip tam karşılığı olan verileri mi getirirdin? :Dparçanın bütününe bak. barkod numarası text3. text olan ürünler gelmeli. bu database'de başı holy kıçı holy olan verileri getirmek değil :)

: wking bunu yazdı: Nurky bunu yazdı: rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. Cıx hocam bu arama yapmaz. Direk veri çağırır. Arama yapmak için like içeren sorgu kullanacaksın. like içermesine gerek yok where den sonra girilen veriyle db de kiyle karşılaştırman yeter like ın amacı aranmak istenen kelimelerin arancak yerdeki kelimenin ya kendisinin olması yada içinde geçmesini aramak için pek anlatamamdım ama rnek vermek gerekirse at kelimesi arancak db de at, essek, ve atlet var arama yapıldıgında at ve atleti çeker like kullanılmadıgında birebir aynı olmalı Aynı şeyi sylüyoruz zaten.

Visual basic acces arama kodu lazım. mesela 3 adet textbox olacak access de de 3 tane tablo olacak 1. si urun 2. si fiyat 3. sü barkod. Arama butonu 3. textbox'a girilecek olan borkodu databasede aratacak. bulup 1. ve 2. textboxlara fiyatını gsterecek Kodlamada arama blümünü halledemediğim için sizlerden yardım istiyorum. Bazıları zgürlüğü sadece kendileri gibi düşünenlere reva grüyor...

up! Bazıları zgürlüğü sadece kendileri gibi düşünenlere reva grüyor...

kodlamalarıda verdim. Yardım edebilecek yok mu? Bazıları zgürlüğü sadece kendileri gibi düşünenlere reva grüyor...

: rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. Cıx hocam bu arama yapmaz. Direk veri çağırır. Arama yapmak için like içeren sorgu kullanacaksın.

aşağıdaki kodlara bir adet daha command eklenecek Text3 de yazılanı aramada kullanılacak database de bulup diğerlerini dolduracak rn: ismi || fiyat || barkod armut || 1600 || 16454816 Text1 || Text2 || Text3 text3 e yazacam barkodu : "16454816" diyelim Text2' de fiyatı gzükecek: "1600" Text1'de de adı: "armut" tablo yukarıdaki gibi olcak Dim CON As New ADODB. ConnectionDim Kayitlar As New ADODB. RecordsetDim rs As New ADODB. RecordsetPrivate Sub Command1_Click On Error Resume NextKayitlar. MoveNextIf Kayitlar. EOF Or Kayitlar. BOF ThenKayitlar. MovePreviousText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields ElseText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End IfTimer1. Enabled = FalseTimer1. Enabled = TrueEnd SubPrivate Sub Command2_Click On Error Resume NextKayitlar. MovePreviousIf Kayitlar. EOF Or Kayitlar. BOF ThenKayitlar. MoveNextText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields ElseText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End IfEnd SubPrivate Sub Command3_Click On Error Resume NextKayitlar. MoveFirstText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End SubPrivate Sub Command4_Click On Error Resume NextKayitlar. MoveLastText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End SubPrivate Sub Command6_Click Kayitlar. AddNewKayitlar. Fields = Text1. TextKayitlar. Fields = Text2. TextKayitlar. Fields = Text3. TextKayitlar. AddNewEnd SubPrivate Sub Command7_Click Kayitlar. DeleteText1. Text = ""Text2. Text = ""Text3. Text = ""Kayitlar. UpdateEnd SubPrivate Sub Command8_Click On Error Resume NextKayitlar. Fields = Text1. TextKayitlar. Fields = Text2. TextKayitlar. Fields = Text3. TextKayitlar. UpdateEnd SubPrivate Sub Form_Load On Error Resume NextCON. Open "Provider=Microsoft. jet. oledb.4.0; Data Source=" & App. Path & "\data. mdb"Kayitlar. Open "Select from data", CON, adOpenStatic, adLockOptimisticText1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End Sub Bazıları zgürlüğü sadece kendileri gibi düşünenlere reva grüyor...

: Nurky bunu yazdı: rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. Cıx hocam bu arama yapmaz. Direk veri çağırır. Arama yapmak için like içeren sorgu kullanacaksın. like içermesine gerek yok where den sonra girilen veriyle db de kiyle karşılaştırman yeter like kullanılmadıgında birebir aynı olmalı

: Nurky bunu yazdı: rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. Cıx hocam bu arama yapmaz. Direk veri çağırır. Arama yapmak için like içeren sorgu kullanacaksın. nasıl? Bazıları zgürlüğü sadece kendileri gibi düşünenlere reva grüyor...

rs. Open "select from tablo_adi where sutun='" & Text3. Text & "';" ya da Set rs = db. OpenRecordset vbasic olmadıgı için deneyemiyorum yle kafadan bi yazdım. 1.5 senedir falan vb6 kullanmadım aklıma geleni yazdım ynai yanlıs olabilir -) . net olarak, listbox a çektigimizi varsayalım verileri.. sen textbox a giriyorsun barkod u ona textbox2. text diyelim. o da sana o barkod da yazılı olan tüm verileri sıralıyor basitçe anlatmaya calısırsam, Dim Snc As IntegerSnc = ListBox1. FindString(TextBox3. Text)ListBox1. SelectedIndex = Snc asp için de vereyim belki fikir verir sana. <%adi=request. form dim conn, rstResponse. Buffer=trueset conn = Server. CreateObject set rst = Server. CreateObject conn. Open "driver= ; DBQ=" & Server. MapPath sql = "SELECT from detay WHERE adi='"&TRIM &"'"rst. open sql, conn,3,3if rst. eof=true thenresponse. redirect ("404. asp")end if%><%=rst %>