Imports System.Data.SqlServerCe
Imports System.IO
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 160
Me.Height = 165
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As SqlCeConnection = New SqlCeConnection("Data Source=.\xidian.sdf")
conn.Open()
Dim sql = "insert into 体能测试(学号,长跑) values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Dim sqlcmd As SqlCeCommand = New SqlCeCommand(sql, conn)
sqlcmd.ExecuteNonQuery()
conn.Close()
End Sub
End Class