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()
Insan ancak anladığı şeyleri duyar..
Cevapla