kasra_khan2003
یک شنبه 02 خرداد 1389, 10:22 صبح
یه برنامه نوشتم برای فروشگاهی، امروز صبح میخواستم دیگه تحویل بدم، گفتم قبل تحویل یه نگاهی بهش بندازم مطمئن شم!
اما الان یکی دوتا فرم هست که هیچ تغییری توش ایجاد نمیشه، در واقع اصلا کار نمیکنه! مثلا یه فرم هست که وقتی Load میشه باید آمار اشخاصی که تو نظر خواهی فروشگاه شرکت کردن و مثلا تو سوال 1، گزینه ی الف رو انتخاب کردن نشون بده، اما هیچی نشون نمیده.
حتی وقتی میام کد رو بصورت عمدی دست کاری میکنم تا باگ بشه، اما هیچ error ای دریافت نمیکنم!
رفتم یه فرم جدید ساختم و توش یه Textbox گذاشتم توش، بعد تو قسمت Load کد زیر رو اضافه کردم، اما هیچی به هیچی!
Private Sub flc_Test_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim conn As New OleDbConnection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Pazirik_DB.mdb;"
Dim cmd As New OleDbCommand
cmd.CommandText = "SELECT Name From Customer Where ID=20"
cmd.Connection = conn
Dim Bind As New BindingSource
Dim dtaSet As New DataSet
Dim myAdapter As New OleDbDataAdapter
myAdapter.SelectCommand = cmd
conn.Open()
myAdapter.Fill(dtaSet, "Pazirik_db")
Bind.DataMember = "Pazirik_db"
Bind.DataSource = dtaSet
txt_Test.DataBindings.Add("Text", Bind, "Name", True)
conn.Close()
txt_Test.DataBindings.Clear()
End Sub
دیگه نمیدونم چی کار باید بکنم! بقیه فرم ها کار میکنن، اما 2-3 تاش نمیکنن، باضافه هر فرم جدیدی که میسازم...
اما الان یکی دوتا فرم هست که هیچ تغییری توش ایجاد نمیشه، در واقع اصلا کار نمیکنه! مثلا یه فرم هست که وقتی Load میشه باید آمار اشخاصی که تو نظر خواهی فروشگاه شرکت کردن و مثلا تو سوال 1، گزینه ی الف رو انتخاب کردن نشون بده، اما هیچی نشون نمیده.
حتی وقتی میام کد رو بصورت عمدی دست کاری میکنم تا باگ بشه، اما هیچ error ای دریافت نمیکنم!
رفتم یه فرم جدید ساختم و توش یه Textbox گذاشتم توش، بعد تو قسمت Load کد زیر رو اضافه کردم، اما هیچی به هیچی!
Private Sub flc_Test_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim conn As New OleDbConnection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Pazirik_DB.mdb;"
Dim cmd As New OleDbCommand
cmd.CommandText = "SELECT Name From Customer Where ID=20"
cmd.Connection = conn
Dim Bind As New BindingSource
Dim dtaSet As New DataSet
Dim myAdapter As New OleDbDataAdapter
myAdapter.SelectCommand = cmd
conn.Open()
myAdapter.Fill(dtaSet, "Pazirik_db")
Bind.DataMember = "Pazirik_db"
Bind.DataSource = dtaSet
txt_Test.DataBindings.Add("Text", Bind, "Name", True)
conn.Close()
txt_Test.DataBindings.Clear()
End Sub
دیگه نمیدونم چی کار باید بکنم! بقیه فرم ها کار میکنن، اما 2-3 تاش نمیکنن، باضافه هر فرم جدیدی که میسازم...