Combo

Gracias con esto se resolvió.



"Fabian" escribió en el mensaje
news:
> proba con esto
>
> Dim ds As New DataSet
>
> Dim strSql1 As String
>
> Dim conn As New SqlClient.SqlConnection(xconexion)
>
> strSql1 = "select * from ciudades "
>
> Dim da3 As New SqlClient.SqlDataAdapter(strSql1, conn)
>
> da3.Fill(ds, "ciudades")
>
> Dim aa As String 'Para ver que te trajo el select
>
> aa = ds.GetXml
>
> ComboBox2.DataSource = ds.Tables("ciudades")
>
> ComboBox2.ValueMember = "C_CODIGO"
>
> ComboBox2.DisplayMember = "D_CAMPO_2"
>
> Fabian, suerte
>
> "Victor" escribió en el mensaje
> news:#
>> Hola Grupo.
>>
>> He agregado un combo a un form y necesito que los valores se obtengan

> 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.
>>
>>
>>
>
>

proba con esto

Dim ds As New DataSet

Dim strSql1 As String

Dim conn As New SqlClient.SqlConnection(xconexion)

strSql1 = "select * from ciudades "

Dim da3 As New SqlClient.SqlDataAdapter(strSql1, conn)

da3.Fill(ds, "ciudades")

Dim aa As String 'Para ver que te trajo el select

aa = ds.GetXml

ComboBox2.DataSource = ds.Tables("ciudades")

ComboBox2.ValueMember = "C_CODIGO"

ComboBox2.DisplayMember = "D_CAMPO_2"

Fabian, suerte

"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.