关于vb中删除数据库记录的语句
 
Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"
 
rsd.Open Sql, conn, adOpenStatic, adLockOptimistic
 
YN = MsgBox("确定删除", vbYesNo)
 
If YN = 6 Then
 
rsd.Delete
 
End If
 
rsd.Close
 
conn.Close
 
如果有多条张三的记录，只能删除第一条记录。
 
如果想删除查询到的多条记录，请做一个循环。
 
vb中怎幺通过adodc删除数据库表中的所有数据
 
VB通过Sql结构化查询语句中Delete子句，赋值给Adodc数据控件的RecordSource 属性，来执行删除数据库一个表的所有记录。
 
RecordSource 属性，返回或设置Data控件的基本表、SQL语句。
 
SQL 语句：
 
SQL 中的以关键字打头、完整描述一个操作的完整的短语。例如：SELECT * FROM Orders。SQL 语句不应和语句混淆。
 
以下是删除wd.mdb数据库的jishijilu记录表的所有记录的代码：
 
Private?Sub?Command1_Click()
 
Dim?sql?As?String
 
On?Error?GoTo?error
 
sql?=?"delete?*?from?jishijilu"
 
Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\data\wd.mdb;Persist?Security?Info=False"
 
Adodc1.RecordSource?=?sql
 
Adodc1.Refresh
 
Exit?Sub
 
error:
 
End?Sub
 
VB中使用SQL语句删除记录
 
Private Sub Form_Load()
 
Dim 空白 As New ADODB.Connection
 
Dim rs As New ADODB.Recordset
 
空白.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TEST.mdb"
 
空白.Execute ("delete from TEST where NAME_CODE=0567") '此处的0567不是数字类型所以要改为
 
空白.Execute ("delete from TEST where NAME_CODE='0567'") '加上单引号
 
End Sub
 
VB中如何向SQL数据库中的表添加和删除数据
 
链接数据库的字符串
 
Public Const Conn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
 
"User ID=sa;PWD=sa;Initial Catalog=hr;Data Source=127.0.0.1"
 
'hr是数据库名称 Catalong=数据库名称
 
Private IsConnect As Boolean 判读数据库是否链接
 
Private 空白n As ADODB.Connection 链接数据库的connection对象
 
Private rs As ADODB.Recordset 保存结果集的recordset对象
 
数据库链接程序
 
Public Sub Db_Connect()
 
如果链接标记为真 返回
 
If IsConnect = True Then
 
Exit Sub
 
End If
 
关键字New用来创建新对象空白n
 
Set 空白n = New ADODB.Connection
 
设置空白n的链接字符串的connectstring属性
 
空白n.ConnectionString = Conn
 
打开数据库
 
空白n.Open
 
判断链接状态
 
If 空白n.State <> adStateOpen Then
 
如果不成功 显示提示 退出程序
 
MsgBox "链接数据库失败"
 
End
 
End If
 
设置链接标记 表示已经链接到数据库
 
IsConnect = True
 
End Sub
 
断开数据库的链接程序
 
Public Sub Db_Disconnect()
 
如果链接标记为假，表明已经断开 直接返回
 
If IsConnect = False Then
 
Exit Sub
 
End If
 
关闭链接
 
空白n.Close
 
设置链接标记，表明已经断开链接
 
IsConnect = False
 
End Sub
 
'只用来执行Insert，update，delete语句
 
Public Sub sqlExt(tmpSql As String)
 
创建空白mand对象cmd
 
Dim cmd As New ADODB.Command
 
连接到数据库
 
DbConnect
 
设置cmd的ActiveConnection属性，指定其关联的数据库链接
 
Set cmd.ActiveConnection = 空白n
 
设置要执行的命令文本
 
cmd.CommandText = tmpSql
 
执行命令
 
cmd.Execute
 
清空cmd对象
 
Set cmd = noting
 
断开与数据库的连接
 
Db_Disconnect
 
End Sub
 
执行数据库查询程函数
 
