SqL Baqlantısı Kurma [Orta Duzey]

Imports System.Data.SqlClient
Public Class Form1

#Region "değişkenler"
Dim bağlanti As sqlconnection
Dim dt As SqlDataAdapter
Dim ds As New DataSet
Dim kur As String = "data source= .\SQLExpress;Integrated security=true;trusted_connection=true;user Instance=true;" & _
"AttachDBfilename =|Datadirectory|\person.mdf"


#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bağlanti = New SqlConnection(kur)
bağlanti.Open()
dt = New SqlDataAdapter("select*from bilgiler", bağlanti)
dt.Fill(ds, "bilgiler")
DataGridView1.DataSource = ds.Tables(0)
bağlanti.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bağlanti.Open()
Dim cmd As New SqlCommand("Ekle", bağlanti)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("@adı", SqlDbType.VarChar, 15).Value = TextBox1.Text
cmd.Parameters.Add("@Soyadı", SqlDbType.VarChar, 15).Value = TextBox2.Text

cmd.Parameters.Add("@fakultesi", SqlDbType.VarChar, 20).Value = TextBox3.Text
cmd.Parameters.Add("@bolum", SqlDbType.VarChar, 20).Value = TextBox4.Text
cmd.Parameters.Add("@dtarih", SqlDbType.DateTime).Value = TextBox5.Text
cmd.Parameters.Add("@cinsiyeti", SqlDbType.VarChar, 5).Value = ComboBox1.Text
cmd.Parameters.Add("@il", SqlDbType.VarChar, 20).Value = ComboBox2.Text
cmd.Parameters.Add("@askelik", SqlDbType.VarChar, 20).Value = ComboBox3.Text
cmd.Parameters.Add("@Osym", SqlDbType.Real).Value = CDbl(TextBox6.Text)
cmd.Parameters.Add("@yas", SqlDbType.VarChar, 10).Value = CInt(TextBox7.Text)
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
bağlanti.Close()


End Sub
'Sub tazele()
' bağlanti.Open()
' dt = New SqlDataAdapter("select*from bilgiler", bağlanti)
' dt = New DataSet
' dt.Fill(ds, "bilgiler")
' DataGridView1.DataSource = ds.Tables("bilgiler")
' bağlanti.Close()
'End Sub
End Class

Genişletmek için tıkla ...