VB6.0编辑数据库 搜索功能不好用

1.Ret

=

MsgBox("请输入您要修改的数据，并单击数据控件的左键或右键保存",

vbOKCancel,

"修改")

If

ReS

=

vbOK

Then

2.将连接数据库的connectsting改成动态的，不要用绝对路径，比如

c:\abc\def\opq.mdb

改成将mdb放到程序文件夹下，连接时使用

app.path

&

"\opq.mdb"

不太明白你想要什么效果，不过给个思路你看看是否合适：

Data1.RecordSource

=

"select

*

from

keshi

where

课程名称='"

&

Text3.Text

&

"'"

If

Data1.Recordset.RecordCount

>

0

Then

MsgBox

"记录己存在"

Else

MsgBox

"记录不存在"

End

If

如果不是，请表达清楚！

===========================================================

如果只是这样,那把上面的改一下就好了:

Data1.RecordSource

=

"select

*

from

keshi

where

课程名称='"

&

Text3.Text

&

"'"

If

Data1.Recordset.RecordCount

>

0

Then

If

MsgBox("已经存在课程名称为

"

&

Text3.Text

&

"

的记录！，确定添加？",

vbOKCancel

+

vbExclamation,

"警告")

=

vbOK

Then

'记录己存在，确认后接添加数据

......

End

If

Else

'记录不存在,直接添加数据

......

End

If

---