İntikam Peşinde & Edge Of Darkness (2010)
Gönderen admin | Kategorisi Aksiyon, Dram, Genel, Gerilim | Tarih 02-05-2010
1
Yapım : 2009 ~ ABD, İngiltere
Tür : Aksiyon, Dram, Gerilim, Suç
Yönetmen : Martin Campbell
Senaryo : William Monahan, Troy Kennedy-Martin, Andrew Bovell
Yapımcı : Richard Donner, Graham King, Michael Wearing, Tim Headington, David M. Thompson, James Laurenson
Görüntü Yönetmeni : Phil Meheux
Müzik : Howard Shore
Dağıtım : Pinema Film
Filmin Websitesi : edge-of-darkness.warnerbros.com
Süre : 1 saat 48 dk
Gösterim Tarihi : 29 Ocak 2010 (Türkiye)
Oyuncular :
Mel Gibson – Ray Winstone – Danny Huston – Bojana Novakovic – Shawn Roberts
Cinayet masasında görevli Dedektif Thomas Craven, hayatının en zor işini yapmaktadır. Aktivist kızının ölümünü araştıran Craven, yalnızca kızının bilmediği yönleri ve onun gizli yaşamı ile karşı karşıya kalmaz. Craven aynı zamanda kızının kurban gittiği cinayetin delillerini yok etmek için hükümet ile bir şirketin yaptığı işbirliğini de açığa çıkarır
Imports System.Data.SqlClient
Public Class Form2
Dim bag As New SqlConnection()
Dim komut As New SqlCommand
Dim kayıt As String
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bag = New SqlConnection(“server=CREA-PC\SQLEXPRESS;uid=sa;pwd=12345;database=kurs”)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If bag.State = ConnectionState.Closed Then
bag.Open()
End If
Try
kayıt = “INSERT INTO tbl_kursiyer(ogrenci_no, ogrenci_adi, ogrenci_soyadi, ogrenci_ilce,ogrenci_il,ogrenci_adres)” + ” VALUES (”
kayıt = kayıt & txt_no.Text
kayıt = kayıt & “, ‘” & txt_ad.Text & “‘”
kayıt = kayıt & “, ‘” & txt_soyad.Text & “‘”
kayıt = kayıt & “, ‘” & txt_ilce.Text & “‘”
kayıt = kayıt & “, ‘” & txt_il.Text & “‘”
kayıt = kayıt & “, ‘” & txt_adres.Text & “‘)”
komut = New SqlCommand(kayıt, bag)
komut.ExecuteNonQuery()
bag.Close()
Catch ex As Exception
MsgBox(ex.Message)
If bag.State = ConnectionState.Closed Then
bag.Open()
End If
End Try
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
End Class