Hi
I have a combobox wich I set the Datasource,Displaymember and Valuemember at
design time. I'm using a Dataset's table. But when I run the form the
combobox isn't filled. Can't I set properties at design time
This is the code for the sub InitializeComponent()
<System.Diagnostics.DebuggerStepThrough()Private Sub InitializeComponent()
Me.OleDbDADVD = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbConnDVD = New System.Data.OleDb.OleDbConnection
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
Me.txtNamn = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.cmbKategori = New System.Windows.Forms.ComboBox
Me.DSKat = New DVDVideo.DataSet1
Me.Label2 = New System.Windows.Forms.Label
Me.OleDbDAKat = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand
CType(Me.DSKat, System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'OleDbDADVD
'
Me.OleDbDADVD.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDADVD.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDADVD.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDADVD.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Film", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Nr", "Nr"), New
System.Data.Common.DataColumnMapping("Titel", "Titel")})})
Me.OleDbDADVD.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Film WHERE (Nr = ?) AND
(Titel = ?)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnDVD
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Nr",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Nr", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Titel",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Titel", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnDVD
'
Me.OleDbConnDVD.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet
OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data
Source=""C:\Data\Programmering\VB-programmering\Databas\Access" & _
"prog\DVDVideo\DVDVideo\DVDVideo\DVDVideo.mdb"";Mo de=Share Deny None;Jet
OLEDB:Eng" & _
"ine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System
database=;Jet OLE" & _
"DB:SFP=False;persist security info=False;Extended Properties=;Jet
OLEDB:Compact " & _
"Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet
OLEDB:Create S" & _
"ystem Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User
ID=Admin;" & _
"Jet OLEDB:Global Bulk Transactions=1"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Film(Nr, Titel) VALUES (?,
?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnDVD
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Nr", System.Data.OleDb.OleDbType.Integer,
0, "Nr"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Titel",
System.Data.OleDb.OleDbType.VarWChar, 50, "Titel"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT Film.Nr, Film.Titel FROM ((Film
INNER JOIN FilmKategori ON Film.Nr = FilmK" & _
"ategori.Nr) INNER JOIN Kategori ON FilmKategori.KategoriID =
Kategori.KategoriID" & _
")"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnDVD
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE Film SET Nr = ?, Titel = ?
WHERE (Nr = ?) AND (Titel = ?)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnDVD
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Nr", System.Data.OleDb.OleDbType.Integer,
0, "Nr"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Titel",
System.Data.OleDb.OleDbType.VarWChar, 50, "Titel"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Nr",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Nr", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Titel",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Titel", System.Data.DataRowVersion.Original, Nothing))
'
'txtNamn
'
Me.txtNamn.Location = New System.Drawing.Point(96, 96)
Me.txtNamn.Name = "txtNamn"
Me.txtNamn.Size = New System.Drawing.Size(176, 20)
Me.txtNamn.TabIndex = 0
Me.txtNamn.Text = ""
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 96)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 16)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Titel"
'
'DSKat
'
Me.DSKat.DataSetName = "DSKat"
Me.DSKat.Locale = New System.Globalization.CultureInfo("sv-SE")
'cmbKategori
'
Me.cmbKategori.DataBindings.Add(New
System.Windows.Forms.Binding("SelectedItem", Me.DSKat, "Kategori.Kategori"))
Me.cmbKategori.DisplayMember = "Kategori"
Me.cmbKategori.ValueMember = "KategoriID"
Me.cmbKategori.DataSource = Me.DSKat.Kategori
Me.cmbKategori.Location = New System.Drawing.Point(96, 128)
Me.cmbKategori.Name = "cmbKategori"
Me.cmbKategori.Size = New System.Drawing.Size(176, 21)
Me.cmbKategori.TabIndex = 2
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(16, 128)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 16)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Kategori"
'
'OleDbDAKat
'
Me.OleDbDAKat.DeleteCommand = Me.OleDbDeleteCommand2
Me.OleDbDAKat.InsertCommand = Me.OleDbInsertCommand2
Me.OleDbDAKat.SelectCommand = Me.OleDbSelectCommand2
Me.OleDbDAKat.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Kategori", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Kategori", "Kategori"), New
System.Data.Common.DataColumnMapping("KategoriID", "KategoriID")})})
Me.OleDbDAKat.UpdateCommand = Me.OleDbUpdateCommand2
'
'OleDbDeleteCommand2
'
Me.OleDbDeleteCommand2.CommandText = "DELETE FROM Kategori WHERE (KategoriID
= ?) AND (Kategori = ? OR ? IS NULL AND Ka" & _
"tegori IS NULL)"
Me.OleDbDeleteCommand2.Connection = Me.OleDbConnDVD
Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Kategor iID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"KategoriID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Kategor i",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Kategori", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Kategor i1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Kategori", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbInsertCommand2
'
Me.OleDbInsertCommand2.CommandText = "INSERT INTO Kategori(Kategori,
KategoriID) VALUES (?, ?)"
Me.OleDbInsertCommand2.Connection = Me.OleDbConnDVD
Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Kategori",
System.Data.OleDb.OleDbType.VarWChar, 50, "Kategori"))
Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("KategoriID",
System.Data.OleDb.OleDbType.Integer, 0, "KategoriID"))
'
'OleDbSelectCommand2
'
Me.OleDbSelectCommand2.CommandText = "SELECT Kategori, KategoriID FROM
Kategori"
Me.OleDbSelectCommand2.Connection = Me.OleDbConnDVD
'
'OleDbUpdateCommand2
'
Me.OleDbUpdateCommand2.CommandText = "UPDATE Kategori SET Kategori = ?,
KategoriID = ? WHERE (KategoriID = ?) AND (Kate" & _
"gori = ? OR ? IS NULL AND Kategori IS NULL)"
Me.OleDbUpdateCommand2.Connection = Me.OleDbConnDVD
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Kategori",
System.Data.OleDb.OleDbType.VarWChar, 50, "Kategori"))
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("KategoriID",
System.Data.OleDb.OleDbType.Integer, 0, "KategoriID"))
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Kategor iID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"KategoriID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Kategor i",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Kategori", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Kategor i1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Kategori", System.Data.DataRowVersion.Original, Nothing))
'
'frmLäggTill
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(384, 333)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cmbKategori)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtNamn)
Me.Name = "frmLäggTill"
Me.Text = "DVD "
CType(Me.DSKat, System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)
End Sub
Thanks Fia