Dim conn As New SqlConnection
conn.ConnectionString = "workstation id=GLX_117;packet size=4096;integrated security=SSPI;data source=glx_117;persist security info=False;initial catalog=ViBook"
conn.Open()
If CheckBox1.Checked = True Then
Dim cmd As New SqlCommand("truncate 读者信息表 ", conn)
cmd.ExecuteNonQuery()
Else
If CheckBox2.Checked = True Then
Dim cmd As New SqlCommand("truncate 图书信息表 ", conn)
cmd.ExecuteNonQuery()
Else

If CheckBox3.Checked = True Then
Dim cmd As New SqlCommand("truncate 工作人员表 ", conn)
cmd.ExecuteNonQuery()
End If
End I

是删除sqlserver数据库中表里面的信息

不用定义提供商吗？provider=sqloledb，还是provider=Microsoft.Jet.OLEDB.4.0
Try
'将语句加入这里
Catch ex As Exception
'这样错误会更明确.
msgbox ex.message
End Try

[此贴子已经被作者于2006-6-6 11:31:27编辑过]