Un solo registro en DatagridView VB .net 2008 Buenas a todos,
Estoy intentando hacer que se vea solo un registro en el datagridview de mi windows forms.
Pero lo único que consigo es que me la seleccione.
Teneis alguna idea, de por donde debo comenzar a mirar y/o modificar o los controles necesarios??
No necesito que me digais el código, pero una pista, eso si.
Eso pego todo el codigo explicado:
Option Explicit On
Option Strict On
Imports System.Data.SqlClient
Imports System.Data
Imports System.Configuration
Public Class frmempresas
'Crear el objeto conexión
Dim oConexion As New SqlConnection()
Dim empresa As String
Dim tecnico As String
Dim remoto As String
Dim sentencia As String
Dim sentencia1 As String
Dim dt As DataTable
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim dts As DataSet
Private Sub cmdconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconectar.Click
Try
oConexion.ConnectionString = "server=ofi-test-02;" & "database=Prueba;uid=sa;pwd=;"
oConexion.Open()
MessageBox.Show("Conectado")
Me.TecnicosTableAdapter.Fill(Me.DgvTecnicos.Tecnic os)
Me.EMPRESATableAdapter.FillBy1(Me.Pdtsempresa.EMPR ESA)
Catch oExcep As SqlException
MessageBox.Show("Error al conectar con datos" & ControlChars.CrLf & oExcep.Message & ControlChars.CrLf & oExcep.Server)
End Try
End Sub
Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
empresa = txtEmpresa.Text 'Guardo el valor de textbox en la variable
Dim ret As Integer = buscar( _
"Nombre_empresa", _
empresa.Trim, _
EMPRESABindingSource)
If ret = -1 Then
MsgBox("No se encontró la fila", MsgBoxStyle.Critical)
Else
With dgvEmpresa
.DataSource = EMPRESABindingSource
.FirstDisplayedScrollingRowIndex = ret
End With
End If
End Sub
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLimpiar.Click
txtEmpresa.Clear()
End Sub
Private Sub cmdDesconecta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDesconecta.Click
'Cerrar Conexión
oConexion.Close()
MessageBox.Show("Desconectado")
Me.Close()
End Sub
Function buscar(ByVal Columna As String, ByVal texto As String, ByVal EMPRESABindingSource As BindingSource) As Integer
Try
If EMPRESABindingSource.DataSource Is Nothing Then
Return -1
End If
Dim fila As Integer = EMPRESABindingSource.Find(Columna.Trim, texto)
EMPRESABindingSource.Position = fila
Return fila
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Try
Return -1
End Function
Private Sub FillBy1ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillBy1ToolStripButton.Click
Try
Me.EMPRESATableAdapter.FillBy1(Me.Pdtsempresa.EMPR ESA)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub frmempresas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'oculto los datagrid
dgvEmpresa.Visible = False
dgvtechnician.Visible = False
End Sub
End Class
Aqui teneis todo el código.
Muchas gracias
