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.
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
Yardımcı Olabildiysem Ne Mutlu Bana
Konuyu Taşıyabilirsiniz