Dataset kullanımı - Visual Basic .NET
SQL Connection içinde DataSet Class'ı kullarak veriyi almak ve grid aracılığıyla kullanıcıya göstermek. Örneklerde tek ve çok tabloya dayalı sorgu yaptım. Ayrıca farklı şekillerde adaptör kullanımı yapmaya çalıştım.
Imports
System.Data.SqlClient
Public
ClassForm1
PrivateSubButton1_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesButton1.Click
' bağlantı
Dimconn AsNewSqlConnection
conn.ConnectionString =
"Data Source=.\SQLEXPRESS;Initial Catalog=FCELEKTRONIK;Integrated Security=True"
' sql deyimi
DimsqlStr AsString= "Select * from MUSSABIT"
Dimcmd AsNewSqlCommand(sqlStr, conn)
Try
conn.Open()
' bağlantıyı aç ve dataset ve dataadapteri hazırla.
Dimds AsNewDataSet
Dimda AsNewSqlDataAdapter()
da.SelectCommand = cmd
da.Fill(ds,
"MUSSABIT")
If(ds.Tables("MUSSABIT").Rows.Count = 0) Then
MessageBox.Show("tablo da kayıt yok...")
Else
DataGridView1.DataSource = ds.Tables(
"MUSSABIT")
EndIf
Catchex AsException
MsgBox(ex.Message)
Finally
conn.Close()
EndTry
EndSub
PrivateSubButton2_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesButton2.Click
Dimconn AsNewSqlConnection
conn.ConnectionString =
"Data Source=.\SQLEXPRESS;Initial Catalog=FCELEKTRONIK;Integrated Security=True"
' sql deyimi
DimsqlStr AsString= "Select M.MUSID, M.UNVAN, MH.TUTAR "
sqlStr +=
"FROM MUSSABIT M INNER JOIN MUSHAR MH ON M.MUSID = MH.MUSID"
Dimcmd AsNewSqlCommand(sqlStr, conn)
Try
conn.Open()
' bağlantıyı aç ve dataset ve dataadapteri hazırla.
Dimda AsNewSqlDataAdapter()
da.SelectCommand = cmd
da.TableMappings.Add(
"Tablo1", "MUSSABIT")
da.TableMappings.Add(
"Tablo2", "MUSHAR")
Dimds AsNewDataSet
da.Fill(ds,
"MUSSABIT")
DataGridView1.DataSource = ds.Tables(
"MUSSABIT")
Catchex AsException
MsgBox(ex.Message)
Finally
conn.Close()
EndTry
EndSub
PrivateSubButton3_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesButton3.Click
' çok adaptörlü fc denemesi
Dimconn AsNewSqlConnection
conn.ConnectionString =
"Data Source=.\SQLEXPRESS;Initial Catalog=FCELEKTRONIK;Integrated Security=True"
' sql deyimi
DimsqlStr AsString= "Select MUSID, UNVAN from MUSSABIT"
DimsqlStr2 AsString= "Select TARIH, TUTAR from MUSHAR"
Dimcmd AsNewSqlCommand(sqlStr, conn)
Dimcmd2 AsNewSqlCommand(sqlStr, conn)
Try
conn.Open()
' bağlantıyı aç ve dataset ve dataadapteri hazırla.
Dimda AsNewSqlDataAdapter()
da.SelectCommand = cmd
Dimda2 AsNewSqlDataAdapter()
da2.SelectCommand = cmd
Dimds AsNewDataSet
'ds.Tables.Add("MUSTERI")
'ds.Tables.Add("MUSHAR")
ds.Tables(0).TableName =
"MUSSABIT"
ds.Tables(1).TableName =
"MUSHAR"
Dimiliski AsDataRelation= _
ds.Relations.Add(
"MUSANA-MUSHAR", ds.Tables("MUSSABIT").Columns("MUSID"), ds.Tables("MUSHAR").Columns("MUSID"))
da.Fill(ds,
"MUSSABIT")
da2.Fill(ds,
"MUSHAR")
DataGridView1.DataSource = ds.Tables(
"MUSSABIT")
Catchex AsException
MsgBox(ex.Message)
Finally
conn.Close()
EndTry
EndSub
End
Class
Faruk Çubukçu, 28.03.2010
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Con,Prn, Aux, Clock$, Nul, Com1, Com2, Com3, Com4, Com5, Com6, Com7, Com8, Com9, Lpt1, Lpt2, Lpt3, Lpt4, Lpt5, Lpt6, Lpt7, Lpt8, Lpt9" İsmiyle Klasör Oluşturamanın Nedeni |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|