Crear DataGrid en Vb.Net

Jorge el alta en la tabla abierta de esta manera la doy con SQL?? y como
hago para buscar en la la tabla y modificar y que luego esa modificacion la
pase a la base ???

Gracias

"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:
Mostrar la cita

Hola,

traten ante todo, dejar ADO a un lado y utilizar ADO.NET en su lugar.

Algo parecido a lo siguiente, sería suficiente:

Imports System.Data.OleDb

Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" &
"C:\Ejemplo.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select Nombre, Apellidos From Tabla",
strConexion)
objComando.Fill(objDS, "Ejemplo")
DataGrid1.DataSource = objDS.Tables("Ejemplo")
objConexion.Close()
DataGrid1.Expand(0)


Un saludo,

Jorge Serrano
MVP VB.NET


"Dario" wrote:

Mostrar la cita

Private Sub frmConsultas_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load


articulos = New ADODB.Connection

articulosr = New ADODB.Recordset

Dim ArticulosDT As New DataTable

Dim ArticulosDA As New OleDb.OleDbDataAdapter



articulos.CursorLocation = ADODB.CursorLocationEnum.adUseClient

articulos.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nbase)

articulosr.Open("select codigo, provedor , codigoorigen , articulo ,
traduccion , ncm , transito from articulos order by codigo ", articulos,
ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

articulosr.MoveFirst()

If articulosr.EOF Then

MsgBox("NO HAY ARTICULOS", MsgBoxStyle.Critical)

Else



ACA CARGAS LA BASE EN UNA TABLA Y LA PASAS AL GRID





ArticulosDA.Fill(ArticulosDT, articulosr)

grdArticulos.DataSource = ArticulosDT


ArmasGrid()

End If

End Sub

Private Sub ArmasGrid()

Aca le pones titulos a la grilla y defines el tamano y demas



Dim dTable As Data.DataTable

Dim TabStyle As DataGridTableStyle = New DataGridTableStyle

Dim ColStyle As DataGridTextBoxColumn

Dim intx As Integer

dTable = Me.grdArticulos.DataSource

grdArticulos.TableStyles.Clear()

TabStyle.MappingName = dTable.TableName

For intx = 0 To 6

Dim datacol As Data.DataColumn = dTable.Columns(intx)

ColStyle = New DataGridTextBoxColumn

ColStyle.MappingName = datacol.ColumnName

Select Case intx

Case 0

ColStyle.HeaderText = "CODIGO"

ColStyle.Width = 60

Case 1

ColStyle.HeaderText = "Provedor"

ColStyle.Width = 90

Case 2

ColStyle.HeaderText = "C. Origen"

ColStyle.Width = 40

Case 3

ColStyle.HeaderText = "Articulo"

ColStyle.Width = 200

Case 4

ColStyle.HeaderText = "Traduccion"

ColStyle.Width = 220

Case 5

ColStyle.HeaderText = "N.C.M."

ColStyle.Width = 80

Case 6

ColStyle.HeaderText = "Transito"

ColStyle.Width = 90

Case Else

ColStyle.Width = 0

End Select

TabStyle.GridColumnStyles.Add(ColStyle)

Next

TabStyle.AlternatingBackColor = Color.Lavender

Me.grdArticulos.TableStyles.Add(TabStyle)

End Sub

ESPERO TE AYUDE

Yo ando buscando la manera de modificar la datatable y luego escribirlo
en
la base

"BHR" escribió en el mensaje
news:584501c4caa9$8a1bfbb0$
¿¿¿ocaciones???

Comprate un diccionario...


>Seguro que si flaco pero no te lo dare.
>Hace tonta pregunta en estas 2 semanas esta posteada
unas
>cuantas ocaciones.
>
>Aparte que esa pregunta la puedes encontrar en cualquier
>search .
>
>Comprate un libro . "Busca ADO.NET"
>
>Miao
>
>>Hola Amigos, alguien tienen algun codigo de ejemplo
>para llenar un
>>datagrid?¿
>>
>>salu2
>>Cristian Torres
>>
>>
>>.
>>
>.
>