程序访问数据库 知识点题库

Const n=3500               ’存储单词的总数

Dim a(1 To n)As String      ’依次存储每个英语单词

Dim b(1 To n) As Strin9    ’依次存储每个英语单词的中文含义

Private Sub Command1_Click()

  Dim Conn As New ADODB．Connection

  Dim rs As New ADODB．Recordset

  Dim strSQL As String

conn．ConnectionString=“Provider=Microsoft．ACE．OLEDB．12．0；Data source=”&App．Path&“＼dictionary1．accdb”

  strSQL=”select*from list”

  conn．Open

  Set rs．ActiveConnection=conn

  rs．Open strSQL

  num=0

  Do While Not rs．EOF

       num=num+1

       a(mum)=rs．Fields(“英语单词”)

       b(num)=rs．Fields(“中文含义”)

       rs．MoveNext

  Loop

  rs．Close

  conn．Close

  Set rs=Nothing

  Set conn=Nothing

  For i==1 To n

         List1．AddItem a(i)+“  ”+b(i)

  Next i

  End Sub

  Private Sub Command2_Click()

  Dim s As String

  S=Text1．Text

  If search(s)=-1 Then

          Text2．text=“找不到该单词”

  Else

          Text2．Text=   ①  

  End If

  End Sub

  Function search(key As String)As Integer

  Dim i，j As Integer

  Dim mid1，mid2 As Integer

  i=1：j=n

  search=-1

  Do While i<=j

       mid1=Int(j+(j—i)／3)

       mid2=Int(j-(j-i)／3)

       If key=a(mid1)Then

            search=mid1

            Exit Do

       ElseIf key<a(mid1)Then

            j=mid1-1

       ElseIf key=a(mid2)Then

            search=mid2

            Exit Do

       Elself key>a(mid2)Then

            i=mid2+1

       Else

            i=mid1+1

               ②  

       End If

 Loop

End Function

①    ②  

Dim sName(100) As String

Dim kh(100) as string

Private Sub Command1_Click()

Dim y As Integer

Dim start As Integer   '考场第1位数据元素的下标

Dim pa As Integer       '数据库导入VB时学生数据下标

Dim pb As Integer        '考场座位数据下标

Dim i As Integer，j As Integer，k As Integer，m As Integer

Dim kcsName(100) As String

start = 1

pa = start

recCount = x-1

If recCount Mod 30 <> 0 Then

For i = 1 To y   ‘将当前考生人数添加到30的整数倍    

recCount = recCount +1   

    sName(recCount) = " "

Next i

End If

For j = 1 To recCount / 30  

pa = start

pb = start

For i = 1 To 30

kcsName(pb) = sName(pa)

pb = pb +1    

If  i Mod 5 = 0 Then

pa = start +i \5

Else

End If  

Next i  

start = start +30

Next j

Text1.Text = " "

start = 1

For k = 1 To recCount /30  

m = start  

Text1.Text = Text1.Text + "第" + Str(k) + "考场" + vbCrLf  

'vbCrLf为换行标志符，实现Text1中内容换行显示  

For i = 1 To 6    

For j = 1 To 5      

Text1.Text = Text1.Text +" " +kcsName(m)      

m = m +1    

Next j    

Text1.Text = Text1.Text +vbCrLf  

Next i  

Text1.Text = Text1.Text +vbCrLf +vbCrLf

Next k

End Sub

Private Sub form_load()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "/kaochang.accdb"

conn.Open

Set rs.ActiveConnection = conn

rs.Open "select * from banji"

x = 1

List1.AddItem " 考号  姓名"

Do While Not rs.EOF    '

kh(x) = rs.fields("kh")

sName(x) = rs.fields("xm")

List1.AddItem kh(x) + "  " + sName(x)

x = x + 1

rs.MoveNext

Loop

rs.Close

End Sub

Dim a (1 To 4020 ) As String

Dim b (1 To 2000 ) As String

Private Sub Form_Load( )

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As string

constr=“Provider=Microsoft.ace.OLEDB.12.0;”

constr=constr &“Data Source=” & App.Path+“\data\KaoSheng.accdb”

conn.ConnectionString=constr

conn.open()

Dim sql As String

‘将参加2010年下半年考试的考生的身份证号码按升序存放在a数组中

sql=“select * from kaoshengInfo where year=‘2010’order by sfzh asc”

rs.Open sql，conn

i=0

Do While Not rs.EOF

 i=i+1

 a(i)=rs(“sfzh”)

 List1.additem(a(i))

 rs.MoveNext

Loop

‘将参加2011年下半年考试的考生的身份证号码按升序存放在b数组中

sql=“select * from kaoshengInfo where year=‘2011’order by sfzh asc”

