1. VB中如何实现删除数据库的记录
..................
strsql = "select * from jieyong"
rs.Open strsql, conn, 3, 3
tag=false
for i=1 to rs.recordcount
if text1.text = rs.fields(1) then
rs.delete
rs.update
tag=true
end if
rs.movenext
next i
if tag=false then
msgbox("无该记录！")
else
msgbox("已删除！")
endif
rs.close
2. 怎样用VB添加数据库表，删除记录
'引入命名空间
Imports System.Data.SqlClient
'建立数据连接
Dim strcon As String = "integrated security=sspi;" & "server=(local);database=master"
Dim mycon As New SqlConnection(strcon)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'建立数据命令
Dim mycmd As New SqlCommand
mycmd.Connection = mycon
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "create database student on" & _
"( NAME = student_dat,FILENAME = 'D:\data\student.mdf')" & _
"log on" & _
"( NAME = 'student_log'," & " FILENAME = 'D:\data\student.ldf')"
mycon.Open()
'执行数据命令
Try
mycmd.ExecuteNonQuery()
MsgBox("数据库创建成功！")
Catch ex As Exception
MessageBox.Show(ex.Message, "请注意！", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Finally
End Try
'关闭连接
mycon.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim mycmd1 As New SqlCommand
mycmd1.Connection = mycon
mycmd1.CommandType = CommandType.Text
mycmd1.CommandText = "CREATE TABLE info(学号 int,姓名 varchar(50) NOT NULL,班级 varchar(50),出生年月 datetime,户籍 varchar(50) null)"
mycon.Open()
'执行数据命令
Try
mycmd1.ExecuteNonQuery()
MsgBox("表创建成功！")
Catch ex As Exception
MessageBox.Show(ex.Message, "请注意！", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Finally
End Try
'关闭连接
mycon.Close()
End Sub
3. vb 删除数据库 .delete
rs.delete删除一跳，如果删除多条可以使用删除的SQL，例如：
SetConn=CreateObject("ADODB.Connection")
Conn.open"driver={MicrosoftAccessDriver(*.mdb)};dbq=HB_LQTZ0111.mdb;pwd=1024"
Conn.Execute("deletefromwhere状态='中断'")
Conn.Close
4. VB+SQL删除指令怎么做
trim()函数，是删除文本的前后空格！
例如：
dim s as string
DIM D AS STRING
s = " ABC "
D = Trim(s)
D的结果是“ABC”
前后空格没有了。
这个主要是怕，用户输入到文本框里的内容，前后带上不必要的空格，而造成找不到需要的记录。
但是你的这个Select语法还是错误的
应该：
Adodc1.Recordset = "select * from table1 where 姓名='" & Trim(Text1(0).Text) & "'"
少了2个单引号，在等号后面加一个单引号
在最后一对双引号之间加1个单引号
5. VB怎样删除数据库全部记录
下面语句刚刚做成，并通过测试。
Private Sub Command5_Click()
If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then
MsgBox "无记录可删除", , "提示"
End If
While Not Adodc1.Recordset.EOF()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
MsgBox "记录已经全部清除！", vbOKOnly, "提示"
End Sub
6. VB中使用SQl语句删除记录
可以使用execute语句删除记录，但你的查询语句可能写错了，应该写为：
AccessDBF.Execute ("delete from OPCTagTable Where TagName ='Channel_0_User_Defined.Sine.Sine1'")
7. VB删除SQL数据库记录问题
你的工程文件中已经引用了ADODB了吗？
8. VB 删除sql
借助于约束名:
alter table 表名 drop 约束名
9. 在vb中删除sqlserver中表的记录，我是想删除查询到底语句，如何实现
你的查询应该是有条件的，既然如此
用ado执行删除语句即可，条件就是查询的条件
示例：connection.Execute "delete from table where 条件"
10. VB中使用SQL语句删除记录
Private
Sub
Form_Load()
Dim
cn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\TEST.mdb"
cn.Execute
("delete
from
TEST
where
NAME_CODE=0567")
'此处的0567不是数字类型所以要改为
cn.Execute
("delete
from
TEST
where
NAME_CODE='0567'")
'加上单引号
End
Sub