内容发布更新时间 : 2024/12/23 12:08:53星期一 下面是文章的全部内容请认真阅读。
Tabel中获取所有记录。
结论:答案应为C
14. 要发送数据,通常使用Winsock控件的( )
AC
..
SendDataAccept
方方
法 法
B.Listen方法
D.GetData方法 分析:SendData方法用于发送数据。Listen方法使服务程序处于侦听状态,等待客户访问。Accept方法用于接受一个连接请求,其中RequestID是客户机发来的请求号。GetData方法用来取得接收到的数据。
结论:答案应为A
15. VB程序中通常不会产生错误提示的( )。
A.编译错误 B.实时错误 C.运行时错误 D.逻辑错误
分析:编译错误多数是因为不正确的代码产生的。实时错误也称运行时错误,是指应用程序
运行期间,一条语句试图执行一条不可能执行的操作而产生的错误。逻辑错误是指程序的运行结果和程序员的设想有出入时产生的错误。这类错误并不直接导致程序在编译期间和运行期间出现错误,较难发现,逻辑错误不产生错误提示。
结论:答案应为D
三、完善程序题
1.已知存在一名为“学生”的SQL Server
数据库,其中的“students”数据表用来存储学生的基本情况信息,包括学号、姓名、籍贯、性别。请编写一个简单的应用程序,向students表中添加学生记录。程序的基本逻辑是:当窗体被加载时,程序联接SQL Server数据库;当点击“增加”按钮时,首先查询学号是否重复,如果不重复则向students表中添加学生记录。其运行界面如图1所示。
图1
程序如下,请补充完整。
'声明对象变量ADOcn,用于创建与数据库的连接
Private ADOcn As Connection Private Sub Form_Load()
'连接SQL Server数据库 Dim strDB As String strDB
\ID=sa;Password=;Database = [1] \
If ADOcn Is Nothing Then Set ADOcn =[2] ADOcn.Open strDB End If End Sub
Private Sub Command1_Click()
'增加学生记录 Dim strSQL As String
Dim ADOrs As [3] Recordset ADOrs.ActiveConnection=ADOcn
=
ADOrs.Open “Select 学号 From Students Where 学号=”+” ‘ “+Text1+” ‘ “
If Not [4] Then
MsgBox “你输入的学号已存在,不能新增加!”
Else
StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)
StrSQL=strSQL+Values(”+”
‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)”
ADOcn.Execute [5] MsgBox “添加成功,请继续!” End If
Private Sub Command2_Click()
Unload Me End Sub
分析:数据库应用程序的大致框架是
(1)联接后台数据库