rs.Open sql，conn

i=0

Do While Not rs.EOF

 i=i+1

 b(i)=rs(“sfzh”)

 List2.additem(b(i))

 rs.MoveNext

Loop

rs.Close

End Sub

Private Sub Command1_Click ()

Dim bot As Integer, top As Integer, m As Integer

Dim i As Integer, ans As Integer

ans=0

  For i=1 To 2000

    bot=1

   Do While  bot <=top

     m=Fix ( ( bot+top ) / 2 )

     If a ( m )=b ( i ) Then

      List3.AddItem  a ( m )

      Exit Do

     ElseIf  Then

      top=m-1

     Else

      bot=m+1

     End If

   Loop

 Next i

 List3.AddItem“总计”+str(ans)+“人次”

End Sub

Dim recCount As Integer            '存放学生人数

Dim sClass(1 To 1000) As Integer     '存放学生班级

Dim sName(1 To 1000) As String     '存放学生姓名

Dim sScore(1 To 1000) As Integer   '存放学生成绩

Private Sub Command1_Click()

  Dim i As Integer, t As Integer, nc As Integer

  Dim a(1 To 20)  As Integer, b(1 To 20) As Integer    '分别存放班级高分人数和班级参加考试人数

  Dim sum(1 To 20) As Integer, ave(1 To 20) As Single  '分别存放班级总分和班级均分

  Dim c(1 To 20) As Integer

  For i = 1 To recCount

    b(t) = b(t) + 1

    If b(t) = 1 Then

      nc = nc + 1

    End If

    If sScore(i) >= 97 Then a(t) = a(t) + 1

    sum(t) = sum(t) + sScore(i)

  Next i

  For i = 1 To nc

    ave(c(i)) = Int(sum(c(i)) / b(c(i)) * 100 + 0．5) / 100

  Next i

  For i = 1 To nc - 1

    For j = nc To i + 1 Step -1

      If  Then

        t = c(j): c(j) = c(j - 1): c(j - 1) = t

     End If

    Next j

  Next i

  For i = 1 To nc

    List2.AddItem Str(c(i)) + " " + Str(b(c(i))) + " " + Str(a(c(i))) + " " + Str(ave(c(i)))

  Next i

End Sub

Private Sub Form_Load()

'链接数据库，代码略

recCount = 0

  Do While Not rs.EOF

    recCount = recCount + 1

    sClass(recCount) = rs.Fields("class")

    sName(recCount) = rs.Fields("name")

    sScore(recCount) = rs.Fields("score")

    rs.MoveNext

  Loop

'将数据显示在列表框List1中，代码略

End Sub

Dim classname(1 To 8000) As String       '存储原始数据中的班级名称

Dim selectabc(1 To 8000) As String        '存储原始数据选项的值

Dim xiangmu(1 To 8000) As String         '存储原始数据选项的序号

Dim n As Integer

Private Sub Command2_Click()             '从数据库读取数据，并且按班级名称排序

Dim conn As New ADODB.Connection

conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"

conn.Open

Dim rs As New ADODB．Recordset

Set rs.ActiveConnection = conn

rs.Open "select * from data"

n = 0' 记录评价的总条数

'读取数据，并按班级排序，代码略

End Sub

Private Sub Command1_Click()

  Dim cstart(1 To 50) As Integer       '存储每个班级在数组classname中的起始位置

  Dim cend(1 To 50) As Integer        '存储每个班级在数组classname中的末尾位置

  Dim k As Integer                   '存储班级数量

  Dim testall(1 To 20) As Integer          '存储每一项总选择人数，例如testall（1）里存储这评价项目1里的总人数，testc（1）里存储评价项目1里选C的人数

  Dim testc(1 To 20) As Integer          '存储每一题（项）选c的人数

  '确定每个班级的起止位置，存储到cstart数组和cend数组

  cstart(1) = 1

  temp = classname(1)

  k = 1

  For i = 1 To n

    If classname(i) <> temp Then

      k = k + 1

      cstart(k) = i

      temp = classname(i)

    End If

  Next i

  cend(k) = n

  For i = 1 To k             '每个班级分别统计评价项目

    For q = 1 To 20          '对testall和testc数组初始化

      testall(q) = 0

      testc(q) = 0

    Next q

    For j = cstart(i) To cend(i)           '对第i个班级进行统计

      testall(xiangmu(j)) = testall(xiangmu(j)) + 1\

      If selectabc(j) = "C" Then 

    Next j

    For p = 1 To 20       '统计完成后输出这个班级的20个项目的A+B所占百分比

      s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))

    Next p

    List2.AddItem s

  Next i

End Sub

Dim n As Integer     ‘用于存储运动员总人数

