khomar
سه شنبه 30 بهمن 1386, 00:55 صبح
سلام
در فرم لود قرار هست از دوتا تیبل مختلف اطلاعات رو بخونم
و هر تیبل رو به کامبو مختلف قرار بدم من کد رو نوشتم جواب هم می ده اما مشکل اینجاست
که در کامبو دومی به تعداد مقدارهای
کامبو اولی فاصله می ندازه
مشکل از کجاست؟
سعی کرم از
dt.clear
استفاده کنم چون قبلا از
dt.clear
جواب گرفته بودم اما اینجا کار رو بدتر می کنه
یعنی دیگه اطلاعات تیبل اول در کامبو اول قرار نمی گیره
ممنون می شم اگه کسی بگه مشکل از کجاست؟
Dim cmd As New OleDb.OleDbCommand
Dim con As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter(cmd)
Dim dt As New DataTable
Dim str As String
Dim connectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\mahi\mahi\bin\mahi.mdb;"
str = "select major from major"
Try
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = str
da.Fill(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "major"
'dt.Clear()
str = "select type_cd from type"
Try
con.Open()
cmd.CommandText = str
da.Fill(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ComboBox2.DataSource = dt
ComboBox2.DisplayMember = "type_cd"
در فرم لود قرار هست از دوتا تیبل مختلف اطلاعات رو بخونم
و هر تیبل رو به کامبو مختلف قرار بدم من کد رو نوشتم جواب هم می ده اما مشکل اینجاست
که در کامبو دومی به تعداد مقدارهای
کامبو اولی فاصله می ندازه
مشکل از کجاست؟
سعی کرم از
dt.clear
استفاده کنم چون قبلا از
dt.clear
جواب گرفته بودم اما اینجا کار رو بدتر می کنه
یعنی دیگه اطلاعات تیبل اول در کامبو اول قرار نمی گیره
ممنون می شم اگه کسی بگه مشکل از کجاست؟
Dim cmd As New OleDb.OleDbCommand
Dim con As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter(cmd)
Dim dt As New DataTable
Dim str As String
Dim connectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\mahi\mahi\bin\mahi.mdb;"
str = "select major from major"
Try
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = str
da.Fill(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "major"
'dt.Clear()
str = "select type_cd from type"
Try
con.Open()
cmd.CommandText = str
da.Fill(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ComboBox2.DataSource = dt
ComboBox2.DisplayMember = "type_cd"