Combo

Hola Grupo.

He agregado un combo a un form y necesito que los valores se obtengan de
una base de datos, pero no lo he conseguido, esto lo quiero hacer en
tiempo de ejecución.

Mi código es:

Dim dsCmbEmpresa As New DataSet
Dim Conex As New SqlConnection(txtConex)
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(query, Conex)
Try
cmbEmpresa.DataSource = dsCmbEmpresa.Tables("Empresas")
cmbEmpresa.DisplayMember = "RazonSocial"
cmbEmpresa.ValueMember = "IdEmpresa"
da.Fill(dsCmbEmpresa)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, ex.Source)
End Try

No me muestra ningún error y tampoco los registros de la tabla.

Y si primero haces el fill y luego enlazas el combo?

"Victor" escribió en el mensaje
news:%

Hola Grupo.

He agregado un combo a un form y necesito que los valores se obtengan de
una base de datos, pero no lo he conseguido, esto lo quiero hacer en
tiempo de ejecución.

Mi código es:

Dim dsCmbEmpresa As New DataSet
Dim Conex As New SqlConnection(txtConex)
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(query, Conex)
Try
cmbEmpresa.DataSource = dsCmbEmpresa.Tables("Empresas")
cmbEmpresa.DisplayMember = "RazonSocial"
cmbEmpresa.ValueMember = "IdEmpresa"
da.Fill(dsCmbEmpresa)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, ex.Source)
End Try

No me muestra ningún error y tampoco los registros de la tabla.

Lo mismo, no me muestra el resultado.


"Carlos Durán Urenda" escribió en el mensaje
news:

Y si primero haces el fill y luego enlazas el combo?

"Victor" escribió en el mensaje
news:%

Hola Grupo.

He agregado un combo a un form y necesito que los valores se obtengan de
una base de datos, pero no lo he conseguido, esto lo quiero hacer en
tiempo de ejecución.

Mi código es:

Dim dsCmbEmpresa As New DataSet
Dim Conex As New SqlConnection(txtConex)
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(query, Conex)
Try
cmbEmpresa.DataSource = dsCmbEmpresa.Tables("Empresas")
cmbEmpresa.DisplayMember = "RazonSocial"
cmbEmpresa.ValueMember = "IdEmpresa"
da.Fill(dsCmbEmpresa)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, ex.Source)
End Try

No me muestra ningún error y tampoco los registros de la tabla.

Y ya verificaste el comando este devolviendo un resultset?
pon el siguiente msgbox despues del Fill

Msgbox (dsCmbEmpresa.Tables("Empresas").Rows.Count.Tostring)

probablemente el problema esté en la instruccion SELECT





"Victor" escribió en el mensaje
news:

Lo mismo, no me muestra el resultado.


"Carlos Durán Urenda" escribió en el mensaje
news:

Y si primero haces el fill y luego enlazas el combo?

"Victor" escribió en el mensaje
news:%

Hola Grupo.

He agregado un combo a un form y necesito que los valores se obtengan
de una base de datos, pero no lo he conseguido, esto lo quiero hacer en
tiempo de ejecución.

Mi código es:

Dim dsCmbEmpresa As New DataSet
Dim Conex As New SqlConnection(txtConex)
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(query, Conex)
Try
cmbEmpresa.DataSource = dsCmbEmpresa.Tables("Empresas")
cmbEmpresa.DisplayMember = "RazonSocial"
cmbEmpresa.ValueMember = "IdEmpresa"
da.Fill(dsCmbEmpresa)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, ex.Source)
End Try

No me muestra ningún error y tampoco los registros de la tabla.

Hola Grupo.

He agregado un combo a un form y necesito que los valores se obtengan de

base de datos, pero no lo he conseguido, esto lo quiero hacer en tiempo de
ejecución.

Mi código es:

Dim dsCmbEmpresa As New DataSet
Dim Conex As New SqlConnection(txtConex)
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(query, Conex)
Try
cmbEmpresa.DataSource = dsCmbEmpresa.Tables("Empresas")
cmbEmpresa.DisplayMember = "RazonSocial"
cmbEmpresa.ValueMember = "IdEmpresa"
da.Fill(dsCmbEmpresa)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, ex.Source)
End Try

No me muestra ningún error y tampoco los registros de la tabla.