[ VB 2008 ] 데이터베이스예제 .sdf

Imports System
Imports System.Data
Imports System.Data.SqlServerCe

Public Class Form1

    Dim strDB As String = "Data Source = 경로명 및 파일명.sdf"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ai As Integer

        If TextBox1.Text <> "" Then

            If ai = 1 Then Exit Sub

            Dim Conn As SqlCeConnection = New SqlCeConnection(strDB)
            Conn.Open()

            Dim sqlcmd As SqlCeCommand = New SqlCeCommand()
            sqlcmd.Connection = Conn

            Dim tran As SqlCeTransaction = Conn.BeginTransaction()
            sqlcmd.Transaction = tran

            sqlcmd.CommandText = "INSERT INTO TableBlog VALUES( '1' , '" & TextBox1.Text & "')"
            sqlcmd.ExecuteNonQuery()

            tran.Commit()
            Conn.Close()
            TextBox1.Text = ""
            ai = 0
        Else

            TextBox1.Text = "입력할 데이터 입력 하세요"
            ai = 1
            Exit Sub
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "테이텁;이스 예제"
        Button1.Text = "저 장"
    End Sub
End Class