Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi muratyk55 -- 27 Aralık 2011; 14:00:42 > |
Hızlı 
Bildirim
vb.net listbox yardım (vodafone faturasız hattı olana 20tl yükleyecem)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
Sen yaptığın çalışmanın kodlarını buraya yazsan hatalı olan yeri söylerdik. Yapmak istediğin şey basit.. -
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 :) -
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.
-
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 >
-
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.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