Public Function QueryExt(tmpSql As String) As ADODB.Recordset
 
创建recordset对象rst
 
Dim rst As New ADODB.Recordset
 
链接到数据库
 
Db_Connect
 
设置rst的ActiveConnection属性，指定与其关联的数据库连接
 
Set rst.ActiveConnection = 空白n
 
设置游标类型
 
rst.CursorType = adOpenDynamic
 
设置锁定类型
 
rst.LockType = adLockOptimistic
 
打开记录集
 
rst.Open tmpSql
 
返回记录集
 
Set QueryExt = rst
 
End Function
 
VB中怎幺对数据库进行添加删除修改的操作
 
下面的例子就是对数据库进行添加删除修改的操作：
 
Private Sub Command1_Click()
 
For i = 0 To 5
 
Text1(i).Text = ""
 
Next i
 
Adodc1.RecordSource = "select * from " & s1 & " order by 编号"
 
Adodc1.Refresh
 
If Adodc1.Recordset.RecordCount > 0 Then
 
Adodc1.Recordset.MoveLast
 
Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")
 
Else
 
Text1(0).Text = "G0001"
 
End If
 
End Sub
 
Private Sub Command2_Click()
 
If Adodc1.Recordset.EOF = False Then
 
c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")
 
If c = vbOK Then
 
Adodc1.Recordset.Delete
 
Adodc1.RecordSource = "select * from 人员表"
 
Adodc1.Refresh
 
End If
 
Else
 
MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"
 
End If
 
End Sub
 
Private Sub Command3_Click()
 
If Text1(0).Text = "" Or Text1(1).Text = "" Then
 
MsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"
 
Else
 
c = MsgBox("确定要修改该记录吗？", vbOKCancel, "提示信息")
 
If c = vbOK Then '如果确认修改的话进行修改操作
 
If Text1(1).Text = "" Then
 
MsgBox "姓名不能为空值!", 48, "修改****"
 
Else
 
'连接所要修改的数据库
 
con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
 
'开始修改数据库
 
con.Execute ("UPDATE " & s1 & " SET 姓名='" & Text1(1).Text & "',年龄=" & Text1(2).Text & ",学历='" & Text1(3).Text & "',年级=" & Text1(4).Text & ", 入学时间='" & Text1(5).Text & "' where 编号='" & Trim(Text1(0)) & "'")
 
MsgBox "信息修改成功", 64, "修改****"
 
con.Close
 
Adodc1.RecordSource = "select * from 人员表"
 
Adodc1.Refresh
 
End If
 
End If
 
End If
 
End Sub
 
Private Sub Command4_Click()
 
Adodc1.RecordSource = "select * from 人员表 where 编号='" + Text1(0).Text + "'"
 
Adodc1.Refresh
 
If Adodc1.Recordset.RecordCount > 0 Then
 
MsgBox "该信息已存在，信息保存不成功", 64, "保存****"
 
Else
 
cc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示")
 
If cc = vbOK Then
 
If Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Or Text1(5).Text = "" Then
 
MsgBox "请确认，人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存****"
 
Else
 
con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
 
