PB6.5 里如何判断数据库是否已经连接

这个肯定要把你输入的项放到数据库里面去验证了。

你指的是数据窗口么？如果是在数据窗口中输入，使用itemchanged事件，这个事件是在你输入值或者修改值之后马上就触发执行的。

假设数据窗口上有个学号 stu_no的字段，现在你想判断用户输入的是否存在：

if dwo.name = 'stu_no' then //如果输入的是学号字段的内容

long ll_count

select count(1) into :ll_count from tb_student where stu_no = :data

//这里的data是修改之后的值，是事件的参数。这个语句的意思就是到数据库表里面查询你输入这个值在表中一共有多少个，如果没有，那么肯定是0了。

if ll_count >0 then //如果有了，当然大于0

messagebox("","有值")

return 1 //返回1表示不接受修改，光标无法移动。可以自己看帮助的itemchanged事件返回值说明

end if

end if

ODBC数据源：

1启动SQL Server服务器，是与

2.PB的环境，打开ASA数据库，单击DB Profile按钮

3。点击ODB ODBC

4。展开公用事业节点

单击“ODBC管理器创建一个ODBC数据源

6。选择ASA8.0的样品（PB9.0例如）添加

7选择SQL Server驱动程序

8。选择你想要中连接的SQL Sewrver的数据库

...

一步一步往下

完全图形化界面！

最后连接到数据库，创建数据源，连接生成的代码（数据库配置文件设置ODBC预览“选项卡）复制到您的PB应用的open（）事件连接到回车写字：连接BR />

这样就完成了所有的设置，您可以访问的数据库连接！

祝你好运！

连接数据库：

// Profile his

SQLCA.DBMS = "MSS Microsoft SQL Server"

SQLCA.Database = "数据库名称"

SQLCA.ServerName = "."

SQLCA.LogId = "sa"

SQLCA.AutoCommit = False

SQLCA.DBParm = ""

CONNECT USING SQLCA

IF SQLCA.SQLCode <>0 THEN

MessageBox('成功','数据库连接成功！')

ELSE

MessageBox('失败','数据库连接失败！')

END IF

//定义变量

String ls_id,ls_pass,ls_type

Long ll_number,i

ls_id = sle_user.Text

ls_pass = sle_pass.Text

//==============================================================================

// 判断用户名及用户密码是否正确，打开主窗口

//==============================================================================

IF ls_id = '' THEN

MessageBox('提示','用户代码为空，请重新输入!')

sle_user.SetFocus()

RETURN

END IF

SELECT count(*) INTO :ll_number FROM login Where id = :ls_id AND Password = :ls_pass

IF ll_number >0 THEN

SELECT Style INTO :ls_type FROM login Where id = :ls_id

gs_id = ls_id

gs_type = ls_type

Open(w_main)

Close(w_login)

ELSE

IF i <= 2 THEN

MessageBox('错误','密码错误，请重新输入!')

sle_pass.Text = ""

sle_pass.SetFocus()

i++

ELSE

MessageBox("警告!","输入用户口令的错误次数超过3次!")

Close(w_login)

END IF

END IF

---