Delete From 表名称 //这是清空表中所有数据
delete from 表名称 where 字段名称 ='" & Trim(指定的值) & "' //这是删除一行指定的数据
Imports SystemIO
Module Module1
Sub Main()
Dim input = "C:\test\testtxt"
Dim output = "C:\test\test1txt"
Dim lines = FileReadAllLines(input)
Dim lst = New List(Of String)(lines)
If (linesLength > 2) Then
lstRemoveAt(linesLength - 1)
lstRemoveAt(0)
End If
FileWriteAllText(output, StringJoin(EnvironmentNewLine, lstToArray))
ConsoleWriteLine("ok")
ConsoleReadLine()
End Sub
End Module
Private Sub Command2_Click()
Dim xlApp As New ExcelApplication '定义EXCEL类
Dim xlBook As New ExcelWorkbook '定义工件簿类
Dim xlsheet As New ExcelWorksheet '定义工作表类
xlAppVisible = True '设置EXCEL可见
Set xlBook = xlAppWorkbooksOpen("d:\book1xls")
Set xlsheet = xlBookWorksheets(1)
For i = 1 To 9700
For j = 2 To 4
xlsheetRows(i)Delete 'Shift:=xlUp '删除第2行就是"2:2",删除1-3行就是"1:3"
Next
Next
End Sub
以上就是关于VB如何删除数据库的记录全部的内容,包括:VB如何删除数据库的记录、刚学VB2005,如何用代码删除文本文件的第一行和最后一行,并且运行要快!不要批处理。谢谢!、求助,如何用VB删除某一行记录等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)