batista098
Becerro
- Desde
- 24 Abr 2009
- Mensajes
- 22
- Tema Autor
- #1
Tengo un pequeño problema con el datagridview lo que pasa es que hago una consulta sql y trato de llenar los campos del datagrid pero en vez de agregalos abajo me lo agrega a los lados...
imagenes
http://www.imaxenes.com/imagen/11vc41i2.jpg.html
http://www.imaxenes.com/imagen/21we919u.jpg.html
http://www.imaxenes.com/imagen/31ye52uv.jpg.html
codigo:
Dim con As String = "select a.n_reg, a.anexo, b.area, a.solicitante, a.lo_ce, a.compañia, a.numero, a.fecha, a.hora, a.descripcion from tb_reglla as a, tb_regane as b where a.anexo = b.anexo and a.n_reg = '" & txtnf.Text & "'"
Dim com As New OleDbCommand(con, conexion)
Dim ds As New DataSet
Dim ada As New OleDbDataAdapter(com)
ada.Fill(ds, "conre")
If ds.Tables("conre").Rows.Count > 0 Then
DataGridView1.DataSource = ds.Tables("conre")
txtnf.Text = ""
cbnf.Text = ""
If DataGridView1.RowCount > 1 Then
btim.Enabled = True
End If
Else
MsgBox("No se encontraron datos", MsgBoxStyle.Information, "Aviso")
End If
imagenes



http://www.imaxenes.com/imagen/11vc41i2.jpg.html
http://www.imaxenes.com/imagen/21we919u.jpg.html
http://www.imaxenes.com/imagen/31ye52uv.jpg.html
codigo:
Dim con As String = "select a.n_reg, a.anexo, b.area, a.solicitante, a.lo_ce, a.compañia, a.numero, a.fecha, a.hora, a.descripcion from tb_reglla as a, tb_regane as b where a.anexo = b.anexo and a.n_reg = '" & txtnf.Text & "'"
Dim com As New OleDbCommand(con, conexion)
Dim ds As New DataSet
Dim ada As New OleDbDataAdapter(com)
ada.Fill(ds, "conre")
If ds.Tables("conre").Rows.Count > 0 Then
DataGridView1.DataSource = ds.Tables("conre")
txtnf.Text = ""
cbnf.Text = ""
If DataGridView1.RowCount > 1 Then
btim.Enabled = True
End If
Else
MsgBox("No se encontraron datos", MsgBoxStyle.Information, "Aviso")
End If