vb.net listbox yardım (vodafone faturasız hattı olana 20tl yükleyecem)

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb vb.net listbox yardım (vodafone faturasız hattı olana 20tl yükleyecem)

Bu konudaki kullanıcılar: 1 misafir

5
Cevap 567
Tıklama 0
Öne Çıkarma

1. sayfa

vb.net listbox yardım (vodafone faturasız hattı olana 20tl yükleyecem)

Cevap Yaz

muratyk55

14 yıl

Çavuş

Konu Sahibi

http://hotfile.com/dl/138555899/1bf3c3e/WindowsApplication3.rar.html

yukarıdaki dosyayı istediğim gibi yapıp gönderene 20tl yükleme yapıcam arkadaşlar.

sdf deki liste_bir tablosundaki liste_ismi sütunundakileri listbox1 e çekicem

listbox1 den seçilen isimle - liste_iki tablosundaki liste_kodu sütununu karşılaştırıp uygun olanı listbox2 ye çekicem.

gönder butonuna basıldığında rapor tablosuna kaydedicem.

bukadar basit ama vb.net sql işlemlerini hiç bilmiyorum vb6 mdb kodu örneğini aşağıda paylaştım tek istediğim vb.net versiyonu.

bilen için 5dk iş bulamadım forumlarda detaylı bilgiyi.

YAPIP GÖNDEREN OLURSA İSTEDİĞİ BİR FATURASIZ VODAFONE HATTINA 20TL YÜKLİCEM

< Bu mesaj bu kişi tarafından değiştirildi muratyk55 -- 27 Aralık 2011; 14:00:42 >

ayhan_sr

14 yıl

Yüzbaşı

Sen yaptığın çalışmanın kodlarını buraya yazsan hatalı olan yeri söylerdik. Yapmak istediğin şey basit..

Bu mesaja 1 cevap geldi.

muratyk55

14 yıl

Çavuş

Konu Sahibi

Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\\172.17.0.6\Shared for Kocnet\Online Çağrı Takip\Cagri_Takip_Sistemi.mdb"
Adodc1.RecordSource = "select * from liste_bir ORDER BY liste_ismi"
Adodc1.Refresh
Dim sayac As String
Dim i As Integer
sayac = Adodc1.Recordset.RecordCount
If Adodc1.Recordset.RecordCount <> 0 Then
For i = 1 To sayac
Adodc1.RecordSource = "select * from liste_bir where liste_kodu = '" & i & "' order by liste_ismi"
Adodc1.Refresh
List1.AddItem (Adodc1.Recordset("liste_ismi"))
Next
End If

istediğim şey bu vb6 mdb kodlarını vb.net sql(sdf) komutlarına çevirmek :)

Bu mesaja 1 cevap geldi.

ayhan_sr

14 yıl

Yüzbaşı

Senin verdiğin kodda bir şarta bağlı olmaksızın tüm elemanların liste ismini Liste1'e ekliyor. Bi mantık hatası var sanki.

Ben Access 2002-2003'e göre bağlantısını yazim sen sql e çevir..
imports system.Data.Oledb
imports system.Data
'Bu iki satırı en başa ekle. Daha sonra butonun Click olayına :

Dim sqlkod as string
Dim dr as oledbdatareader
Dim cmd as OledbCommand
Dim baglan As oledbconnectibon=("Provider=Microsoft.Jet.Oledb.4.0; Data Source= " & App.Path & "\\172.17.0.6\Shared for Kocnet\Online Çağrı Takip\Cagri_Takip_Sistemi.mdb"
baglan.open()
sqlkod="Select * From liste_bir ORDER BY liste_ismi"
cmd=new oledbcommand(sqlkod,baglan)
dr=cmd.ExecuteReader()
Do while dr.Read()
ListBox1.Items.Add(dr(1)) 'Burada dr(n) deki n tablodaki alanın sırasıdır. Sende liste_ismi kaçıncı alan ise onun sırasını yaz. Ben 1 kabul ettim. Unutma : ilk alan 0.alandır.
loop
dr.Close()
baglan.close()

Burada tablodaki liste_ismi alanındaki tüm kayıtları ListBox1'e ekler.

muratyk55

14 yıl

Çavuş

Konu Sahibi

Imports System.Data.SqlClient

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strBaglanti As String = "Data Source=MUSTAFA-MUSTAFA\SQLSERVER;Initial Catalog=C:\Users\mustafa\Desktop\octs.mdf;Integrated Security=True"
Dim CN As New SqlConnection(strBaglanti)
Dim CMD As New SqlCommand
CMD.Connection = CN
CMD.CommandType = CommandType.Text
CMD.CommandText = "SELECT * FROM liste_bir"
CN.Open()
Dim Reader As SqlDataReader = CMD.ExecuteReader()
Dim sonuc As String = String.Empty
Do While Reader.Read
MessageBox.Show(Reader(2).ToString) 'ikinci ve üçüncü kolondaki bilgiler
Loop
CN.Close()

End Sub
End Class

bu kodda bi yanlışlıkmı var?? veritabanına bağlanamıyorum

< Bu mesaj bu kişi tarafından değiştirildi muratyk55 -- 28 Aralık 2011; 3:09:25 >
Bu mesaja 1 cevap geldi.

tamerozgor

14 yıl

Teğmen

cmdce.Connection = connce
connce.ConnectionString = "Data Source= storage card\demirbas\depokul.sdf "
cmdce.CommandText = "select * from kullanıcı " ' tüm datayı seç
connce.Open()
drce = cmdce.ExecuteReader
Do While drce.Read 'veri olduğu sürece yaz , kontrollerde lazım olacak
listbox1.Add(drce("kod"))
Loop
drce.Close()
connce.Close()

ben bu şekilde yapıyorum bağlantıyı ve çalışıyor.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb vb.net listbox yardım (vodafone faturasız hattı olana 20tl yükleyecem)