vb.net SQL数据库操作（读取、修改、删除）

        Dim rs As ADODB.Recordset

Dim sqlstr As String

 

'查询

        sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"

        rs = VScn.Execute("" & SqlStr & "")

        If Not rs.EOF Then

            TextBox1.Text = rs("字段名").Value.ToString

        End If

 

         '修改

        sqlstr = "update 表名 set 字段名= '" & 要修改的内容 & "' where 字段名= '" & 查询的内容 & "'"

        VScn.Execute(sqlstr)

 

         '删除

sqlstr = "delete from 表名 where 字段名= '" & 查询的内容 & "'"

        VScn.Execute(sqlstr)