下面那段VB我有些不明白,请高人指教一下!~
IfText2.Text=Text3.TextThenSetadoRs=adoCon.Execute(“insertintoTable_uservalues(“&Text...
If Text2.Text=Text3.Text Then
Set adoRs=adoCon.Execute(“insert into Table_user values(“& Text6 &”,“& Text1 &”,
“& Text2 &”,“& Check1 &”,“& Check2 &”)”)
MsgBox“注册成功!!”,48,“用户管理系统”
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Frm_YHGL.Hide
这是实现插入功能的,&是取地址,“& Check1 &”是什么意思??
Call main
Adodc1.RecordSource=”select * from Table_user”
Adodc1.Refresh
If Adodc1.Recordset.RecordCount>0 Then 这句是什么意思?
Adodc1.Recordset.MoveLast
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 还要这句不懂
Else
Text6.Text=1 ,1是什么意思
谢啦~ 展开
Set adoRs=adoCon.Execute(“insert into Table_user values(“& Text6 &”,“& Text1 &”,
“& Text2 &”,“& Check1 &”,“& Check2 &”)”)
MsgBox“注册成功!!”,48,“用户管理系统”
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Frm_YHGL.Hide
这是实现插入功能的,&是取地址,“& Check1 &”是什么意思??
Call main
Adodc1.RecordSource=”select * from Table_user”
Adodc1.Refresh
If Adodc1.Recordset.RecordCount>0 Then 这句是什么意思?
Adodc1.Recordset.MoveLast
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 还要这句不懂
Else
Text6.Text=1 ,1是什么意思
谢啦~ 展开
4个回答
展开全部
Execute(“insert into Table_user values(“& Text6 &”,“& Text1 &”,
“& Text2 &”,“& Check1 &”,“& Check2 &”)”)
你得分开来看,并不是你看到的"& Check1 &” ,正确的应该是"," | & Check1 & | "," 。
其中“&”并不是取地址,而是字符串连接符,是字符“,” 与 Check1 与 “,” 三个字符串的连接!仔细看看SQL语组成结构吧。
If Adodc1.Recordset.RecordCount>0 Then 这句是什么意思?:这句是判断当前数据库中记录总数
Adodc1.Recordset.MoveLast ':这句是将当前游标移动到最后一条记录
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 还要这句不懂:这句是将最后一条记录的ID值加1后放到Text6中
Else
Text6.Text=1 ,1是什么意思:这句是前面的判断条件不成立(即数据库当前无记录)时给Text6赋值"1” .
“& Text2 &”,“& Check1 &”,“& Check2 &”)”)
你得分开来看,并不是你看到的"& Check1 &” ,正确的应该是"," | & Check1 & | "," 。
其中“&”并不是取地址,而是字符串连接符,是字符“,” 与 Check1 与 “,” 三个字符串的连接!仔细看看SQL语组成结构吧。
If Adodc1.Recordset.RecordCount>0 Then 这句是什么意思?:这句是判断当前数据库中记录总数
Adodc1.Recordset.MoveLast ':这句是将当前游标移动到最后一条记录
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 还要这句不懂:这句是将最后一条记录的ID值加1后放到Text6中
Else
Text6.Text=1 ,1是什么意思:这句是前面的判断条件不成立(即数据库当前无记录)时给Text6赋值"1” .
追问
Execute(“insert into Table_user values(“& Text6 &”,"'& Text1 &”',
"'& Text2 &”',"'& Check1 &”',"'& Check2 &”')")不好意思,我打错了,除第一个Text6外,其他是一个单引号,一个双引号,很奇怪,书上除错了吗?是按顺序插入Text6。。。以及Check1、 Check2选择的值吗
追答
书上没有错,在SQL语句中,插入对应字段的值,其中字段名不用加单引号,而字段的值要用单引号括起来,例如:StrSql="select * from userTalbe where username=' "+Text8.text+" ' and passwords=' "+Text9.text+" ' "
这里面的username 就是字段名,类似你代码中的Text6 ,而这里的Text8.text、Text9.text 就类似你那里面的Text2、Check1、 Check2的值。这是SQL语句的规定的语法结构。
展开全部
汗,在VB里面&不是取地址,在C里面才是。在VB里面是连接字符串的符号。跟+是一样的,不过有些区别。
这段代码是操作数据库的
这段代码是操作数据库的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这里&不是取地址, 而是连接字符串, 直接写Check1 默认指的是 check1.value属性的值
If Adodc1.Recordset.RecordCount>0 这一句是判断结果集是否为空, 如果结果集中一条记录也没有, 那么调用Adodc1.Recordset.Fields(“ID”) 会报错, 所以这里判断一下
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 这一句应该是得到最后一条注册的记录, 取它的ID值再加1, 为产生下一条注册记录做准备
Text6.Text=1 这一句要结合前面的If来看, If返回假才会执行它, If什么时候返回假呢, 就是结果集中没有记录, 这也就意味着Table_user表中没有记录, 要插入第一条记录时, 那么ID值应该是1
If Adodc1.Recordset.RecordCount>0 这一句是判断结果集是否为空, 如果结果集中一条记录也没有, 那么调用Adodc1.Recordset.Fields(“ID”) 会报错, 所以这里判断一下
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 这一句应该是得到最后一条注册的记录, 取它的ID值再加1, 为产生下一条注册记录做准备
Text6.Text=1 这一句要结合前面的If来看, If返回假才会执行它, If什么时候返回假呢, 就是结果集中没有记录, 这也就意味着Table_user表中没有记录, 要插入第一条记录时, 那么ID值应该是1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
查找
一般是这样的
定义一个动态数组
先根据文件大小和记录大小得到记录总数,然后Redim刚才那个动态数组,然后在用For语句在动态数据里进行查询,而不用再对那个文件进行操作了,直接操作文件比较太麻烦
如果对于大容量数据,建议使用数据库系统,而不使用文件系统.
一般是这样的
定义一个动态数组
先根据文件大小和记录大小得到记录总数,然后Redim刚才那个动态数组,然后在用For语句在动态数据里进行查询,而不用再对那个文件进行操作了,直接操作文件比较太麻烦
如果对于大容量数据,建议使用数据库系统,而不使用文件系统.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询