[VB.NET]数据库表的初始化问题

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
数据库表的初始化问题
数据库数据初始化(清空表中数据,恢复空表)，库中有one two three三个表，窗体上可使用Checkbox选择为哪些表初始化数据，请问初始化按钮的代码怎么写，谢谢。
__________________________________________________________________________
该回复于2008-08-05 03:39:54被管理员或版主删除
__________________________________________________________________________
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If CheckBox1.Checked = True Then
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Delete From one "
Cmd = New OleDbCommand(SQL, Conn)
Cmd.ExecuteReader()
Conn.Close()
MessageBox.Show( "one已经清空！ ")
End If
If CheckBox2.Checked = True Then
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Delete From two "
Cmd = New OleDbCommand(SQL, Conn)
Cmd.ExecuteReader()
Conn.Close()
MessageBox.Show( "two已经清空！ ")
End If
If CheckBox3.Checked = True Then
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Delete From three "
Cmd = New OleDbCommand(SQL, Conn)
Cmd.ExecuteReader()
Conn.Close()
MessageBox.Show( "three已经清空！ ")
End If

End Sub
__________________________________________________________________________
fish__net谢谢，虽然我用的是SQlconnection但差不多
__________________________________________________________________________
有用就好!
__________________________________________________________________________