AccessTr.neT

ben forma bir tane tabcontrol ekledim bir sekmesini hasta bilgilerine diğer sekmesini aşı bilgilerine ayırdım 1. sekmeye datagrid ekledim çok güzel bi şekilde tablom datagride geldi ama 2. sekmeyede aynı şekilde data grid eklediğmde tablom gelmedi 2. sekmede ayrı bir kod falan mı yazmak gerekiyor yardım ederseniz sevinirim.

Örnek ekleyiniz lütfen.

kodlarda bunlar 1. datagridde resimdeki gibi gözüküyor.2. datagridde gözükmüyor.

Imports System.Data.OleDb
Imports System.Data
Public Class Form3
Dim vtabani As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:/VeTC.mdb")

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

vtabani.Open()

Dim getir As New OleDb.OleDbDataAdapter("select Petkimlik,MuayeneNedeni,Teshis,UygulananTedavi,Gerçeklesme from HASTA1", vtabani)
Dim goster As New DataSet
getir.Fill(goster, "a")
DataGrid1.DataSource = goster.Tables("a")
getir.Dispose()
goster.Dispose()


vtabani.Open()
Dim geti As New OleDb.OleDbDataAdapter("select Petkimlik,RandevuTarihi,RandevuVerenDr,RandevuSaati from HASTA1", vtabani)
Dim goste As New DataSet
geti.Fill(goste, "a")
DataGrid2.DataSource = goste.Tables("a")
geti.Dispose()
goste.Dispose()

Sn. qroniq_wqha,

vtabani.open Kapatmamışsınız. Kapatıp Tekrar Deneyiniz. Örnek Ekleseydiniz Daha Detaylı Yardım Edebilirdik

çok teşekkür ederim oldu

Yardımcı Olabildiysem Ne Mutlu Bana

Konuyu Taşıyabilirsiniz ler