vb.net删除信息 vb删除代码

VB.NET中如何用ExecuteNonQuery方法来执行Delete语句啊，就是用来删除datagridview显示的数据中的信息。

你是写winform的吗？

创新互联公司专业为企业提供华宁网站建设、华宁做网站、华宁网站设计、华宁网站制作等企业网站建设、网页设计与制作、华宁企业网站模板建站服务，十年华宁做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

如果只是单纯用ExecuteNonQuery执行删除，下面给新增的例子，把新增的sql语句换成删除就可以了

Dim sql3 As String = "insert into LSplctable(LSID,plcpath,plcname) values(@LSID,@plcpath,@plcname)"

Dim acm3 As SqlCommand = New SqlCommand(sql3, conn)

acm3.Parameters.Clear()

acm3.Parameters.Add("@LSID", SqlDbType.NVarChar).Value = HFDLS.Value

acm3.Parameters.Add("@plcpath", SqlDbType.NVarChar).Value = filename(i)

acm3.Parameters.Add("@plcname", SqlDbType.NVarChar).Value = plcpath.Replace(extension, "")

acm3.ExecuteNonQuery()

VB.NET怎么删除INI文件里的一个字段或键值？

1，对于INI文件，可以当做像TXT文件一样来进行读取和写入。

2，先把整个文件度出来，然后找到相应行删除（抛弃）以后，再重新写入文件。

Public Class Form1

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

Dim MyStr As String = ""

Dim AllStr As String = ""

'获取一个可用的文件号

Dim MyFileNum As Integer = FreeFile()

'打开指定的文件，进行读取操作

FileOpen(MyFileNum, "C:\My.ini", OpenMode.Input)

Do While Not EOF(MyFileNum)

'读取一行

MyStr = LineInput(MyFileNum)

If MyStr  "b=2" Then

If AllStr = "" Then

AllStr = AllStr  MyStr

Else

AllStr = AllStr  vbCrLf  MyStr

End If

End If

Loop

FileClose(MyFileNum)   '关闭文件

'写文件

Dim MyStream As New System.IO.FileStream("C:\My.ini", IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.UTF8)

MyWriter.WriteLine(AllStr)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

End Class

vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

Try

' 先建立目录以便用于后续的删除示范。

If Not Directory.Exists("D:\网易") Then

Directory.CreateDirectory(" D:\网易 \Test1")

Directory.CreateDirectory(" D:\网易 \Test2")

Directory.CreateDirectory(" D:\网易 \Test3")

End If

' 删除子目录 Test1。

Directory.Delete(" D:\网易 \Test1", True)

' 删除子目录 Test2。

Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

myDirectoryInfo.Delete(True)

' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

Directory.Delete(" D:\网易 ", True)

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

' 启动 Windows 资源管理器。

Process.Start("explorer.exe", "D:\")

End Sub