Jessi
03 de Junio del 2003

Hola

Tengo hecha la Query y funciona no puedo mostrar los datos en un DBGrid. Como se agrega filas a la grilla.

batusai
03 de Junio del 2003

Imports System.Data.OleDb
Public Class Form7
Inherits System.Windows.Forms.Form
Dim conexion As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=c:Sistema2Control_de_llamadas.mdb")
Dim datosclientes As New DataSet()
Dim adapclientes As OleDbDataAdapter
#Region " Windows Form Designer generated code "
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strcomando As String = "Select * from Clientes where Codigo_cliente='" & TextBox1.Text & "'"
adapclientes = New OleDbDataAdapter(strcomando, conexion)
adapclientes.Fill(datosclientes, "Clientes")
DataGrid1.DataSource = datosclientes
DataGrid1.DataMember = "Clientes"
End Sub
'Con este codigo hago una consulta de un codigo de cliente introducido en un textbox1 de una tabla llamada clientes que se en cuentra en una bd de acces.
espero que te funcione si no me escribes.