con.Execute ("insert into 人员表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "', '" & Text1(5).Text & "')")
 
MsgBox "信息修改成功", 64, "修改****"
 
con.Close
 
Adodc1.RecordSource = "select * from 人员表"
 
Adodc1.Refresh
 
End If
 
Else
 
End If
 
End If
 
Set DataGrid1.DataSource = Adodc1
 
End Sub
 
如何使用Delete语句从VB数据库删除信息？
 
用sql语句的删除命令：delete from (表名) where (条件)
 
举例如下：(最好系统学一下，因为不知道你用的什幺方法进行vb操作)
 
(我为推荐一本书，电大的计算机大专计算机信息方向的《VB程序设计》刘世峰编，通学习你一切都通了)
 
Private Sub Command1_Click()
 
'定义字符
 
Dim strSQL As String
 
'定义一个整型变量
 
Dim i As Integer
 
i = MSHFlexGrid1.Row
 
'处理无记录行
 
If MSHFlexGrid1.TextMatrix(i, 1) = "" Then
 
MsgBox "请选择一个记录！", vbQuestion + vbOKOnly, "信息提示"
 
Exit Sub
 
End If
 
'编定SQ查询语句
 
strSQL = "Delete From 通讯簿 "
 
strSQL = strSQL + "Where 姓名='" + MSHFlexGrid1.TextMatrix(i, 1) + "'"
 
'提示用户要谨慎删除
 
If MsgBox("是否要删除，请慎重！", vbQuestion + vbOKCancel, "信息提示") = vbOK Then
 
'执行删除命令
 
ADO空白.Execute strSQL
 
End If
 
DisplayGrid1
 
End Sub
 
利用VB来删除SQL中一行的数据,代码如何编写
 
sql="select * from tbluser where username='"&text1.text&"'"
 
rs.open sql,conn,1,3
 
rs.delete
 
VB.NET 里如何给SQL SERVER数据库插入记录和删除记录，插入字段，删除字段
 
使用 VB.NET 连接sqlserver执行sql命令会不会？ 不会的话去百度搜。
 
插入记录和删除记录，插入字段，删除字段 的sql语句会不会写？ 不会的话去百度搜。
 
用vb怎样删除sql server数据库中一条数据
 
简单说就是SQL语句中的引号问题。
 
SQL = "delete from Goods where GoodsName='" & Text2.Text & "'" + rsTable.Open SQL, pubConn, adOpenKeyset, adLockOptimistic
 
按你原来的写法，执行的SQL语句就是
 
delete from Goods where GoodsName='&Text2.Text&'
 
这里的Text2.Text被认为是字符串的一部分，不是变量了。
 
在vb中删除sqlserver中表的记录，我是想删除查询到底语句，如何实现
 
你的查询应该是有条件的，既然如此
 
用ado执行删除语句即可，条件就是查询的条件
 
示例：connection.Execute "delete from table where 条件"

一个小的程序，用来求 方程的解。
因为想知道vb 的程序写法，，
请大侠帮助。
'''
def f(x):
# f(x) = x^3 + 4 x^2 -8
#kk= math.pow(x, 3) + 4 * ( math.pow(x, 2) ) - 8
kk= x*x*x + 4 * ( x*x ) - 8 # --easy way
return kk
def fl(x):
# f'(x)=3x^2 + 8 x
hh = 3 * ( x*x ) + 8 * x
return hh
def nn(x0):
i = 1
while i < 99: # create the limit , the max loop
x = x0 - (f(x0) / fl(x0))
if abs(f(x0) / fl(x0)) < 0.0001: #get from the topic ,this is a const
return x
x0 = x
i = i + 1
jj = 1.24 # the first guess ,use 91maths website,from right to left
print(nn(jj))
```

第一节：数据类型及常用控制语句
 
1、运算符：
 
（1）赋值运算符 =
 
（2）数学运算符： &、+ (字符连接符)、+(加)、-（减）、*（乘）、/（除）、Mod（取余）、\（整除）、-（负号）、^（指数）
 
（3）逻辑运算符：Not（非）、And（与）、Or（或）、Xor（异或）、Eqv（相等）、Imp（隐含）
 
（4）关系运算符： = （相等）、<>（不等）、>（大于）、<（小于）、>=（不小于）、<=（不大于）、Like、Is
 
（5）位运算符 Not（逻辑非）、And（逻辑与）、Or（逻辑或）、Xor（逻辑异或）、Eqv（逻辑等）、Imp（隐含）
 
2、数据类型：
 
         VBA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。
 
 
数据类型
 
 
类型标识符
 
 
字节
 
 
字符串型 String
 
 
$
 
 
字符长度(0-65400)
 
 
字节型 Byte
 
 
无
 
 
1
 
 
布尔型 Boolean
 
 
无
 
 
2
 
 
整数型 Integer
 
 
%
 
 
2
 
 
长整数型 Long
 
 
&
 
 
4
 
 
单精度型 Single
 
 
!
 
 
4
 
 
双精度型 Double
 
 
#
 
 
8
 
 
日期型 Date
 
 
无
 
 
8 公元100/1/1-9999/12/31
 
 
货币型 Currency
 
 
@
 
 
8
 
 
小数点型 Decimal
 
 
无
 
 
14
 
 
变体型 Variant
 
 
无
 
 
以上任意类型，可变
 
 
对象型 Object
 
 
无
 
 
4
 
3、变量与常量
 
（1）VBA允许使用未定义的变量，默认是变体变量Variant。
 
（2）在模块通用说明部份，加入 Option Explicit 语句可以强迫用户进行变量定义。
 
（3）变量定义语句及变量作用域
 
 
Dim         变量 as 类型
 
 
'定义为局部变量
 
 
如 Dim        xyz  as  integer
 
 
Private     变量 as 类型
 
 
'定义为私有变量
 
 
如 Private    xyz  as  byte
 
 
Public      变量 as 类型
 
 
'定义为公有变量
 
 
如 Public     xyz  as  single
 
 
Global      变量 as 类型
 
 
'定义为全局变量
 
 
如 Globlal    xyz  as  date
 
 
Static      变量 as 类型
 
 
'定义为静态变量
 
 
如 Static     xyz  as  double
 
    一般变量作用域的原则是，那部份定义就在那部份起作用，模块中定义则在该模块那作用。
 
（4）常量为变量的一种特例，用Const定义，且定义时赋值，程序中不能改变值，作用域也如同变量作用域。
 
     如下定义：Const Pi=3.1415926 as single
 
4、数组
 
      在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下：Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。二维数组是按行列排列，如XYZ(行，列)。除了以上固定数组外，VBA还有一种功能强大的动态数组，定义时无大小维数声明；在程序中再利用Redim语句来重新改变数组大小，原来数组内容可以通过加preserve关键字来保留。如下例：Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10)
 
5、注释
 
       注释语句是用来说明程序中某些语句的功能和作用；VBA中有两种方法标识为注释语句。单引号 ’ ;如：’定义全局变量；可以位于别的语句之尾，也可单独一行Rem ;如：Rem 定义全局变量；只能单独一行。
 
6、书写规范
 
（1）VBA不区分标识符的字母大小写，一律认为是小写字母；
 
（2）一行可以书写多条语句，各语句之间以冒号 : 分开；
 
（3）一条语句可以多行书写，以空格加下划线 _ 来标识下行为续行；
 
（4）标识符最好能简洁明了，不造成歧义。
 
 
 
第二节：常用控制语句及举例
 
1、判断语句 If … Then … Else  Endif语句
 
If a>60 Then
    k=1
Elself a>70 Then
    k=2
Elself a>80 Then
    k=3
Elself a>90 Then
    k=4
Endif
 
2、Select Case语句
 
      Select Case Time
            Case 1 To 11
                  msg = "上午"
            Case 12
                  msg = "中午"
            Case 13 To 16
                  msg = "下午"
            Case 17 To 20
                  msg = "晚上"
            Case 23, 24
                  msg = "午夜"
            Case Else
                  msg = "不明"
      End Select

      MsgBox "现在是：" & msg
 
3、循环语句
 
（1）For … Next循环
 
For cnt = 1 To 10 Step 1             ' 建立 10 次循环

    For Chars = 0 To 9                    ' 建立 10 次循环

        MyString = MyString & Chars            ' 将数字添加到字符串中

    Next Chars                            ' Increment counter

    MyString = MyString & " "           ' 添加一个空格

Next cnt
[Exit For]
 
（2）For Each…Next语句
 
     主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句
 
Sub 大于90的单元格涂红色()

    Dim rng  As Range

    For Each rng In Sheet5.Range("b3:b12")
      Select Case rng
      Case Is >= 90
      rng.Interior.ColorIndex = 3
      End Select
    Next

End Sub
 
其他常用循环
 
1) Do While循环
---------------------------------------------------------
Do [While 条件]
  [指令]
  [Exit Do]
  [指令]
Loop

---------------------------------------------------------
Do
  [指令]
  [Exit Do]
  [指令]
Loop [While 条件]
---------------------------------------------------------
2) Do Until循环
---------------------------------------------------------
Do [Until 条件]
  [指令]
  [Exit Do]
  [指令]
Loop
---------------------------------------------------------
Do
  [指令]
  [Exit Do]
  [指令]
Loop [Until 条件]

---------------------------------------------------------

3) While … Wend循环

While <条件>
  [指令]
Wend
 
 

 
vb使用open方法读写文件
 
vb使用open方法读写文件
 
(一)打开和关闭文件
 
1、顺序文件
 
打开顺序文件，我们可以使用Open语句。它的格式如下：
 
Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
 
说明：
 
(1)参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录
 
(2)Input Output
 
和Append用于设置顺序文件的打开方式。其中，Input表示从打开的文件中读取数据。以这种方式打开文件时，文件必须存在，否则会产生错误。
 
Output表示向打开的文件中写入数据。以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。如果文件不存在，则创建一个新文
 
件。Append表示向打开的文件中添加数据。以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件为开始添加。如果文件不存在，则创建一个新
 
文件。
 
(3)As[#]filenumber 子句用于为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数,既可以是数字,又可以是变量.也可以省略不用.
 
(4)当在文件与程序之间拷贝数据时,Len=buffersize子句指定缓冲区的字符数.
 
例如:
 
Open App.Path + "\test.dat" For Output As 1
 
Open App.Path + "\test.dat" For Output As 1
 
这两句代码在当前应用程序所在目录下创建了一个名为test.dat的文本文件,分配文件号为1.
 
Open App.Path + "\test.dat" For Input As [#]filenumber
 
这条语句是从文本文件中读取数据.
 
Open App.Path + "\test.dat" For Append As [#]filenumber
 
这条语句则是像文本文件中添加数据
 
2、随机文件
 
操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:
 
Type Student
 
No As Integer
 
Name As String * 20
 
age As Integer
 
End Type
 
Dim Stud As Student ‘定义一个可以存放学生材料的变量
 
随机文件中,所有的数据都将保存到若干个结构为Student类型的记录中, 而从随机文件中读出的数据则可以存放到变量Stud中.
 
之后我们就可以打开并读写文件了.下面是打开随机文件的语法格式:
 
Open filename For Random as [#]filenumber Len = Reclengt
 
相关文档：
 
'创建快捷方式，兼容vista
 
'要把vb6stkit.DLL放到程序目录
 
'敖士伟 09-10-27
 
'只对“桌面”和“开启”有效，其它还没做
 
'=========开启外部同步程序定义开始
 
Const SYNCHRONIZE = &H100000
 
Const INFINITE = &HFFFF 'Wait forever
 
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
 
把鼠标移到屏幕指定位置 如(111.111) 单击一下
 
再移到屏幕另一指定位置指定位置 如(222.222)单击一下
 
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 
Private Declare Function SetCursorPo ......
 
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。
 
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
 
&n ......
 
ASP.Net中使用VB.Net调用存储过程并得到返回值
 
来源：qqread论坛 作者： 出处：巧巧读书 2006-08-03 进入讨论组
 
//存储过程代码
 
CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum 　varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
 
Insert Into SMB_In ......
 
Put 语句
 
将一个变量的数据写入磁盘文件中。
 
Put [#]filenumber, [recnumber], varname
 
Get 语句
 
将一个已打开的磁盘文件读入一个变量之中。
 
Get [#]filenumber, [recnumber], varname
 
例如：
 
dim B as byte
 
open "File1.txt" for binary as #1
 
get #1, 1, B
 
close #1
 
即可将File1.txt文件� ......