Dim a（1000）As Integer, b（1000）As String, c（1000）As String

Private Sub Form_Load( )

  Dim conn As New ADODB. Connection

  Dim rs As New ADODB. Recordset

  conn. ConnectionString ="Provider =Microsoft. Jet. OLEDB. 4.0；DATA Source=" &App. Path & "\sport.accdb"

    conn.Open

    Set rs. ActiveConnection=conn

    rs.Open"Select*from号码牌"

    Do While Not rs. EOF  ‘到记录集rs的最后一条记录后退出循环

      n=n+1

      a（n）=rs. Fields（"号码牌"）    ‘读取当前记录“号码牌”字段值

      b（n）=     ①                ‘读取当前记录“班级”字段值

      c（n）=rs. Fields（"姓名"）      ‘读取当前记录“姓名”字段值

          ②                        ‘移动到下一条记录

    Loop

‘号码牌按升序排序后，显示在列表框List1中，其他代码略

End Sub

Private Sub Command1_Click( )

    Dim x As Integer

    x=Val（Text1.Text）

    pos=        ③         

    If pos>0 Then

      Text2.Text=b（pos）：Text3.Text=c（pos）

    Else

      Text2.Text="未找到"

    End If

End Sub

  Function Search（Key As Integer）As Integer

    Dim i As Integer，j As Integer

    i=1：j=n：Search=0

    Do While i<=j

        m=Fix（（i+j）/2）

        If Key=a（m）Then

            Search=m：Exit Function

        ElseIf   ④   Then

            j=m-1

        Else

            i=m+1

        End If

    Loop

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②；③；④。

Const max = 1000

Dim n As Integer    '存放学生人数

Dim sfzh(1 To max) As String, xm(1 To max) As String

Dim bj(1 To max) As Integer, flag(1 To max) As Boolean, cw(1 To 15) As Integer

Function check(x As String) As Boolean

  Dim jym As String

  Dim i As Integer, sum As Integer, xh As Integer

  Dim a(1 To 18) As Integer, w(1 To 18) As Integer

  jym = "10X98765432"

  For i = 18 To 2 Step -1

    a(i) = Val(Mid(x, 19 - i, 1))

  Next i

  For i = 18 To 1 Step -1

    w(i) = 2 ^ (i - 1) Mod 11

  Next i

  sum = 0

  For i = 2 To 18

  Next i

  xh = sum Mod 11

  If Mid(jym, xh + 1, 1) = Mid(x, 18, 1) Then

    check = True

  Else

    check = False

  End If

End Function

Private Sub Form_Load()

  Dim conn As New ADODB．Connection

  Dim rs As New ADODB．Recordset

  Conn.ConnectionString = "provider=Microsoft.ace.oledb.12.0;data source=" + App.Path + "\student.accdb"

  Conn.Open

  Set rs.ActiveConnection = conn

  rs.Open "select * from stu_info"

  '本过程其余代码实现读取学生的身份证号、姓名和班级分别存数组sfzh、xm和bj中，并在列表框List1中显示，学生人数存变量n中。代码略

End Sub

Private Sub Command1_Click()

  Dim i As Integer, j As Integer

  List2.Clear

  For i = 1 To n

    If  Then

      flag(i) = True

    Else

      flag(i) = False

    End If

  Next i

  For i = 1 To 15

    cw(i) = 0

  Next i

  For i = 1 To 15

    For j = 1 To n

      If  Then

        cw(i) = cw(i) + 1

        List2.AddItem sfzh(j) + "  " + adj(xm(j), 3)

      End If

    Next j

    If cw(i) > 0 Then

      List2.AddItem Str(i) + "班共有以上" + Str(cw(i)) + "个身份证号错误"

    End If

  Next i

End Sub

① ② ③ 

@app.route('/')

def view( ):

#按热度值降序查询info表中记录，并渲染“view.htm”网页模板显示结果，代码略

@app.route('  ①   ', methods=['GET','POST'])

def selectpoet():

if request.method=='POST':

x=request.form['xm'] #获取图b所示文本框中输入的内容

conn=sqlite3.connect('data.db')

cur=conn.cursor()

cur.execute("  ▲   where poet='%s'" %x) #查询当前诗人记录

data=cur.fetchall()

if data:        #当data非空时，则表示所推选的诗人已经存在，将其热度值增1 y=data[0][1]+1

  cur.execute("update info set heat=%d where poet='%s'" %(y,x))

else:

  cur.execute("insert into info(poet,heat) values('%s',%d)" %(    ②    ))

  conn.commit( )

  cur.close( )

  conn.close( )

return '评选成功！'

else:

  return render_template('select.htm')

if __name__=='__main__':

  app.run()

①②