27/08/2011, 07:25
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 14 años, 3 meses Puntos: 5 | |
| Respuesta: cargar impresoras de windows en combo
aporto solución
Public Sub cargagridimpresoras()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "SELECT * FROM ImpresoraPredeterminada"
adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "ImpresoraPredeterminada")
'MessageBox.Show(adapta2.Fill(datavacio, "IntroduccionDeVentasAhora").ToString)
'aquí cargo el datasource y el datamenber del datagrid
DgImpresora.DataSource = datavacio
DgImpresora.DataMember = "ImpresoraPredeterminada"
End Sub |